<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") 
If ListKey<>"" Then Session("FindId")=ListKey Else ListKey= Session("FindId")
XML.StrSql="select SpecialID from SQ_InfoS where ItemID=" & ListKey & " And ModuleType=2"
Dim BackList '定义返回上级的哪一类别。
BackSpecialID=XML.MdbShow("SpecialID") : Session("BackSpecialID")=BackSpecialID

XML.StrSql="Select * from SQ_Soft Where SoftID=" & ListKey

'虚线内为专题、搜索结果、文章显示的通用代码部分。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下为查询相关路径问题。
ChannelID=XML.MdbShow("ChannelID")
XML.StrSql="Select * from SQ_Channel Where ChannelID=" & ChannelId
ChannelDir=XML.MdbShow("ChannelDir") '频道所在文件夹。
DownLoadPath=XML.MdbShow("ChannelDir") & "/" & XML.MdbShow("UploadDir") '上传文件所在的文件夹。

XML.StrSql="Select * from SQ_Soft Where SoftID=" & ListKey

'显示标题
XML.WriteOut "<h2>下载中心</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "下载名称:" & XML.MdbShow("SoftName") 
If XML.IsAspJpeg=True Then '如果支持JPEG组件，则输出缩略图。
	XML.WriteRow XML.IA(XML.BuildSmallPic("../" & ChannelDir & "/" & XML.MdbShow("SoftPicUrl"),"../" & ChannelDir & "/"),"../" & ChannelDir & "/" & XML.MdbShow("SoftPicUrl"),"点击查看原图")
Else
	XML.WriteRow XML.Img("../" & ChannelDir & "/" & XML.MdbShow("SoftPicUrl"),"暂无预览图","Width='150'") 
End If
XML.WriteOut XML.PESoftDown(XML.MdbShow("DownloadUrl"),"../" & DownLoadPath & "/")
XML.WriteRow "软件版本:" & XML.MdbShow("SoftVersion")
XML.WriteRow "运行环境:" & XML.MdbShow("OperatingSystem") 
XML.WriteRow "开 发 商:" & XML.MdbShow("Author") 
XML.WriteRow "软件语言:" & XML.MdbShow("SoftLanguage") 
XML.WriteRow "解压密码:" & XML.MdbShow("DecompressPassword") 
XML.WriteRow "添加时间:" & XML.MdbShow("CreateTime") 
XML.WriteRow "更新时间:" & XML.MdbShow("UpdateTime") 
XML.WriteRow "软件星级:" & XML.Img("Images\" & XML.MdbShow("Stars") & "star.gif")
XML.WriteRow "软件类型:" & XML.MdbShow("SoftType")
XML.WriteRow "授权方式:" & XML.MdbShow("CopyrightType")
XML.WriteRow "文件大小:" & XML.MdbShow("Softsize") & "KB"
XML.WriteRow "评论数:" & XML.A("查看","SoftComment.asp?ModuleType=2&amp;InfoID=" & ListKey & "&amp;ComeFrom=Special",XML.MdbShow("CommentCount"))
XML.WriteRow "下载统计:" &" 本日下载：" & XML.MdbShow("DayHits") & " 本周下载:" & XML.MdbShow("WeekHits") & " 本月下载:" & XML.MdbShow("MonthHits") & " 总共下载:" & XML.MdbShow("Hits")
XML.WriteRow "<b>详细说明:</b>"
ShowContent=XML.MdbShow("SoftIntro")
ShowContent=Replace(ShowContent,"[NextPage]","") '去掉动易的手工分页。
XML.MorePage XML.DelHtml(ShowContent),TextLong,True
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"

'更新浏览次数
XML.StrSql="Update SQ_Soft set AllHits=AllHits+1 Where SoftID=" & ListKey
XML.MdbDo
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","SQSpecialList.asp?Page=" & Session("MyPage") & "&amp;SpecialID=" & Session("BackSpecialID"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
