print.asp

教师评估系统

<!-- #include file="Cls.asp" --><%
ThreadID=ChkNumeric(Request.QueryString("Tid"))
sql="select IsDel,ForumID,PostsTableName,Topic from [WxThreads] where id="&ThreadID&""
Rs.Open sql,Conn,1
if Rs.Eof or Rs.bof then Error "系统错误","<li>该帖子不存在</li>"
ForumID=Rs(1)
ForumUrl=Cache("SiteURL")&"Forums.asp?Fid="&ForumID
PostsTableName=Rs(2)
TopicUrl=Cache("SiteURL")&"Threads.asp?Tid="&ThreadID
Topic=Rs(3)
Topic=ReplaceText(Topic,"<[^>]*>","")
top topic,False
if Rs(0)=1 then Error "系统错误","<li>该主题已被删除</li>"
Rs.close
Topic="<a target=""_blank"" href="""&TopicUrl&""">"&Topic&"</a>"
sql="select ForumName,Moderated from [WxForums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
if Rs.Eof then Error "系统错误","<li>该版块不存在</li>"
ForumName="<a target=""_blank"" href="""&ForumUrl&""">"&Rs(0)&"</a>"
Moderated=Rs(1)
Rs.close
SiteUrl=Cache("SiteUrl")&"Default.asp"
SiteName="<a target=""_blank"" href="""&SiteUrl&""">"&Cache("SiteName")&"</a>"
IsSearch=IsWebSearch()
%><!-- #include file="inc/ForumPermissions.asp" --><%if PermissionsRead=0 then Error "您的权限不足","<li><a href=ForumsPower.asp?Fid="&ForumID&">查看我的权限</a></li>"%>
<div class="dt">
<div>- <b><%=SiteName%></b> ( <a href="<%=SiteUrl%>"><%=SiteUrl%></a> )<br />-- <b><%=ForumName%></b> ( <a href="<%=ForumUrl%>"><%=ForumUrl%></a> )<br />--- <b><%=Topic%></b><%if IsSearch Then%>[<a href="Archiver/?t-<%=ThreadID%>.htm">自动存档</a>]<%end if%> ( <a href="<%=TopicUrl%>"><%=TopicUrl%></a> ) <br /></div><hr />
<%
sql="select UserName,PostTime,Content from [WxPosts"&PostsTableName&"] where ThreadID="&ThreadID&" order by id"
Set Rs=Conn.Execute(sql)
if Not Rs.Eof then PostList=Rs.GetRows()
Rs.Close
if IsArray(PostList) Then
For i=0 To UBound(PostList,2)
Username=PostList(0,i)
PostTime=PostList(1,i)
Content=PostList(2,i)
%>
作者：<%=UserName%><br />
时间：<%=Posttime%><br /><br />
<%=ReplaceText(""&Content&"","\[(postjb|postjy|postwz|postml|postww|postmoney|retopic|postfact|postme|postdj)[^]]*\].*\[\/[^]]*\]","此帖为特殊帖，请根据要求登录查看!")%><hr />
<%Next
end if%>
</div>
<div style="display:none"><%=Cache("BottomAd")%></div>
<%if IsSearch Then Response.write "<a href='http://www.wxsky.cn/'>论坛基于 WxBBS 构建</a>"%>
</body>
</html>
<%CloseDataBase%>