<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") '可以为ADID
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="select * from nyeee_words where id=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Name") & "</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "联系人：" & XML.MdbShow("name")
XML.WriteRow "Email：" & XML.MdbShow("Email")
XML.WriteRow "QQ：" & XML.MdbShow("QQ")
XML.WriteRow "发布时间：" & XML.MdbShow("Date")
ShowContent=XML.MdbShow("Words") 
XML.MorePage ShowContent,TextLong,True
XML.WriteRow "回复：" & XML.MdbShow("Reply")
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"

XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
'以下为返回链接等

XML.WriteRow XML.ImgA("Images/back.gif","GBookList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
