<%
BigClassName=Trim(request("BigClassName"))
%>
<%
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
if ID="" then
response.Redirect("Product.asp")
end if
sql="select * from Product where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write""
else
rs("Hits")=rs("Hits")+1
rs.update
%>
产品展示
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sqllist="select * from BigClass order by sort"
rslist.open sqllist,conn,1,3
do while not rslist.eof
%>