<%dim newsid
newsid=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
        if Not isChkInteger(request("id")) then
    %>
            <script language=javascript>
        alert("参数错误！");
        window.close();
    </script> 
            <%
    response.end
end if
rs.open "select top 1 * from shop_news where newsid="&newsid,conn,1,3
            if rs.recordcount=0 then 
        %>
<script language='javascript'>alert('新闻调用错误，请返回！');window.location.href='index.asp';</script> 
            <%
        end if
[color=FF0000]rs("viewcount")=rs("viewcount")+1[/color] '错误行
rs.update
%>

提示：错误类型：
(0x80020009)
发生意外。 
/shop/news.asp, 第 46 行

请各位GG JJ  DD MM  帮我下