<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") '可以为D_ID
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="Select * from Newsdata Where D_ID=" & ListKey
Dim BackList '定义返回上级的哪一类别。
BackList=XML.MdbShow("D_ClassID")
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("D_Title") & "</h2>"
XML.WriteOut "<ul><li>"
ShowContent=XML.MdbShow("D_Content")
XML.MorePage ShowContent,TextLong,True
XML.WriteRow "浏览:" & XML.MdbShow("D_Count") & "次"
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'更新浏览次数
XML.StrSql="Update NewsData set D_Count=D_Count+1 Where D_ID=" & ListKey
XML.MdbDo
'以下关于上一条、下一条记录
XML.RsInfoPlace="None"
XML.ErrorPagePath=""
XML.FieldId="D_ID"
XML.FieldShow="D_Title"
XML.GoFileName="NewsShow.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from Newsdata where D_ID<" & ListKey & " Order By D_ID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from Newsdata where D_ID>" & ListKey & " Order By D_ID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
Else
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from Newsdata where D_ID>" & ListKey & " Order By D_ID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from Newsdata where D_ID<" & ListKey & " Order By D_ID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
End If
'以下为关于评论的信息
XML.StrSql="Select * From NewsPingLun Where NewId=" & ListKey
XML.MdbDo
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","NewsPingLunList.asp?NewId=" & ListKey,"发表评论[" & XML.RecordCount & "条]")
'以下为返回链接等

XML.WriteRow XML.ImgA("","NewsList.asp?Page=" & Session("MyPage") & "&amp;ListId=" & BackList,"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
