⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_postings.asp

📁 论坛源码
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
	end if
case "解锁"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="unlock"
	if not canlocktopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "提升"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="uptopic"
	if not canlocktopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "删除主题"
	doWealth=-Forum_user(3)
	douserEP=-Forum_user(8)
	douserCP=-Forum_user(13)
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="delet"
	if not candeltopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "删除跟帖"
	doWealth=-Forum_user(3)
	douserEP=-Forum_user(8)
	douserCP=-Forum_user(13)
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="dele"
	set rs=conn.execute("select topic,username,postuserid from "&TotalUseTable&" where Announceid="&replyid)
	if rs.eof and rs.bof then
		Errmsg=Errmsg+"<br><li>没有找到相关跟贴！"
		founderr=true
		exit sub
	end if
	Topic=rs(0)
	TopicUsername=rs(1)
	TopicUserID=rs(2)
	'判断用户是否有删除帖子权限
	if (Cint(GroupSetting(11))=1 and TopicUsername=membername) then
		candeltopic=true
	end if
	if FoundUserPer and Cint(GroupSetting(11))=1 and TopicUsername=membername then
		candeltopic=true
	elseif FoundUserPer and Cint(GroupSetting(11))=0 and TopicUsername=membername then
		candeltopic=false
	end if
	if FoundUserPer and Cint(GroupSetting(18))=1 and TopicUsername<>membername then
		candeltopic=true
	elseif FoundUserPer and Cint(GroupSetting(18))=0 and TopicUsername<>membername then
		candeltopic=false
	end if
	if not candeltopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "精华"
	doWealth=Forum_user(15)
	douserEP=Forum_user(17)
	douserCP=Forum_user(16)
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="isbest"
	set rs=conn.execute("select topic,username,postuserid from "&TotalUseTable&" where Announceid="&replyid)
	if rs.eof and rs.bof then
		Errmsg=Errmsg+"<br><li>没有找到相关跟贴！"
		founderr=true
		exit sub
	end if
	Topic=rs(0)
	TopicUsername=rs(1)
	TopicUserID=rs(2)
	if not canbesttopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "解除精华"
	doWealth=-Forum_user(15)
	douserEP=-Forum_user(17)
	douserCP=-Forum_user(16)
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="nobest"
	set rs=conn.execute("select topic,username,postuserid from "&TotalUseTable&" where Announceid="&replyid)
	if rs.eof and rs.bof then
		Errmsg=Errmsg+"<br><li>没有找到相关跟贴！"
		founderr=true
		exit sub
	end if
	Topic=rs(0)
	TopicUsername=rs(1)
	TopicUserID=rs(2)
	if not canbesttopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "复制"
	doWealth=0
	douserEP=0
	douserCP=0
	seldisable="disabled"
	reaction="copy"
	set rs=conn.execute("select topic,username,postuserid from "&TotalUseTable&" where Announceid="&replyid)
	if rs.eof and rs.bof then
		Errmsg=Errmsg+"<br><li>没有找到相关跟贴！"
		founderr=true
		exit sub
	end if
	Topic=rs(0)
	TopicUsername=rs(1)
	TopicUserID=rs(2)
	'判断用户是否有移动帖子权限
	if (Cint(GroupSetting(12))=1 and TopicUsername=membername) then
		canmovetopic=true
	end if
	if FoundUserPer and Cint(GroupSetting(12))=1 and TopicUsername=membername then
		canmovetopic=true
	elseif FoundUserPer and Cint(GroupSetting(12))=0 and TopicUsername=membername then
		canmovetopic=false
	end if
	if FoundUserPer and Cint(GroupSetting(19))=1 and TopicUsername<>membername then
		canmovetopic=true
	elseif FoundUserPer and Cint(GroupSetting(19))=0 and TopicUsername<>membername then
		canmovetopic=false
	end if
	if not canmovetopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "固顶"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="istop"
	if not cantoptopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "解固"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="notop"
	if not cantoptopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "总固顶"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="istop_a"
	if not cantoptopic_a then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "解除总固顶"
	doWealth=0
	douserEP=0
	douserCP=0
	if canawardtopic then
	seldisable=""
	else
	seldisable="disabled"
	end if
	reaction="notop_a"
	if not cantoptopic_a then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "移动"
	doWealth=0
	douserEP=0
	douserCP=0
	seldisable="disabled"
	reaction="move"
	if not canmovetopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "奖励"
	doWealth=5
	douserEP=1
	douserCP=2
	seldisable=""
	reaction="award"
	if not canawardtopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case "惩罚"
	doWealth=-5
	douserEP=-1
	douserCP=-2
	seldisable=""
	reaction="punish"
	if not canawardtopic then
		Errmsg=Errmsg+"<br><li>您没有执行此操作的权限。"
		founderr=true
		exit sub
	end if
case else
	Errmsg=Errmsg+"<br><li>请指定相关参数！"
	founderr=true
	exit sub
end select
%>
<FORM METHOD=POST ACTION="admin_postings.asp?action=<%=reaction%>" name="frmAnnounce">
<table style="width:70%" cellspacing="1" cellpadding="3" align="center" class=tableborder1>
  <tr> 
    <th height=24>论坛帖子管理中心－－您要进行的操作是<%=request("action")%></th>
  </tr>   
  <tr> 
    <td class=tablebody1 height=24><b>
      操作理由</b>：  
	  <select name="title" size=1>
<option value="">自定义</option>
<option value="灌水">灌水</option>
<option value="广告">广告</option>
<option value="奖励">奖励</option>
<option value="好文章">好文章</option>
<option value="内容不符">内容不符</option>
<option value="重复发贴">重复发帖</option>
	  </select>
	  <input type="text" name="content" size=60>  *</td>
  </tr>   
  <tr> 
    <td class=tablebody1 height=24><b>
      用户操作</b>：  金钱
	<select name="doWealth" size=1 <%=seldisable%>>

<%for i=-50 to 50%>
<option value="<%=i%>" <%if cint(doWealth)=cint(i) then%>selected<%end if%>><%=i%></option>
<%next%>
	</select>&nbsp;魅力
	<select name="douserCP" size=1 <%=seldisable%>>

<%for i=-50 to 50%>
<option value="<%=i%>" <%if cint(dousercp)=cint(i) then%>selected<%end if%>><%=i%></option>
<%next%>
	</select>&nbsp;经验
	<select name="douserEP" size=1 <%=seldisable%>>

<%for i=-50 to 50%>
<option value="<%=i%>" <%if cint(douserep)=cint(i) then%>selected<%end if%>><%=i%></option>
<%next%>
	</select>&nbsp;<input type="checkbox" name="checkbox" value="checkbox" onclick="nocent()" <%=seldisable%>>不对用户进行分值操作
  </td>
  </tr> 
<input type=hidden value="<%=id%>" name="id">
<input type=hidden value="<%=replyid%>" name="replyid">
<input type=hidden value="<%=boardid%>" name="boardid">
  <tr> 
    <td height=24 class=tablebody1>
<B>短信通知</B>：<input type=text size=70 name="msg">&nbsp;<input type="checkbox" name="ismsg" value="1">使用</td>
  </tr>   
  <tr> 
    <td height=24 class=tablebody1>
<B>管理说明</B>：<BR>
①请慎重使用版主的管理职能，版主所有操作将被记录<BR>
②如果选择了短信通知，则会将删贴原因发送给用户，您也可以在短信中附上简短说明</td>
  </tr>   
  <tr> 
    <td height=24 class=tablebody2 align=center>
      <input type="submit" name=submit value="确认操作"></td>
  </tr>   
</table>
</FORM>
<script>
function nocent()
{
if(document.frmAnnounce.doWealth.disabled==true){
document.frmAnnounce.doWealth.disabled=false;
document.frmAnnounce.douserCP.disabled=false;
document.frmAnnounce.douserEP.disabled=false;
}else{
document.frmAnnounce.doWealth.disabled=true;
document.frmAnnounce.douserCP.disabled=true;
document.frmAnnounce.douserEP.disabled=true;
}
}
</script>
<%
	set rs=nothing
end sub
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -