<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<%
Sql="Update [DownLoad] Set [Hits] = Hits+1 Where ID="&Cstr(Request("id"))
Conn.Execute Sql
Function PoCl()
Dim PP
Set big=Conn.Execute("Select * From [BigClassDown]")
If big.Eof Then
PP = PP & "没有该类别!"
Else
Do While Not big.Eof
PP = PP & "<a href=DownLoad.asp?tit=" &big("DownType")& ">" &big("DownType")& "</a>"
PP = PP & "<Br>"
big.MoveNext
Loop
End if
PoCl = PP
End Function
Set dd=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From [DownLoad] Where ID="&checkstr(Cint(Request("id")))
dd.Open Sql,Conn,1,1
If dd.Eof Then
Response.Write "没有产品!"
Else
Dim ShowSHrml
ShowSHrml = application("JaShowDown")
ShowSHrml = Replace(ShowSHrml,"{用户登陆}",UserLogin())
ShowSHrml = Replace(ShowSHrml,"{用户搜索}",FindProd())
ShowSHrml=replace(ShowSHrml,"{新闻信息}",TopNews("News_ID"))
ShowSHrml = Replace(ShowSHrml,"{产品分类}",PoCl())
ShowSHrml = Replace(ShowSHrml,"{用户投票}",ShowVote())
ShowSHrml = Replace(ShowSHrml,"{下载分类}",dd("DownType"))
ShowSHrml = Replace(ShowSHrml,"{下载标题}",dd("Titel"))
ShowSHrml = Replace(ShowSHrml,"{下载内容}",dd("Content"))
ShowSHrml = Replace(ShowSHrml,"{下载连接}",dd("DownUrl"))
ShowSHrml = Replace(ShowSHrml,"{下载次数}",dd("Hits"))
ShowSHrml = Replace(ShowSHrml,"{发布时间}",FormatDateTime(dd("InfoTime"),2))
Response.Write ShowSHrml
End if
dd.Close
Set dd=Nothing
%>
<!--#Include File="bottom.Asp"-->