threads.asp

教师评估系统

else
rs.Open sql,Conn,1
end if

if Rs.Eof then Error "系统错误","<li>该帖子不存在</li>"
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
if Not Rs.Eof then PostList=Rs.GetRows(pagesetup)
Rs.close

if IsArray(PostList) then
	For i=0 To UBound(PostList,2)
		PostID=PostList(0,i)
		ThreadID=PostList(1,i)
		Subject=PostList(2,i)
		UserName=PostList(3,i)
		Content=PostList(4,i)
		PostTime=PostList(5,i)	
		ShowFloor()
	Next
end if
'On Error Resume Next
%>
<a name="manage">
<div class="cb dt">
<div class="fl"><%ShowPage()%></div>
<div class="fr">
<%if Cache("ArchiverMode") Then%><a href="Archiver/tid-<%=ThreadID%>.html" target=_blank>帖子存档</a> | <%end if%>
<a href="Archiver/?t-<%=ThreadID%>.htm">自动存档</a> | <a href="MyPanel.asp?menu=AddFav&url=<%=Server.URLEncode(""&Request.ServerVariables("script_name")&"?"&Request.ServerVariables("Query_String")&"")%>&name=<%=Topic%>">加入书签</a>
<%if PermissionsManage=1 Then
Response.write " | <a href=""Manage.asp?menu=Award&ThreadID="&ThreadID&""">评价帖子</a> | "
if IsLocked=1 then
Response.write "<a onclick=""return ShowModal('解锁','Load.asp?menu=Confirm&item=DelIsLocked&Tid="&ThreadID&"');"">解锁</a> | "
else
Response.write "<a onclick=""return ShowModal('锁定','Load.asp?menu=Confirm&item=IsLocked&Tid="&ThreadID&"');"">锁定</a> | "
end if
if IsTop=3 then
Response.write "<a onclick=""return ShowModal('取消总置顶','Load.asp?menu=Confirm&item=untop&Tid="&ThreadID&"');"">取消总置顶</a> | "
else
Response.write "<a onclick=""return ShowModal('总置顶','Load.asp?menu=Confirm&item=top&Tid="&ThreadID&"');"">总置顶</a> | "
end if
if IsTop=2 then
Response.write "<a onclick=""return ShowModal('取消分区置顶','Load.asp?menu=Confirm&item=untop&Tid="&ThreadID&"');"">取消分区置顶</a> | "
else
Response.write "<a onclick=""return ShowModal('分区置顶','Load.asp?menu=Confirm&item=ClassTop&Tid="&ThreadID&"');"">分区置顶</a> | "
end if
if IsTop=1 then
Response.write "<a onclick=""return ShowModal('取消置顶','Load.asp?menu=Confirm&item=DelIsTop&Tid="&ThreadID&"');"">取消置顶</a> | "
else
Response.write "<a onclick=""return ShowModal('置顶主题','Load.asp?menu=Confirm&item=IsTop&Tid="&ThreadID&"');"">置顶</a> | "
end if
if IsGood=1 then
Response.write "<a onclick=""return ShowModal('取消精华','Load.asp?menu=Confirm&item=DelIsGood&Tid="&ThreadID&"');"">取消精华</a> | "
else
Response.write "<a onclick=""return ShowModal('取消精华','Load.asp?menu=Confirm&item=IsGood&Tid="&ThreadID&"');"">设为精华</a> | "
end if
%>
<a onclick="return ShowModal('移动主题','Move.asp?ThreadID=<%=ThreadID%>');">移动主题</a> | 
<a onclick="return ShowModal('修复统计','Load.asp?menu=Confirm&item=Fix&Tid=<%=ThreadID%>');">修复统计</a> | 
<a onclick="return ShowModal('拉前主题','Load.asp?menu=Confirm&item=MoveNew&Tid=<%=ThreadID%>');">拉前</a> | 
<a onclick="return ShowModal('主题沉底','Load.asp?menu=Confirm&item=FallTopic&Tid=<%=ThreadID%>');">沉底</a><%=paylink%><%end if%></div>
</div>
</a>
<%if IsLocked=0 and (PermissionsReply=1 Or (Not Cache("CloseVisitorRe") And (Not IsUser))) then%>
<div class="tb cb dt">
<form method="post" name="form" action="ReTopic.asp" onsubmit="return CheckForm(this);">
<input type="hidden" name="ThreadID" value="<%=ThreadID%>" />
<input type="hidden" name="Subject" value="Re:<%=Topic%>" />
<input type="hidden" name="content" />
<div id="tt">快速回复主题</div>
<%if Cache("PostVerifyCode") then%>
<div class="tc b cb">
<div class="fl r w2 si">验证码</div>
<div class="fl si"><%=WriteVerifyCode%></div>
</div>
<%end if%>
<div class="tc b cb">
<div class="fl r w2 mini">内容<br /><input type="checkbox" name="DisableYBBCode" id="DisableYBBCode" value="1" /><label for="DisableYBBCode">禁用YBB代码</label></div>
<div class="fl mini"><%WxEditor"mini","content","550px","100px"%></div>
</div>
<div class="tc ac"><input type="submit" id="submit" name="EditSubmit" value="回复主题" />　<%if (Not IsUser) And (Not Cache("CloseVisitorRe")) then%>访客昵称:<input size="15" name="VisitorName">(限12字内)<%end if%></div>
</form>
</div>
<%
end if
WxLine

sub ShowFloor()
if Cache("User_"&UserName)=Empty Then
 Set Rs1=Conn.Execute("select UserSex,UserRoleID,UserHonor,GoodTopic,PostTopic,PostRevert,Experience,UserMoney,UserFace,UserSign,UserRegTime  from [WxUsers] where UserName='"&UserName&"'")
 if Rs1.Eof then
  Conn.Execute("delete from [WxPosts"&PostsTableName&"] where UserName='"&UserName&"'")
  TotalCount=Conn.Execute("select count(ID) from [WxPosts"&PostsTableName&"] where ThreadID="&ThreadID&"")(0)
  Conn.Execute("update [WxThreads] set replies="&TotalCount&"-1 where id="&ThreadID&"")
 end if
 Experience=Rs1(6)
 ShowRank(Experience)
 Ord=Conn.Execute("select Count(ID) from [WxUsers] where Experience>"&Experience&"")(0)+1
 CacheAdd "User_"&UserName,ord&"||"&Rs1(0)&"||"&Rs1(1)&"||"&Rs1(2)&"||"&Rs1(3)&"||"&Rs1(4)&"||"&Rs1(5)&"||"&Experience&"||"&Rs1(7)&"||"&Rs1(8)&"||"&Rs1(9)&"||"&Rs1(10)&"||"&RankName&"||"&RankIconUrl
 Rs1.Close
end if
UserInfo=Split(Cache("User_"&UserName),"||")
UserSex=UserInfo(1)
Experience=UserInfo(7)
if UserSex<>"male" And UserSex<>"female" then UserSex="male"
%><div class="tb cb dt">
<table width="100%">
  <tr class="tc">
    <td width="180" rowspan="2" valign="top">
	<div class="fl p3"><a href="User.asp?Name=<%=UserName%>"><span class="male"><%=UserName%></span></a></div>
	<div class="fl small p3">&nbsp;(<%if Conn.Execute("select top 1 LastTime from [WxUsersOnline] where Eremite=0 and UserName='"&UserName&"'").Eof Then%>离线<%else%>在线<%end if%>)</div>
	<div class="fr ar p3"><img alt="Role" src="<%=UserInfo(13)%>" /></div>
	<%if EnableShowFace Then%>
	<div class="cb ac p3"><img alt="<%=UserName%>的头像" src="<%=UserInfo(9)%>" /></div>
	<%end if%>
	<div class="lh">角色 : <%
Select case UserInfo(2)
case 1,2
Response.write ShowRole(UserInfo(2))
case Else
if instr("|"&Moderated,"|"&UserName)>0 then
Response.write "版主"
Else
Response.write "注册会员"
end if
end Select
%><br />级别 : <%=UserInfo(12)%><br />
	发帖 : <%=int(UserInfo(5))+int(UserInfo(6))%>(<span class="red">精华:<%=UserInfo(4)%></span>)<br />
	经验 : <%=Experience%>(<span class="blue">排名:<%=UserInfo(0)%></span>)<br />金钱 : <%=UserInfo(8)%><br />注册 : <%=UserInfo(11)%></div>
	</td>
    <td valign="top">
	<div class="b cb">
	<div class="fl h2">
<a onclick="return ShowModal('发送讯息','MyPanel.asp?menu=Post&incept=<%=UserName%>');" title='发送短讯息给 <%=UserName%>'>讯息</a> 
<a target="_blank" href='MyPanel.asp?menu=add&UserName=<%=UserName%>' title='把 <%=UserName%> 加入好友'>好友</a> 
<a target="_blank" href="Manage.asp?menu=lookip&ThreadID=<%=ThreadID%>&PostID=<%=PostID%>">IP</a> 
<a href='ReTopic.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>&quote=True' title='引用回复这个帖子'>引用</a> 
<a href='ReTopic.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>' title='回复帖子'>回复</a> 
<a href='EditPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>' title='编辑帖子'>编辑</a> 
<a href='DelPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>' title='删除帖子'>删除</a>
	</div>
	<div class="fr gr h2"><b><%=i+1%><sup>F</sup></b></div>
	</div>
	<div class="p3 lh">
	<b><%=Subject%></b><br />
	<%if instr("|"&Cache("BannedUserPost")&"|","|"&UserName&"|")>0 then
	Response.write "<span class=red>该用户帖子已被过滤</span>"
	EnableShowSign=False
	else
  if i=0 Then Content=UBBCode(Content)
	Response.write Content
  if Award<>Empty Then
   Response.write "<br /><br />"&Award&"<br />"
   Award=""
	end if
  end if%>
	</div>
	</td>
  </tr>
  <tr class="tc"><td valign="bottom" class="ac"><%if EnableShowSign and UserInfo(10)<>Empty Then%><div class="tc ac" style='border:1px #ddd solid;border-collapse:collapse;width:95%; padding:10px 9px;'>
<span class="or"><%=YbbEncode(UserInfo(10))%></span>
</div><%end if%></td></tr>
  <tr class="tc"><td class="ac">发表：<%=PostTime%></td><td valign="bottom"><div id="Affiche"><script type="text/javascript" src="Inc/PostAd.js"></script></div></td></tr>
</table>
</div>
<%
Response.flush
end sub
HtmlEnd%>