<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListId")
If ListKey="" Then ListKey= Session("FindId")
Wap.StrSql="Select PersonName,Content,DateTime,Title,IP,PhoneNumber From FreeWordReply Where Id=" & ListKey
Wap.WriteRow "标题:" & Wap.MdbShow("Title")
Wap.WriteRow "IP:" & Wap.MdbShow("IP")
Wap.WriteOut "手机:" 
If Wap.MdbShow("PhoneNumber")<>"" Then 
Wap.WriteRow Wap.MdbShow("PhoneNumber")
Else
Wap.WriteOut "未知" 
End If
Wap.WriteRow ""
ShowContent="发表人:" & Wap.MdbShow("PersonName") & "<br/>" & Wap.MdbShow("Content")
Wap.MorePage ShowContent,TextLong
'以下为返回链接等
If Wap.PhoneIP="211.94.69.240" Then '如果是我的手机则能看见手机号码
	Wap.WriteRow Wap.ImgA("","FreeWord_ReplyDel.asp?FindId=" & ListKey,"删除留言")	
End If
Wap.WriteRow Wap.ImgA("","FreeWord_FindText.asp","文章搜索")
Wap.WriteRow Wap.ImgA("","FreeWord_ReplyList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
