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