<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
XML.WriteOut "<ul><li>"
Dim ListKey : ListKey=Request.QueryString("Id")
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ListKey
ShowContent=XML.MdbShow("Content")
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
'ShowContent="发表人:" & XML.MdbShow("PersonName") & "<br/>" & ShowContent
XML.MorePage ShowContent,TextLong,True
'以下为关于评论的信息
XML.StrSql="Select * From FreeWordReply Where FreeWordId=" & ListKey
XML.MdbDo
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","FreeWord_FindList.asp?Page=" & Session("MyPage"),"返回搜索列表")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
