manage.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%
top "管理帖子",true
ChkUser
ThreadID=ChkNumeric(Request("ThreadID"))
PostID=ChkNumeric(Request("PostID"))
MinAwardexp=int(Cache("MinAwardexp"))
MaxAwardexp=int(Cache("MaxAwardexp"))
MinAwardm=int(Cache("MinAwardm"))
MaxAwardm=int(Cache("MaxAwardm"))
sql="select ForumID,Topic,PostsTableName,UserName,Replies from [WxThreads] where id="&ThreadID&""
Rs.Open sql,Conn,1
if Rs.Eof then Error 5,"<li>该主题不存在</li>"
ForumID=Rs(0)
Topic="<a href=Threads.asp?Tid="&ThreadID&">"&Rs(1)&"</a>"
PostsTableName=Rs(2)
UserName=Rs(3)
Replies=Rs(4)
Rs.close
Moderated=Conn.Execute("select Moderated from [WxForums] where id="&ForumID&"")(0)
%>
<!-- #include file="inc/ForumPermissions.asp" -->
<%if PermissionsManage=0 then Error 0,""

select case Request("menu")
case "top"
if BestRole <> 1 Then ShadeReturn "您的权限不足",0
Conn.Execute("update [WxThreads] set IsTop=3 where id="&ThreadID&"")
ShadeReturn "总置顶主题成功",0
case "untop"
if BestRole <> 1 Then ShadeReturn "您的权限不足",0
Conn.Execute("update [WxThreads] set IsTop=0 where id="&ThreadID&"")
ShadeReturn "取消总置顶成功",0
case "ClassTop"
if BestRole <> 1 Then ShadeReturn "您的权限不足",0
Conn.Execute("update [WxThreads] set IsTop=2 where id="&ThreadID&"")
ShadeReturn "分区置顶成功",0
case "Fix"
TotalCount=Conn.Execute("select count(ID) from [WxPosts"&PostsTableName&"] where ThreadID="&ThreadID&"")(0)
Conn.Execute("update [WxThreads] set replies="&TotalCount&"-1 where id="&ThreadID&"")
ShadeReturn "修复主题成功",1
case "MoveNew"
Conn.Execute("update [WxThreads] set lasttime="&SqlNowString&" where id="&ThreadID&"")
ShadeReturn "拉前主题成功",0
case "Move"
AimForumID=ChkNumeric(Request("AimForumID"))
if AimForumID="" then Alert("请选择将主题移动到的版块")
Conn.Execute("update [WxThreads] set ForumID="&AimForumID&",IsTop=0 where id="&ThreadID&"")
ShadeReturn "移动主题成功",1
case "IsGood"
if Conn.Execute("select IsGood from [WxThreads] where id="&ThreadID&" ")(0)=1 then ShadeReturn "设为精华失败：此帖子已经是精华帖",0
Conn.Execute("update [WxThreads] set IsGood=1 where id="&ThreadID&"")
Conn.Execute("update [WxUsers] set goodTopic=goodTopic+1,UserMoney=UserMoney+"&Cache("IntegralAddValuedPost")&",Experience=Experience+"&Cache("IntegralAddValuedPost")&" where UserName='"&UserName&"'")
ShadeReturn "设为精华成功",0
case "DelIsGood"
if Conn.Execute("select IsGood from [WxThreads] where id="&ThreadID&" ")(0)=0 then ShadeReturn "取消精华失败：此帖子已经是普通帖",0
Conn.Execute("update [WxThreads] set IsGood=0 where id="&ThreadID&"")
Conn.Execute("update [WxUsers] set goodTopic=goodTopic-1,UserMoney=UserMoney+"&Cache("IntegralDeleteValuedPost")&",Experience=Experience+"&Cache("IntegralDeleteValuedPost")&" where UserName='"&UserName&"'")
ShadeReturn "取消精华成功",0
case "IsTop"
Conn.Execute("update [WxThreads] set IsTop=1 where id="&ThreadID&"")
ShadeReturn "置顶主题成功",0
case "DelIsTop"
Conn.Execute("update [WxThreads] set IsTop=0 where id="&ThreadID&"")
ShadeReturn "取消置顶成功",0
case "IsLocked"
Conn.Execute("update [WxThreads] set IsLocked=1 where id="&ThreadID&"")
ShadeReturn "锁定主题成功",1
case "DelIsLocked"
Conn.Execute("update [WxThreads] set IsLocked=0 where id="&ThreadID&"")
ShadeReturn "解锁主题成功",1
case "FallTopic"
Conn.Execute("update [WxThreads] set lasttime='"&Now()-365&"' where id="&ThreadID&"")
ShadeReturn "主题沉底成功",0
case "Award"
Forumname=Conn.Execute("select ForumName from [WxForums] where id="&ForumID&"")(0)
ParentID=Conn.Execute("select ParentID from [WxForums] where id="&ForumID&"")(0)
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%> <a href=Forums.asp?Fid=<%=ForumID%>><%=ForumName%></a> → <%=Topic%> → 帖子评分</div>
<script type="text/javascript" src="Inc/ProcessPost.js"></script>
<form method="post" name="form" action="?menu=Awardok">
<input type="hidden" value="<%=ThreadID%>" name="ThreadID" />
<div class="tb dt">
<div id="tt">帖子评分</div>
<div class="tc b cb">
<div class="fl r w2 si">经验</div>
<div class="fl si"><input type="text" name="Experience" value="0" onchange="ChkNaN(this)" /> (<%=MinAwardexp%>～<%=MaxAwardexp%>)</div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">金币</div>
<div class="fl si"><input type="text" name="Money" value="0" onkeyup="ChkNaN(this)" /> (<%=MinAwardm%>～<%=MaxAwardm%>)</div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">短讯通知</div>
<div class="fl si"><input type="radio" name="ifmsg" value="1" checked="checked" />是 <input type="radio" name="ifmsg" value="0" />否</div>
</div>
<div class="tc b cb">
<div class="fl r w2 t">原因<br /><select name="ReasonSelect" onchange="PostDelReason(this.options[this.selectedIndex].value)"><script language="JavaScript">DelReasonOptions()</script></select></div>
<div class="fl t"><textarea name="ReasonBody" rows="1" cols="1"></textarea></div>
</div>
<div class="tc cb ac"><input type="submit" id="submit" value=" 确  定 "></div>
</div>
</form>
<%
HtmlEnd

case "Awardok"
Experience=ChkNumeric(Request.Form("Experience"))
Money=ChkNumeric(Request.Form("Money"))
ReasonBody=ContentEncode(Request.Form("ReasonBody"))
if Experience>MaxAwardexp or Experience<MinAwardexp then Error2("经验值不在评价范围内")
if Money>MaxAwardm or Money<MinAwardm then Error2("金币值不在评价范围内")
AwardContent=Conn.Execute("select Award from [WxThreads] where id="&ThreadID&"")(0)&"&nbsp;&nbsp;<a href='User.asp?Name="&CookieUserName&"'>"&CookieUserName&"</a> 于 "&Now()&" 评价 金币<b>"&Money&"</b>、经验<b>"&Experience&"</b> ："&ReasonBody&"<br />"
Conn.Execute("update [WxThreads] set Award="&chr(34)&AwardContent&chr(34)&" where id="&ThreadID&"")
Conn.Execute("update [WxUsers] set UserMoney=UserMoney+"&Money&",Experience=Experience+"&Experience&" where UserName='"&UserName&"'")
if Request.Form("ifmsg")="1" then
Conn.Execute("insert into WxSms(UserName,incept,content) values ('"&CookieUserName&"','"&UserName&"','【系统消息】管理员"&CookieUserName&"已经为你的帖子《"&Request.Form("topic")&"》评分(经验+"&Experience&","&MoneyName&"+"&Money&")，因为"&ReasonBody&"')")
Conn.Execute("update [WxUsers] set NewMessage=NewMessage+1 where UserName='"&UserName&"'")
end if 
Succtitle="给帖子"&ThreadID&"评分"

case "lookip"
Forumname=Conn.Execute("select ForumName from [WxForums] where id="&ForumID&"")(0)
ParentID=Conn.Execute("select ParentID from [WxForums] where id="&ForumID&"")(0)
sql="select UserName,Posttime,PostIp from [WxPosts"&PostsTableName&"] where id="&PostID&""
Rs.Open sql,Conn,1
UserName=Rs(0)
Posttime=Rs(1)
PostIp=Rs(2)
Rs.close
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%> <a href=Forums.asp?Fid=<%=ForumID%>><%=ForumName%></a> → <%=Topic%> → 查看IP</div>
<div class="tb dt">
<div id="tt">查看发帖IP</div>
<div class="tc b cb">
<div class="fl r w2 si">用户名</div>
<div class="fl si"><%=UserName%></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">发表时间</div>
<div class="fl si"><%=Posttime%></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">IP地址</div>
<div class="fl si"><%=PostIp%> <a href="http://www.wxsky.cn/ip/?ip=<%=PostIp%>" target="_blank">[IP地理位置]</div>
</div>
</div>
<%
HtmlEnd

end select
if succtitle="" then Error 6,"<li>非法操作</li>"

Log(""&succtitle&"，主题ID："&ThreadID&"")

Set Rs2=Conn.Execute("select ID,Topic,LastName from [WxThreads] where IsDel=0 and ForumID="&ForumID&" Order by LastTime Desc")
if Not Rs2.Eof Then Conn.Execute("update [WxForums] Set LastTopic='<a href=Threads.asp?Tid="&Rs2(0)&">"&Left(ReplaceText(Rs2(1),"<[^>]*>",""),11)&"</a>',LastName='"&Rs2(2)&"',LastTime="&SqlNowString&" Where id="&ForumID&"")
Rs2.Close
Set Rs2=Nothing

if ForumID<>0 Then ForumCache(ForumID)
Succ succtitle,"<li><a href=Threads.asp?Tid="&ThreadID&">返回主题</a></li><li><a href=Forums.asp?Fid="&ForumID&">返回版块</a></li>","Forums.asp?Fid="&ForumID

sub ShadeReturn(desc,Reload)
Log(""&desc&"，主题ID："&ThreadID&"")
%><script type="text/javascript">
alert("<%=desc%>");
parent.ShadeDiv.Close();
<%if Reload=1 then Response.write "top.location.reload();"%>
</script><%
CloseDataBase
end sub
%>