<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListId")
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="Select * From UpLoadData Where Id=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "大小：" & XML.MdbShow("size") & "B"
XML.WriteRow "点击：" & XML.MdbShow("hits") & "次"
XML.WriteRow XML.A("确定",XML.WapPath & XML.MdbShow("datadir"),"立即下载")
XML.WriteRow "描述：" & XML.MdbShow("explain")
'更新查看次数
XML.StrSql="Update UpLoadData Set Hits=Hits+1 Where Id=" & ListKey
XML.MdbDo
'以下关于上一条、下一条记录
XML.RsInfoPlace="None"
XML.ErrorPagePath=""
XML.GoFileName="VideoDownShow.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from UpLoadData Where Type=2 And Id<" & ListKey & " Order By Id Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from UpLoadData Where Type=2 And Id>" & ListKey & " Order By Id Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteOut "无"
Else
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from UpLoadData Where Type=2 And Id>" & ListKey & " Order By Id Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from UpLoadData Where Type=2 And Id<" & ListKey & " Order By Id Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteOut "无"
End If
XML.WriteRow ""
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","VideoDownList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
