<% id=int(Request("id")) forumid=Conn.Execute("Select forumid From forum where id="&id)(0) sql="select * from bbsconfig where id="&forumid&"" Set Rs=Conn.Execute(sql) bbsname=rs("bbsname") moderated=rs("moderated") pass=rs("pass") password=rs("password") rs.close sql="select * from forum where ID="&id&"" Set Rs=Conn.Execute(sql) %>
- <%=clubname%> ( http://<%=Request.ServerVariables("server_name")%>/Default.asp )
-- <%=bbsname%> ( http://<%=Request.ServerVariables("server_name")%>/ShowForum.asp?forumid=<%=forumid%> )
--- <%=rs("topic")%> ( http://<%=Request.ServerVariables("server_name")%><%=replace(Request.ServerVariables("script_name"),"print.asp","")%>ShowPost.asp?id=<%=id%> )


作者:<%=rs("username")%>
发表时间:<%=rs("posttime")%>


<% rs.close sql="select * from reforum where topicid="&id&" order by id" Set Rs=Conn.Execute(sql) Do While Not RS.EOF %>

作者:<%=rs("username")%>
发表时间:<%=rs("posttime")%>

<%=rs("content")%>


<% RS.MoveNext loop RS.Close htmlend %>