<%
ThreadID=RequestInt("ThreadID")
Set rs=Conn.Execute("Select * From [BBSXP_Threads] where ThreadID="&ThreadID)
if Rs.Eof then error("系统不存在此主题")
ForumID=Rs("ForumID")
Topic=Rs("Topic")
PostAuthor=Rs("PostAuthor")
TotalReplies=Rs("TotalReplies")
Rs.close
sql="select * from [BBSXP_Forums] where ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumName=Rs("ForumName")
ParentID=Rs("ParentID")
GroupID=Rs("GroupID")
Moderated=Rs("Moderated")
Rs.close
%>
<%
if PermissionManage=0 then error("您的权限不够")
HtmlTop
sql="select * from [BBSXP_Threads] where ThreadID="&ThreadID&" and ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
%>
<%
HtmlBottom
%>