<% 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 rsbig = server.CreateObject ("adodb.recordset") sql="select * from BigClass" rsbig.open sql,conn,1,1 if rsbig.eof and rsbig.bof then Response.Write "栏目正在建设中……" else i=1 do while not rsbig.eof %>
 ◆ <%=rsbig("BigClassName")%>
<% rsbig.movenext i=i+1 loop rsbig.close set rsbig=nothing end if %>

首页 > <%=rs("Title")%>> 产品详情 >  
<%call ShowProductContent()%>

<% end if rs.close set rs=nothing call CloseConn() %>