<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<%
Sql="Update [Product] Set [Hits] = Hits+1 Where ID="&Cstr(Request("id"))
Conn.Execute Sql
Set por=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From [Product] Where [Pass]=true and ID="&Cint(Request("id"))
por.Open Sql,Conn,1,1
If not por.Eof Then
Dim ProHtm
ProHtm=application("JaShowProduct")
ProHtm=Replace(ProHtm,"{用户登陆}",UserLogin())
ProHtm=replace(ProHtm,"{新闻信息}",TopNews("News_ID"))
ProHtm=Replace(ProHtm,"{用户搜索}",FindProd())
ProHtm=Replace(ProHtm,"{用户投票}",ShowVote())
ProHtm=Replace(ProHtm,"{栏目分类}",PClass())
ProHtm=Replace(ProHtm,"{大分类}",por("BigClassP"))
ProHtm=Replace(ProHtm,"{小分类}",por("SmallClassP"))
ProHtm=Replace(ProHtm,"{产品名称}",por("Name"))
ProHtm=Replace(ProHtm,"{产品内容}",por("Content"))
ProHtm=Replace(ProHtm,"{点击次数}",por("Hits"))
ProHtm=Replace(ProHtm,"{发布时间}",FormatDateTime(por("UpTime"),2))
Response.Write ProHtm
End if
por.Close
Set por=Nothing
%>
<!--#Include File="bottom.Asp"-->