<%ShowSmallClassType=ShowSmallClassType_Article dim ArticleID ArticleID=trim(request("ArticleID")) if ArticleId="" then response.Redirect("Product.asp") end if sql="select * from Product where ArticleID=" & ArticleID & "" 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 if rs("hits")>=HitsOfHot then rs("Hot")=True rs.update end if BigClassName=rs("BigClassName") SmallClassName=rs("SmallClassName") %>
<% response.write "| " & rs("BigClassName") & " >> " if rs("SmallClassName") & ""<>"" then response.write "" & rs("SmallClassName") & " >> " end if response.write rs("Title") %> <%=rs("Title")%>  
<%call ShowArticleContent()%>
点击数:<%=rs("Hits")%>  录入时间:<%= FormatDateTime(rs("UpdateTime"),2) %> 关键词:<%=rs("key")%>  【打印此页】 【返回  
<% end if rs.close set rs=nothing call CloseConn() %>
 
 
<%rstt.close set rstt=nothing %>