<% 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 %>

图 说 会 盟 <% 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="900"> <%else if fileext="swf" then%> <%end if end if%> <%=rs("Title")%>     图 片 说 明 <%call ShowProductContent()%> 点击数：<%=rs("Hits")%>  录入时间：<%= FormatDateTime(rs("UpdateTime"),2) %> 【打印此页】 【关闭】",target="_blank">

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