<% id=rp(Request("id")) if not isnumeric(id) then goerror(2) End if Dim objrs,strsql strsql="select * from productlist where id=" & id set objrs=server.createobject("ADODB.Recordset") objrs.open strsql,objconn,1,2,1 if objrs.Recordcount<1 then goerror(1) End if objrs("hits")=objrs("hits")+1 objrs.update %> <%=objrs("pname") %> 产品介绍 产品图片 参数 - 中国洗车器网
<%=objrs("pname") %>
">
名称: <%=objrs("pname") %>
型号: <%=objrs("ptype") %>
类别: <%=showclassname(objrs("classid"),"2") %>
时间: <%=objrs("addtime") %>
点击: <%=objrs("hits") %>
<%=objrs("content") %>
产品分类
<% Dim objrs3,strsql3 strsql3="select * from productclass order by pid" set objrs3=server.createobject("ADODB.Recordset") objrs3.open strsql3,objconn,1,2,1 Do while not objrs3.Eof %> <% objrs3.movenext loop objrs3.close set objrs3=nothing %>

"><%=objrs3("classname") %>

 
<% objrs.close set objrs=nothing %>