<!--#Include FILE="WapConfig/WapHeader.asp"-->
<!--#Include FILE="WapConfig/function.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ReplyId")
TopicId=Request.QueryString("TopicId")
If ListKey<>"" Then 
	Session("ListKey")=ListKey 
	Session("TopicId")=TopicId 
Else 
	ListKey=Session("ListKey") 
	TopicId=Session("TopicId")
End If
XML.StrSql="Select * From Reply Where Reply_Id=" & ListKey
ShowContent=XML.MdbShow("R_Message")
DateTime=XML.MdbShow("R_Posted")
R_Posted_By=XML.MdbShow("R_Posted_By")
XML.StrSql="Select * From Members Where Member_id=" & R_Posted_By
PersonName=XML.MdbShow("M_Name") 

XML.WriteRow "回复人：" & PersonName
XML.WriteRow DateTime
XML.MorePage imgmark_del(ShowContent)
'以下为返回链接等
XML.WriteRow XML.ImgA("","Topic_ReplyList.asp?Page=" & Session("MyPage"),"回复列表")
XML.WriteRow XML.ImgA("","topic_show_content.asp?TopicId=" & TopicId,"返回帖子")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
