<% '========================================================= ' File: boardpermission.asp ' Version:5.0 Final ' Date: 2002-10-20 ' Script Written by sunwin '========================================================= dim orders stats="论坛用户组权限查询" if boardid=0 then call nav() call head_var(2,0,"","") else call nav() call head_var(1,BoardDepth,0,0) end if if Cint(GroupSetting(39))=0 then Errmsg=Errmsg+"
"+"

您没有浏览本论坛用户组权限的权限，请登陆或者同管理员联系。" founderr=true end if if master then founderr=false if founderr then call dvbbs_error() else if not isInteger(request("orders")) or request("orders")="" then orders=1 else orders=request("orders") end if call permission() if founderr then call dvbbs_error() call activeonline() end if call footer() REM 显示版面信息---Headinfo function groupnum() dim tmprs sql="Select count(*) from usergroups " set tmprs=conn.execute(sql) groupnum=tmprs(0) set tmprs=nothing if isnull(groupnum) then groupnum=0 end function sub permission() dim trs,ars,Groupname %>

&orders=1 >浏览权限	&orders=2 >发帖权限	&orders=3 >帖子管理权限	&orders=4 >其他权限	&orders=5 >管理权限	&orders=6 >短信权限

<% select case orders case 1 %> <% case 2 %>

浏览权限
用户组名(<%=groupnum()%>)	可以浏览论坛	可以查看会员信息(包括其他会员的资料和会员列表)	可以查看其他人发布的主题	可以浏览精华帖子

<% case 3 %>

发帖权限

用户组名(<%=groupnum()%>)

可以发布新主题

可以回复自己的主题

可以回复其他人的主题

可以在论坛允许评分的时候参与评分(鲜花和鸡蛋)?

参与评分所需金钱

可以上传附件

最多上传文件个数

上传文件大小限制

可以发布新投票

可以参与投票

可以发布小字报

发布小字报所需金钱

<% case 4 %>

帖子管理权限
用户组名(<%=groupnum()%>)	可以编辑自己的帖子	可以删除自己的帖子	可以移动自己的帖子到其他论坛	可以打开/关闭自己发布的主题

<% case 5 %>

其他权限
用户组名(<%=groupnum()%>)	可以搜索论坛	可以使用'发送本页给好友'功能	可以修改个人资料	帖子中可以查看其它人头衔	帖子中可以查看其它人头像	帖子中可以可以查看其它人签名	可以浏览论坛事件

<% case 6 %>

管理权限

用户组名(<%=groupnum()%>)

可以删除其它人帖子

可以移动其它人帖子

可以打开/关闭其它人帖子

可以固顶/解除固顶帖子

可以奖励/惩罚发贴用户

可以奖励/惩罚用户

可以编辑其它人帖子

可以加入/解除精华帖子

可以发布公告

可以管理公告

可以管理小字报

可以锁定/屏蔽/解除锁定用户

可以删除用户1－10天内所发帖子

可以查看来访IP及来源

可以限定IP来访

可以管理用户权限

可以批量删除帖子（前台）

<% case else %>

短信权限
用户组名(<%=groupnum()%>)	可以发送短信	最多发送用户	短信内容大小限制	信箱大小限制

<% end select set trs=conn.execute("select * from usergroups order by usergroupid") do while not trs.eof groupname=trs("title") set ars=conn.execute("select * from BoardPermission where BoardID="&boardid&" and GroupID="&trs("UserGroupID")) if not ars.eof then GroupSetting=split(ars("PSetting"),",") else GroupSetting=split(trs("GroupSetting"),",") end if select case orders case 1 %> <% case 2 %> <% case 3 %> <% case 4 %> <% case 5 %> <% case 6 %> <% case else %> <% end select trs.movenext loop set trs=nothing set ars=nothing %>

其他权限

用户组名(<%=groupnum()%>)

可以浏览论坛

可以查看会员信息(包括其他会员的资料和会员列表)

可以查看其他人发布的主题

可以浏览精华帖子

<%=groupname%>

<%if GroupSetting(0)=1 then%>√<%end if%><%if GroupSetting(0)=0 then%>>×<%end if%>

<%if GroupSetting(1)=1 then%>√<%end if%><%if GroupSetting(1)=0 then%>>×<%end if%>

<%if GroupSetting(2)=1 then%>√<%end if%><%if GroupSetting(2)=0 then%>>×<%end if%>

<%if GroupSetting(41)=1 then%>√<%end if%><%if GroupSetting(41)=0 then%>>×<%end if%>

<%=groupname%>

<%if GroupSetting(3)=1 then%>√<%end if%><%if GroupSetting(3)=0 then%>>×<%end if%>

<%if GroupSetting(4)=1 then%>√<%end if%><%if GroupSetting(4)=0 then%>>×<%end if%>

<%if GroupSetting(5)=1 then%>√<%end if%><%if GroupSetting(5)=0 then%>>×<%end if%>

<%if GroupSetting(6)=1 then%>√<%end if%><%if GroupSetting(6)=0 then%>>×<%end if%>

<%=GroupSetting(47)%>

<%if GroupSetting(7)=1 then%>√<%end if%><%if GroupSetting(7)=0 then%>>×<%end if%>

<%=GroupSetting(40)%>

<%=GroupSetting(44)%> KB

<%if GroupSetting(8)=1 then%>√<%end if%><%if GroupSetting(8)=0 then%>>×<%end if%>

<%if GroupSetting(9)=1 then%>√<%end if%><%if GroupSetting(9)=0 then%>>×<%end if%>

<%if GroupSetting(17)=1 then%>√<%end if%><%if GroupSetting(17)=0 then%>>×<%end if%>

<%=GroupSetting(46)%>

<%=groupname%>

<%if GroupSetting(10)=1 then%>√<%end if%><%if GroupSetting(10)=0 then%>>×<%end if%>

<%if GroupSetting(11)=1 then%>√<%end if%><%if GroupSetting(11)=0 then%>>×<%end if%>

<%if GroupSetting(12)=1 then%>√<%end if%><%if GroupSetting(12)=0 then%>>×<%end if%>

<%if GroupSetting(13)=1 then%>√<%end if%><%if GroupSetting(13)=0 then%>>×<%end if%>

<%=groupname%>

<%if GroupSetting(14)=1 then%>√<%end if%><%if GroupSetting(14)=0 then%>>×<%end if%>

<%if GroupSetting(15)=1 then%>√<%end if%><%if GroupSetting(15)=0 then%>>×<%end if%>

<%if GroupSetting(16)=1 then%>√<%end if%><%if GroupSetting(16)=0 then%>>×<%end if%>

<%if GroupSetting(36)=1 then%>√<%end if%><%if GroupSetting(36)=0 then%>>×<%end if%>

<%if GroupSetting(37)=1 then%>√<%end if%><%if GroupSetting(37)=0 then%>>×<%end if%>

<%if GroupSetting(38)=1 then%>√<%end if%><%if GroupSetting(38)=0 then%>>×<%end if%>

<%if GroupSetting(39)=1 then%>√<%end if%><%if GroupSetting(39)=0 then%>>×<%end if%>

<%=groupname%>

<%if GroupSetting(18)=1 then%>√<%end if%><%if GroupSetting(18)=0 then%>>×<%end if%>

<%if GroupSetting(19)=1 then%>√<%end if%><%if GroupSetting(19)=0 then%>>×<%end if%>

<%if GroupSetting(20)=1 then%>√<%end if%><%if GroupSetting(20)=0 then%>>×<%end if%>

<%if GroupSetting(21)=1 then%>√<%end if%><%if GroupSetting(21)=0 then%>>×<%end if%>

<%if GroupSetting(22)=1 then%>√<%end if%><%if GroupSetting(22)=0 then%>>×<%end if%>

<%if GroupSetting(43)=1 then%>√<%end if%><%if GroupSetting(43)=0 then%>>×<%end if%>

<%if GroupSetting(23)=1 then%>√<%end if%><%if GroupSetting(23)=0 then%>>×<%end if%>

<%if GroupSetting(24)=1 then%>√<%end if%><%if GroupSetting(24)=0 then%>>×<%end if%>

<%if GroupSetting(25)=1 then%>√<%end if%><%if GroupSetting(25)=0 then%>>×<%end if%>

<%if GroupSetting(26)=1 then%>√<%end if%><%if GroupSetting(26)=0 then%>>×<%end if%>

<%if GroupSetting(27)=1 then%>√<%end if%><%if GroupSetting(27)=0 then%>>×<%end if%>

<%if GroupSetting(28)=1 then%>√<%end if%><%if GroupSetting(28)=0 then%>>×<%end if%>

<%if GroupSetting(29)=1 then%>√<%end if%><%if GroupSetting(29)=0 then%>>×<%end if%>

<%if GroupSetting(30)=1 then%>√<%end if%><%if GroupSetting(30)=0 then%>>×<%end if%>

<%if GroupSetting(31)=1 then%>√<%end if%><%if GroupSetting(31)=0 then%>>×<%end if%>

<%if GroupSetting(42)=1 then%>√<%end if%><%if GroupSetting(42)=0 then%>>×<%end if%>

<%if GroupSetting(45)=1 then%>√<%end if%><%if GroupSetting(45)=0 then%>>×<%end if%>

<%=groupname%>

<%if GroupSetting(32)=1 then%>√<%end if%><%if GroupSetting(32)=0 then%>>×<%end if%>

<%=GroupSetting(33)%>

<%=GroupSetting(34)%> byte

<%=GroupSetting(35)%> KB

<%=groupname%>

<%if GroupSetting(0)=1 then%>√<%end if%><%if GroupSetting(0)=0 then%>>×<%end if%>

<%if GroupSetting(1)=1 then%>√<%end if%><%if GroupSetting(1)=0 then%>>×<%end if%>

<%if GroupSetting(2)=1 then%>√<%end if%><%if GroupSetting(2)=0 then%>>×<%end if%>

<%if GroupSetting(41)=1 then%>√<%end if%><%if GroupSetting(41)=0 then%>>×<%end if%>

<% end sub %>