<% Function GroupPermission(GroupSetting) Dim reGroupSetting,Rs,UserHtml,UserHtmlA,UserHtmlB If GroupSetting="" Then Set Rs = Dvbbs.Execute("Select GroupSetting From Dv_UserGroups Where UserGroupID=4") reGroupSetting = Split(Rs(0),",") Else reGroupSetting = Split(GroupSetting,",") End If If reGroupSetting(58)="0" Then reGroupSetting(58)="§" UserHtml = Split(reGroupSetting(58),"§") If Ubound(UserHtml)=1 Then UserHtmlA=UserHtml(0) UserHtmlB=UserHtml(1) Else UserHtmlA="" UserHtmlB="" End If %> ＝＝浏览相关选项 用户名在帖子内容中显示标记
HTML语法，左右标记代码将加于用户名前后两头 左标记
右标记 允许用户自选风格 是checked<%end if%>> 否checked<%end if%>> 可以浏览论坛 是checked<%end if%>> 否checked<%end if%>> 可以查看会员信息(包括其他会员的资料和会员列表) 是checked<%end if%>> 否checked<%end if%>> 可以查看其他人发布的主题 是checked<%end if%>> 否checked<%end if%>> 可以浏览精华帖子 是checked<%end if%>> 否checked<%end if%>> ＝＝发帖权限 可以发布新主题 是checked<%end if%>> 否checked<%end if%>> 在审核模式下可直接发贴而不需经过审核 是checked<%end if%>> 否checked<%end if%>> 一天最多发贴数目 可以回复自己的主题 是checked<%end if%>> 否checked<%end if%>> 可以回复其他人的主题 是checked<%end if%>> 否checked<%end if%>> 可以发布新投票 是checked<%end if%>> 否checked<%end if%>> 可以参与投票 是checked<%end if%>> 否checked<%end if%>> 投票可以使用HTML语法 是checked<%end if%>> 否checked<%end if%>> 可以发布小字报 是checked<%end if%>> 否checked<%end if%>> 发布小字报所需金钱 可以发布特殊标题帖子（如标题加红、UBB语法等） 是checked<%end if%>> 否checked<%end if%>> 可以发布赠送金币贴，获赠金币贴，论坛交易帖 是checked<%end if%>> 否checked<%end if%>> 发表模式选择 可以发表论坛专题 是checked<%end if%>> 必选checked<%end if%>> 否checked<%end if%>> 新注册用户多少分钟后才能发言 分钟 是否允许使用魔法表情 checked<%end if%>>是  checked<%end if%>>否  ＝＝帖子/主题编辑权限 可以编辑自己的帖子 是checked<%end if%>> 否checked<%end if%>> 可以删除自己的帖子 是checked<%end if%>> 否checked<%end if%>> 可以移动自己的帖子到其他论坛 是checked<%end if%>> 否checked<%end if%>> 可以打开/关闭自己发布的主题 是checked<%end if%>> 否checked<%end if%>> ＝＝上传权限设置 可以上传附件 是checked<%end if%>> 否checked<%end if%>>  发帖可以上传checked<%end if%>> 回复可以上传checked<%end if%>> 一次批量上传数量(设置为0，即不允许使用此功能;建议不要超过5个) 一次最多上传文件个数 一天最多上传文件个数 上传文件大小限制 KB 可以下载附件 是checked<%end if%>> 否checked<%end if%>> ＝＝管理权限 可以删除其它人帖子 是checked<%end if%>> 否checked<%end if%>> 可以移动其它人帖子 是checked<%end if%>> 否checked<%end if%>> 可以打开/关闭其它人帖子 是checked<%end if%>> 否checked<%end if%>> 可以固顶/解除固顶帖子 是checked<%end if%>> 否checked<%end if%>> 可以进行帖子区域固顶操作 是checked<%end if%>> 否checked<%end if%>> 可以进行帖子总固顶操作 是checked<%end if%>> 否checked<%end if%>> 可以对用户评分 是checked<%end if%>> 否checked<%end if%>> 可以对独立用户进行奖励/惩罚 是checked<%end if%>> 否checked<%end if%>> 可以编辑其它人帖子 是checked<%end if%>> 否checked<%end if%>> 可以加入/解除精华帖子 是checked<%end if%>> 否checked<%end if%>> 可以发布公告 是checked<%end if%>> 否checked<%end if%>> 可以管理公告 是checked<%end if%>> 否checked<%end if%>> 可以管理小字报 是checked<%end if%>> 否checked<%end if%>> 可以锁定/屏蔽/解除锁定用户 是checked<%end if%>> 否checked<%end if%>> 可以删除用户1－10天内所发帖子 是checked<%end if%>> 否checked<%end if%>> 可以查看来访IP及来源 是checked<%end if%>> 否checked<%end if%>> 可以限定IP来访 是checked<%end if%>> 否checked<%end if%>> 可以管理用户权限 是checked<%end if%>> 否checked<%end if%>> 可以批量删除帖子（前台） 是checked<%end if%>> 否checked<%end if%>> 是否有审核帖子的权限 是checked<%end if%>> 否checked<%end if%>> 是否有进入隐含论坛的权限 是checked<%end if%>> 否checked<%end if%>> 有论坛文件管理权限 是checked<%end if%>> 否checked<%end if%>> ＝＝短信权限 可以发送短信 是checked<%end if%>> 否checked<%end if%>> 最多发送用户 短信内容大小限制 byte 信箱大小限制 条记录 新注册用户多少分钟后才能发短信 分钟 一天最多发短信数目 ＝＝其他权限 可以搜索论坛 是checked<%end if%>> 否checked<%end if%>> 可以使用'发送本页给好友'功能 是checked<%end if%>> 否checked<%end if%>> 可以修改个人资料 是checked<%end if%>> 否checked<%end if%>> 可以浏览论坛事件 是checked<%end if%>> 否checked<%end if%>> 可浏览论坛展区的权限 是checked<%end if%>> 否checked<%end if%>> 是否可以使用签名 是checked<%end if%>> 否checked<%end if%>> 签名的最大长度 字节 <% If InStr(Dvbbs.ScriptName,"admin_lockuser")=0 And Dvbbs.BoardID = 0 Then %> ＝＝重要权限设置 是否允许进入后台
通常此设置仅对管理员组开通，最好不要开通其他用户组此权限，如果想让某个用户进入后台可在用户自定义权限中设置（设置后还需要在管理员管理中添加后才正式生效） 开启checked<%end if%>> 关闭checked<%end if%>> <% Else Response.Write "" End If If Ubound(reGroupSetting)<90 Then Redim reGroupSetting(90) End If Dim VipMoneySetting If Instr(reGroupSetting(71),"§") and Ubound(Split(reGroupSetting(71),"§"))=3 Then VipMoneySetting = Split(reGroupSetting(71),"§") Else ReDim VipMoneySetting(3) VipMoneySetting(0)=0 VipMoneySetting(1)=0 VipMoneySetting(2)=0 VipMoneySetting(3)=0 End If %> ＝＝用户收费设置 升级到该组所需金币数
如用户需要升级到该用户组，用户只要付相应的金币和点券就能得到该组的使用时限（以天为单位）。每项设置不能为空。 金币数， 点券数， 天有效时限， 付费最低天数 <% End Function Function GetGroupPermission() '已用到90个定义 Dim i,TempSetting For i = 0 To 90 If Trim(Request.Form("GroupSetting("&i&")"))="" Then TempSetting = 0 Else TempSetting = Replace(Trim(Request.Form("GroupSetting("&i&")")),",","") End If If i = 0 Then GetGroupPermission = TempSetting ElseIf i = 58 Then GetGroupPermission = GetGroupPermission & "," & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")A")),",",""),"|||","") & "§" & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")B")),",",""),"|||","") ElseIf i = 71 Then GetGroupPermission = GetGroupPermission & "," & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")A")),",",""),"|||","") & "§" & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")B")),",",""),"|||","") & "§" & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")C")),",",""),"|||","") & "§" & Replace(Replace(Trim(Request.Form("GroupSetting("&i&")D")),",",""),"|||","") Else GetGroupPermission = GetGroupPermission & "," & TempSetting End If Next GetGroupPermission = Replace(GetGroupPermission,"'","''") End Function Function SysGroupName(ParentGID) Dim GroupName Select Case ParentGID Case 1 GroupName = "系统用户组 >> " Case 2 GroupName = "特殊用户组 >> " Case 3 GroupName = "注册用户组(等级) >> " Case 4 GroupName = "多属性用户组 >> " Case 5 GroupName = "VIP用户组 >> " Case 0 GroupName = "系统默认权限编辑 >> " End Select SysGroupName = GroupName End Function Sub Select_Group(SelGroupID) Dim Rs,Sql,i SelGroupID = ","&SelGroupID&"," Sql = "Select UserGroupID,Title,UserTitle,ParentGid,IsSetting From Dv_UserGroups where ParentGid>0 Order by ParentGid" Set Rs = Dvbbs.Execute(SQL) If Not Rs.eof Then SQL=Rs.GetRows(-1) Rs.close:Set Rs = Nothing Else Exit Sub End If %> <% End Sub %>