ASP 对象打开时，不允许操作。

<!--#include file="conn.asp"-->
<!--#include file="buy2buysys.asp"-->
<%
dim id,company,intro,graph2,description,remarks,price,rs2,strSorts,strCategory
id=Int(saferequest("id",1))


set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from product where id="& id ,conn,1,3
if rs2.eof and rs2.bof then
response.Write " <script language='javascript'>alert('查无此记录，请正确操作！');history.go(-1); </script>"
response.End
end if
rs2("viewnum")=rs2("viewnum")+1
rs2.update
IntCatID = rs2("categoryid")
IntCatIDLong=IntCatID

    set rs=server.CreateObject("adodb.recordset")
do while not IntCatID = 0
rs.open "Select categoryid,category,ParentID from category Where categoryid="&IntCatID,conn,1,1
          if rs.eof and rs.bof then
response.Write " <script LANGUAGE='javascript'>alert('您输入的参数非法，请正确操作！');history.go(-1); </script>"
rs.close
set rs = Nothing
conn.Close
set conn=nothing
response.end
end if
       
strCategory = " <a href=b2b_cplist.asp?catid=&qu