<% ShowSmallClassType=ShowSmallClassType_Article dim ID ID=trim(request("ID")) if ID="" then response.Redirect("Product.asp") end if sql="select * from Products 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 %> <% title=rs("title") 'SiteContent=rs("content") %>
 
<% call ShowVote() %>
 
<% response.write " " & rs("BigClassName") & " >> " if rs("SmallClassName") & ""<>"" then response.write "" & rs("SmallClassName") & " >> " end if response.write rs("Title") %> ",target="_blank">
<%fileExt=lcase(getFileExtName(rs("DefaultPicUrl")))%>
   <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%> " target="_blank"> width="200" height="180" onload="javascript:DrawImage(this);"> <%else if fileext="swf" then%> <%end if end if%>
产品编号:
<%=rs("Product_Id")%>
产品名称:
<%=rs("title")%>
规  格:
<%=rs("Spec")%>
产品备注:
<%=rs("Memo")%>
产品类别:
<%=rs("BigClassName")%>
<%call ShowProductContent()%>
点击数:<%=rs("Hits")%>  录入时间:<%= FormatDateTime(rs("UpdateTime"),2) %> 【打印此页】 【关闭 ",target="_blank">
<% end if rs.close set rs=nothing call CloseConn() %>