admin_group.asp

功能强大的一个b/s工作站

if request("groupaction")="yes" then
	dim GroupSetting
	if request.form("title")="" then
	response.write "请输入用户组名称！"
	exit sub
	end if
	GroupSetting=Request.Form("canview") & "," & Request.Form("canviewuserinfo") & "," & Request.Form("canviewpost") & "," & Request.Form("cannewpost") & "," & Request.Form("canreplymytopic") & "," & Request.Form("canreplytopic") & "," & Request.Form("canpostagree") & "," & Request.Form("canupload") & "," & Request.Form("canpostvote") & "," & Request.Form("canvote") & "," & Request.Form("caneditmytopic") & "," & Request.Form("candelmytopic") & "," & Request.Form("canmovemytopic") & "," & Request.Form("canclosemytopic") & "," & Request.Form("cansearch") & "," & Request.Form("canmailtopic") & "," & Request.Form("canmodify") & "," & Request.Form("cansmallpaper") & "," & Request.Form("candeltopic") & "," & Request.Form("canmovetopic") & "," & Request.Form("canclosetopic") & "," & Request.Form("cantoptopic") & "," & Request.Form("canawardtopic") & "," & Request.Form("canmodifytopic") & "," & Request.Form("canbesttopic") & "," & Request.Form("canAnnounce") & "," & Request.Form("canAdminAnnounce") & "," & Request.Form("canAdminPaper") & "," & Request.Form("canAdminUser") & "," & Request.Form("canDelUserTopic") & "," & Request.Form("canviewip") & "," & Request.Form("canadminip") & "," & Request.Form("cansendsms") & "," & Request.Form("Maxsendsms") & "," & Request.Form("Maxsmsbody") & "," & Request.Form("Maxsmsbox") & "," & Request.Form("canusetitle") & "," & Request.Form("canuseface") & "," & Request.Form("canusesign") & "," & Request.Form("canvieweven") & "," & Request.Form("canuploadnum") & "," & Request.Form("canviewbest") & "," & Request.Form("adminpermission") & "," & request.form("canaward") & "," & request.form("MaxUploadSize") & "," & request.form("canbatchtopic") & "," & request.form("smallpapermoney") & "," & request.form("postagreemoney") & "," & request.form("canadminfile") & "," & request.form("ba1") & "," & request.form("Maxcanuploadnum") & "," & request.form("ba3") & "," & request.form("ba4") & "," & request.form("ba5") & "," & request.form("ba6") & "," & request.form("ba7")
	'response.write GroupSetting
	'response.end
	set rs=conn.execute("select * from usertitle where usertitle='"&request.form("title")&"'")
	if not (rs.eof and rs.bof) then
		Errmsg="<br><li>该等级名称已经存在。"
		call dvbbs_error()
		exit sub
	end if
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from usergroups where title='"&request.form("title")&"'"
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("title")=request.form("title")
		rs("GroupSetting")=GroupSetting
		rs.update
	else
		Errmsg="<br><li>该用户组名称已经存在。"
		call dvbbs_error()
		exit sub
	end if
	rs.close
	set rs=nothing
	dim maxid,maxuserclass,toptitlepic
	set rs=conn.execute("select top 1 * from usergroups order by usergroupid desc")
	maxid=rs("usergroupid")
	set rs=conn.execute("select max(userclass) from usertitle")
	maxuserclass=rs(0)+1
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select * from usertitle where usertitle='"&request.form("title")&"'"
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("userclass")=maxuserclass
		rs("usertitle")=request.form("title")
		rs("minarticle")=-1
		rs("titlepic")="level10.gif"
		rs("usergroupid")=maxid
		rs.update
	else
		Errmsg="<br><li>该等级名称已经存在。"
		call dvbbs_error()
		exit sub
	end if
	rs.close
	set rs=nothing
	response.write "添加成功，其中同时对该组新增了论坛等级，新等级采用了默认的图片设置，您可以到等级管理中进行修改！"
else
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<FORM METHOD=POST ACTION="?action=addgroup">
<tr><td colspan=2 height=25 class="Forumrow"><B>说明</B>：<BR>①可以进行添加用户组操作并设置其权限，可以将其他组用户转移到该组，请到用户管理中进行相关操作，对某个组用户进行管理请点击该组用户列表<BR>②可以删除和编辑新添加的用户组<BR>③<B>添加组后最好到等级中添加相关组的等级</B>，具体说明请看添加等级页面，如果不添加相应等级，则该组用户的等级为用户组名，等级图象为论坛最低等级图象</td></tr>
<tr> 
<th height="23" colspan="2" >添加新的用户组</th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>用户组名称</td>
<td height="23" width="40%" class=Forumrow><input size=35 name="title" type=text></td>
</tr>
<tr> 
<th height="23" colspan="2" align=left>＝＝查看权限</th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以浏览论坛</td>
<td height="23" width="40%" class=Forumrow>是<input name="canview" type=radio value="1" checked>&nbsp;否<input name="canview" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以查看会员信息(包括其他会员的资料和会员列表)
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canviewuserinfo" type=radio value="1" checked>&nbsp;否<input name="canviewuserinfo" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以查看其他人发布的主题
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canviewpost" type=radio value="1" checked>&nbsp;否<input name="canviewpost" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以浏览精华帖子
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canviewbest" type=radio value="1" checked>&nbsp;否<input name="canviewbest" type=radio value="0"></td>
</tr>
<tr> 
<th height="23" colspan="2" align=left>＝＝<b>发帖权限</b></th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以发布新主题</td>
<td height="23" width="40%" class=Forumrow>是<input name="cannewpost" type=radio value="1" checked>&nbsp;否<input name="cannewpost" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以回复自己的主题
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canreplymytopic" type=radio value="1" checked>&nbsp;否<input name="canreplymytopic" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以回复其他人的主题
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canreplytopic" type=radio value="1" checked>&nbsp;否<input name="canreplytopic" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以在论坛允许评分的时候参与评分(鲜花和鸡蛋)?
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canpostagree" type=radio value="1" checked>&nbsp;否<input name="canpostagree" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>参与评分所需金钱
</td>
<td height="23" width="40%" class=Forumrow><input name="postagreemoney" type=text size=4 value="5"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以上传附件
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canupload" type=radio value="1" checked>&nbsp;否<input name="canupload" type=radio value="0">&nbsp;发帖可以上传<input name="canupload" type=radio value="2">&nbsp;回复可以上传<input name="canupload" type=radio value="3"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>一次最多上传文件个数
</td>
<td height="23" width="40%" class=Forumrow><input name="canuploadnum" type=text size=4 value="3"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>一天最多上传文件个数
</td>
<td height="23" width="40%" class=Forumrow><input name="Maxcanuploadnum" type=text size=4 value="30"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>上传文件大小限制
</td>
<td height="23" width="40%" class=Forumrow><input name="MaxUploadSize" type=text size=4 value="100"> KB</td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以发布新投票</td>
<td height="23" width="40%" class=Forumrow>是<input name="canpostvote" type=radio value="1" checked>&nbsp;否<input name="canpostvote" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以参与投票</td>
<td height="23" width="40%" class=Forumrow>是<input name="canvote" type=radio value="1" checked>&nbsp;否<input name="canvote" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以发布小字报</td>
<td height="23" width="40%" class=Forumrow>是<input name="cansmallpaper" type=radio value="1" checked>&nbsp;否<input name="cansmallpaper" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>发布小字报所需金钱</td>
<td height="23" width="40%" class=Forumrow><input name="smallpapermoney" type=text value="50" size=4></td>
</tr>
<tr> 
<th height="23" colspan="2" align=left>＝＝帖子/主题编辑权限</th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以编辑自己的帖子
</td>
<td height="23" width="40%" class=Forumrow>是<input name="caneditmytopic" type=radio value="1">&nbsp;否<input name="caneditmytopic" type=radio value="0" checked></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以删除自己的帖子
</td>
<td height="23" width="40%" class=Forumrow>是<input name="candelmytopic" type=radio value="1">&nbsp;否<input name="candelmytopic" type=radio value="0" checked></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以移动自己的帖子到其他论坛
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canmovemytopic" type=radio value="1">&nbsp;否<input name="canmovemytopic" type=radio value="0" checked></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以打开/关闭自己发布的主题
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canclosemytopic" type=radio value="1">&nbsp;否<input name="canclosemytopic" type=radio value="0" checked></td>
</tr>
<tr> 
<th height="23" colspan="2" align=left>＝＝其他权限</th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以搜索论坛
</td>
<td height="23" width="40%" class=Forumrow>是<input name="cansearch" type=radio value="1" checked>&nbsp;否<input name="cansearch" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以使用'发送本页给好友'功能
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canmailtopic" type=radio value="1">&nbsp;否<input name="canmailtopic" type=radio value="0" checked></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以修改个人资料
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canmodify" type=radio value="1" checked>&nbsp;否<input name="canmodify" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以浏览论坛事件
</td>
<td height="23" width="40%" class=Forumrow>是<input name="canvieweven" type=radio value="1" checked>&nbsp;否<input name="canvieweven" type=radio value="0"></td>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可浏览论坛展区的权限
</td>
<td height="23" width="40%" class=Forumrow>是<input name="ba1" type=radio value="1">&nbsp;否<input name="ba1" type=radio value="0" checked></td>
</tr>
<input type=hidden value=0 name="ba3">
<input type=hidden value=0 name="ba4">
<input type=hidden value=0 name="ba5">
<input type=hidden value=0 name="ba6">
<input type=hidden value=0 name="ba7">
<tr> 
<th height="23" colspan="2" align=left>＝＝管理权限</th>
</tr>
<tr>
<td height="23" width="60%" class=Forumrow>可以删除其它人帖子
</td>
<td height="23" width="40%" class=Forumrow>是<input name="candeltopic" type=radio value="1">&nbsp;否<input name="candeltopic" type=radio value="0" checked></td>