<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListId")
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="Select PersonName,Content,DateTime,Title,IP,PhoneNumber From FreeWordReply Where Id=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "IP:" & XML.MdbShow("IP")
XML.WriteOut "手机:" 
If XML.MdbShow("PhoneNumber")<>"" Then 
XML.WriteRow XML.MdbShow("PhoneNumber")
Else
XML.WriteOut "未知" 
End If
XML.WriteRow ""
ShowContent="发表人:" & XML.MdbShow("PersonName") & "<br/>内容:" & XML.MdbShow("Content")
XML.MorePage ShowContent,TextLong
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","FreeWord_ReplyList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
