<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("D_ID")
If ListKey="" Then ListKey= Session("FindId")
Wap.StrSql="Select * from NewsData Where D_ID=" & ListKey
Wap.WriteRow "标题:" & Wap.MdbShow("D_Title")
Wap.WriteRow "作者:" & Wap.MdbShow("D_Author")
Wap.WriteRow "出处:" & Wap.MdbShow("D_Source")
Wap.WriteRow "时间:" & Wap.MdbShow("D_Time")
Wap.WriteRow "浏览:" & Wap.MdbShow("D_Count") & "次"
Wap.WriteRow "-----"
ShowContent=Wap.MdbShow("D_Content")
Wap.MorePage ShowContent,TextLong,False,True
If Wap.RecordCount<1 Then Wap.WriteRow "暂时没有您要找的信息。"
'更新浏览次数
Wap.StrSql="Update NewsData set D_Count=D_Count+1 Where D_ID=" & ListKey
Wap.MdbDo
'以下为返回链接等
Wap.WriteRow Wap.ImgA("","NewsList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
