grouppermission.asp

公司企业网站管理系统全站源码正式免费版

<td class=td1><a href=# onclick="helpscript(g35);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr>
<td class=td1><input type="checkbox" class="checkbox" name="CheckGroupSetting(55)"></td>
<td  class=td2>是否可以使用签名
</td>
<td  class=td2>是<input name="GroupSetting(55)" type=radio class="radio" value="1"  <%if reGroupSetting(55)="1" then%>checked<%end if%>>&nbsp;否<input name="GroupSetting(55)" type=radio class="radio" value="0" <%if reGroupSetting(55)="0" then%>checked<%end if%>></td>
<input type="hidden" id="g36" value="<b>是否可以使用签名</b><br><li>在这里您可以根据需要设置不同用户组或等级用户是否是否可以使用签名，请根据自己的需要合理设置此选项">
<td class=td2><a href=# onclick="helpscript(g36);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr>
<td class=td1><input type="checkbox" class="checkbox" name="CheckGroupSetting(56)"></td>
<td  class=td1>签名的最大长度</td>
<td  class=td1><input name="GroupSetting(56)" type=text value="<%=reGroupSetting(56)%>" size=4> 字节</td>
<input type="hidden" id="g37" value="<b>签名的最大长度</b><br><li>在这里您可以根据需要设置不同用户组或等级用户签名的最大长度，请根据自己的需要合理设置此选项，为了避免影响帖子内容浏览，不建议对此项设置过大字节数">
<td class=td1><a href=# onclick="helpscript(g37);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr>
<td class=td1><input type="checkbox" class="checkbox" name="CheckGroupSetting(72)"></td>
<td  class=td2>是否直接显示在线多媒体播放标签
</td>
<td  class=td2>是<input name="GroupSetting(72)" type=radio class="radio" value="1"  <%if reGroupSetting(72)="1" then%>checked<%end if%>>&nbsp;否<input name="GroupSetting(72)" type=radio class="radio" value="0" <%if reGroupSetting(72)="0" then%>checked<%end if%>></td>
<input type="hidden" id="mt" value="<b>否直接显示在线多媒体播放标签</b><br><li>在这里您可以根据需要设置不同用户组或等级用户是否是否可以直接显示播放多媒体标签。">
<td class=td2><a href=# onclick="helpscript(mt);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<%
If InStr(Dvbbs.Scriptname,"admin_lockuser")=0 And Dvbbs.BoardID = 0 Then
%>
<tr> 
<th colspan="4"><a name="setting9"></a>＝＝重要权限设置</th>
</tr>
<tr>
<td class=td1><input type="checkbox" class="checkbox" name="CheckGroupSetting(70)"></td>
<td  class=td1>是否允许进入后台<BR>通常此设置仅对管理员组开通，最好不要开通其他用户组此权限，如果想让某个用户进入后台可在用户自定义权限中设置（设置后还需要在管理员管理中添加后才正式生效）</td>
<td  class=td1>开启<input name="GroupSetting(70)" type=radio class="radio" value="1"  <%if reGroupSetting(70)="1" then%>checked<%end if%>>&nbsp;关闭<input name="GroupSetting(70)" type=radio class="radio" value="0" <%if reGroupSetting(70)="0" then%>checked<%end if%>></td>
<input type="hidden" id="g70" value="<b>是否允许进入后台</b><br><li>通常此设置仅对管理员组开通，最好不要开通其他用户组此权限，如果想让某个用户进入后台可在用户自定义权限中设置（设置后还需要在管理员管理中添加后才正式生效）">
<td class=td1><a href=# onclick="helpscript(g70);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<%
Else
	Response.Write "<input name=""GroupSetting(70)"" type=hidden value="""&reGroupSetting(70)&""">"
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
%>
<tr> 
<th colspan="4"><a name="setting9"></a>＝＝用户收费设置</th>
</tr>
<tr>
<td class=td1><input type="checkbox" class="checkbox" name="CheckGroupSetting(71)"></td>
<td class=td1>升级到该组所需金币数<br>
如用户需要升级到该用户组，用户只要付相应的金币和点券就能得到该组的使用时限（以天为单位）。每项设置不能为空
</td>
<td class=td1>
<input type="text" name="GroupSetting(71)A" Value="<%=VipMoneySetting(0)%>" Size="4">金币数，
<input type="text" name="GroupSetting(71)B" Value="<%=VipMoneySetting(1)%>" Size="4">点券数，
<input type="text" name="GroupSetting(71)C" Value="<%=VipMoneySetting(2)%>" Size="4">天有效时限，
<input type="text" name="GroupSetting(71)D" Value="<%=VipMoneySetting(3)%>" Size="4">付费最低天数
</td>
<input type="hidden" id="g71" value="本设置只对VIP组有效。VIP用户组可以在论坛用户组管理里添加。">
<td class=td1><a href=# onclick="helpscript(g71);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr> 
<td class=td1>&nbsp;</td>
<td  class=td1 colspan=3><input type="submit" name="submit" value="提 交" class="button"></td>
</tr>
<%
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,UserGroupID"
Set Rs = Dvbbs.Execute(SQL)
If Not Rs.eof Then
	SQL=Rs.GetRows(-1)
	Rs.close:Set Rs = Nothing
Else
	Exit Sub
End If
%>
<div id="Select_Group" style="POSITION:absolute;Z-INDEX: 99;display:none;">
<table width="400" border=0><tr><td class=tablebody1>
<select name="SelGroupid" id="SelGroupid" size="28" style="width:100%" multiple>
<%
For i=0 To Ubound(SQL,2)
%>
<option value="<%=SQL(0,i)%>" <%If Instr(SelGroupID,","&SQL(0,i)&",") T