delpost.asp

教师评估系统

<!-- #include file="Cls.asp" --><%
top "删除帖子",true
ChkUser
ThreadID=ChkNumeric(Request("ThreadID"))
PostID=ChkNumeric(Request("PostID"))
Set Rs=Conn.Execute("select ForumID,PostsTableName,IsDel,Topic from [WxThreads] where id="&ThreadID&"")
if Rs.Eof then Error 5,"<li>该主题不存在</li>"
ForumID=Rs(0)
PostsTableName=Rs(1)
IsDel=Rs(2)
Topic=Rs(3)
Rs.close
if IsDel=1 then Error 6,"<li>该帖子已存放于回收站</li>"
ForumData=GetForumData(ForumID)
Moderated=ForumData(3)
%><!-- #include file="inc/ForumPermissions.asp" --><%
if PermissionsDelete=0 then Error 0,""

sql="select ID from [WxPosts"&PostsTableName&"] where id="&PostID&""
Rs.Open sql,Conn,1
if Rs.Eof then Error 5,"<li>该帖子不存在</li>"
if PermissionsManage=0 and BestRole<>1 then Error 0,""
Rs.close

if Request.ServerVariables("Request_method") <> "POST" then
%>
<script type="text/javascript" src="Inc/ProcessPost.js"></script>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%ForumTree(ForumData(0))%><%=ForumTreeList%> <a href=Forums.asp?Fid=<%=ForumID%>><%=ForumData(2)%></a> → <a href="Threads.asp?Tid=<%=ThreadID%>"><%=Topic%></a> → 删除帖子</div>
<form method="post" action="?<%=Request.ServerVariables("Query_String")%>">
<div class="tb dt">
<div id="tt">删除帖子</div>
<div class="tc b cb">
<div class="fl r w2 i"><b>发送通知</b><br />是否发送短讯通知发帖人</div>
<div class="fl i"><input type="radio" value="1" name="IsSendMessage" />是 
<input type="radio" value="0" name="IsSendMessage" checked="checked" />否</div>
</div>
<div class="tc b cb">
<div class="fl r w2 t"><b>操作原因</b><br />填写操作的原因<br /><select name="PostDeleteReason" onchange="PostDelReason(this.options[this.selectedIndex].value)"><script language="JavaScript">DelReasonOptions()</script></select></div>
<div class="fl t"><textarea id="ReasonBody" name="ReasonBody" rows="1" cols="1"></textarea></div>
</div>
<div class="tc cb ac"><input type="submit" id="submit" value="确定" /><input type="button" id="cancel" onclick="history.back()" value="取消" /></div>
</div>
</form>
<%
HtmlEnd
end if

sql="select * from [WxPosts"&PostsTableName&"] where id="&PostID&""
Rs.Open sql,Conn,1
if Rs.Eof then Error 5,"<li>该帖子不存在</li>"
if LCase(Rs("UserName"))<>LCase(CookieUserName) and PermissionsManage=0 then Error 0,""
 Subject=Rs("Subject")
 UserName=Rs("UserName")
 PostID=Rs("ID")
 ThreadID=Rs("ThreadID")
 IsTopic=Rs("IsTopic")
 PostTime=Rs("PostTime")
Rs.close

User2RoleID=Conn.Execute("select UserRoleID from [WxUsers] where UserName='"&UserName&"'")(0)
if UserRoleID>User2RoleID Then Error 0,""

if IsTopic=1 then
succtitle="删除主题"
Conn.Execute("update [WxUsers] set DelTopic=DelTopic+1,UserMoney=UserMoney+"&Cache("IntegralDeleteThread")&",Experience=Experience+"&Cache("IntegralDeleteThread")&" where UserName='"&UserName&"'")
Conn.Execute("update [WxThreads] set IsTop=0,IsDel=1,lastname='"&CookieUserName&"',lasttime="&SqlNowString&" where id="&ThreadID&"")
Conn.Execute("update [WxForums] set ForumThreads=ForumThreads-1,ForumPosts=ForumPosts-1 where id="&ForumID&"")
else
succtitle="删除回帖"
Conn.execute("delete from [WxPosts"&PostsTableName&"] where id="&PostID&"")
Conn.Execute("update [WxUsers] set DelTopic=DelTopic+1,UserMoney=UserMoney+"&Cache("IntegralDeletePost")&",Experience=Experience+"&Cache("IntegralDeletePost")&" where UserName='"&UserName&"'")
Conn.Execute("update [WxThreads] set replies=replies-1 where id="&ThreadID&"")
Conn.Execute("update [WxForums] set ForumPosts=ForumPosts-1 where id="&ForumID&"")
end if

UpForumData(ForumID)

ReasonBody=HTMLEncode(Request("ReasonBody"))
PostDeleteReason=HTMLEncode(Request("PostDeleteReason"))
if ReasonBody<>"" then ReasonBody="<br />"&ReasonBody
if PostDeleteReason<>"" and PostDeleteReason<>"选择一个原因" then
	PostDeleteReason="由于 "&PostDeleteReason&" "
Else
	PostDeleteReason=""
end if

if Request("IsSendMessage")=1 then
sql="insert into [WxSms](UserName,incept,content) values ('"&CookieUserName&"','"&PostAuthor&"','【系统通知】您于 "&PostTime&" 发表的帖子《"&Subject&"》"&PostDeleteReason&"被删除。"&ReasonBody&"')"
Conn.Execute(SQL)
Conn.Execute("update [WxUsers] set NewMessage=NewMessage+1 where UserName='"&PostAuthor&"'")
end if

if succtitle="" then Error "无效命令",""
Log(""&succtitle&"，帖子标题："&Subject&"，主题ID："&ThreadID&"，帖子ID："&PostID&"")
ForumCache(ForumID)
Succ succtitle,"<li><a href=Forums.asp?Fid="&ForumID&">返回版块</a></li>","Forums.asp?Fid="&ForumID%>