print.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" -->
<%
id=int(Request("id"))

sql="Select * From [BBSXP_Threads] where ID="&ID&""
Rs.Open sql,Conn,1
ForumID=Rs("ForumID")
PostsTableName=Rs("PostsTableName")
Topic=Rs("Topic")
Rs.close

sql="select * from [BBSXP_Forums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumName=Rs("ForumName")
moderated=Rs("moderated")
ForumPass=Rs("ForumPass")
ForumPassword=Rs("ForumPassword")
ForumUserList=Rs("ForumUserList")
Rs.close
%>
<!-- #include file="inc/Validate.asp" -->
<title><%=Topic%></title>
<table cellpadding=0 cellspacing=0 border=0 width=100% align=center><tr><td>
- <b><%=SiteSettings("SiteName")%></b> ( http://<%=Request.ServerVariables("server_name")%>/Default.asp )<br>

-- <b><%=ForumName%></b> ( http://<%=Request.ServerVariables("server_name")%>/ShowForum.asp?ForumID=<%=ForumID%> )<br>

--- <b><%=Topic%></b> ( http://<%=Request.ServerVariables("server_name")%><%=replace(Request.ServerVariables("script_name"),"Print.asp","")%>ShowPost.asp?ThreadID=<%=id%> )
<br><br>
<hr>
<%

sql="select * from [BBSXP_Posts"&PostsTableName&"] where ThreadID="&id&" order by id"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
%><p>
作者：<%=Rs("UserName")%><br>
发表时间：<%=Rs("Posttime")%><br><br>
<%=Rs("content")%></p><hr>
<%
Rs.MoveNext
loop
Rs.Close


htmlend
%>