<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下可以写文件正文 
Dim TopicId : TopicId=Request("TopicId")
If TopicId<>"" Then 
	Session("TopicId")=TopicId
Else 
	TopicId=Session("TopicId")
End If
XML.StrSql="Select * From Reply Where Topic_Id =" & TopicId & " order by R_Posted Desc" '要查询数据库的SQL语句。
XML.MdbDo
XML.WriteRow "共" & XML.RecordCount & "条回复。"
For I =1 To XML.RecordCount
    XML.WriteRow XML.A("","Topic_ReplyShow.asp?ReplyId=" & XML.RS("Reply_Id") & "&amp;TopicId=" & TopicId,I & "." & Left(XML.RS("R_Message"),30))
XML.Rs.MoveNext
Next
'以下为返回链接等信息。
XML.WriteRow XML.A("","New_Reply.asp?TopicId=" & TopicId,"回复本贴")
XML.WriteRow XML.A("","topic_show_content.asp?Id=" & TopicId & "&amp;ListId=" & TopicId,"返回帖子")
XML.WriteRow XML.A("","Forum.asp","返回版块")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
