<!--#Include File="WapConfig/WapHeader.asp"-->
<!--#Include FILE="WapConfig/function.asp"-->
<%
'以下为文件正文。
	CompanyId=XML.RequestText("Id")
	BackListPage=Request.QueryString("MyPage")

	Topic_ID = Request.QueryString("Topic_ID")
	if Topic_ID<>"" then  '防止翻页的时候找不到内容
	session("Topic_ID")=Topic_ID
	else
	Topic_ID=session("Topic_ID")
	end if
'以下是数据库的设置信息
XML.StrSql="SELECT T_subject,T_Message,T_Originator,T_Last_Member from Topics where Topic_ID="  & Topic_ID 
XML.WriteRow XML.MdbShow("T_subject")
XML.WriteOut XML.Div(,,"N")
XML.WriteRow "作者：" & XML.MdbShow("T_Last_Member")
XML.WriteRow "时间：" & XML.MdbShow("T_date")
XML.WriteRow "-----"
XML.AutoPage imgmark_del(XML.MdbShow("T_Message")),TextLong,True,1
'以下为关于帖子回复的信息
XML.StrSql="Select * From Reply Where Topic_ID=" & Topic_ID
XML.MdbDo
XML.WriteRow XML.ImgA("","Topic_ReplyList.asp?TopicID=" & Topic_ID,"论坛回复[" & XML.RecordCount & "条]")
XML.WriteRow XML.A("确定","new_Reply.asp?TopicID=" & Topic_ID,"回复本贴")
'以下为返回链接等信息。
XML.WriteOut XML.Div(,,"N")

XML.WriteRow XML.ImgA("Images/topt.gif","Topics.asp?Page=" &BackListPage,"返回上级")
%>
<!--#Include File="WapConfig/WapFooter.asp"-->
 
