<% id=int(Request("id")) sql="Select * From forum where ID="&ID&"" rs.Open sql,Conn,1 forumid=rs("forumid") ReList=rs("ReList") rs.close sql="select * from bbsconfig where id="&forumid&"" Set Rs=Conn.Execute(sql) bbsname=rs("bbsname") moderated=rs("moderated") pass=rs("pass") password=rs("password") userlist=rs("userlist") rs.close sql="select * from forum where ID="&id&"" Set Rs=Conn.Execute(sql) %> align=center>
- <%=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("content")%>

<% replies=rs("replies") rs.close if replies > 0 then sql="select * from reforum"&ReList&" 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 end if htmlend %>