<!-- #Include File="Include/AMH_Onlogin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Data_Name="AsaiMHUserGroup"
tit_fir="用户组"
tit="用户组管理"
Admins = True
Call AMH_Header(1)
%>
<tr><td align=center colspan=2 height=30>
	<table border=0>
	<tr>
	<td><a href='?'><%Response.Write tit%></a></td>
	<td width=10></td>
	<td><a href='?Action=Add'>添加新<%Response.Write tit_fir%></a></td>
	</tr>
	</table>
</td></tr>
</table>
<%
Call AMH_Table(1)
     Cls.LoadTemplate(0)
Select Case LCase(Action)
Case "delete"
	AsaiMHUserGroup_Delete()
Case "orders"
	AsaiMHUserGroup_Orders()
Case "edit"
	AsaiMHUserGroup_Edit()
Case "editconfig"
	AsaiMHUserGroup_EditConfig()
Case "add"
	AsaiMHUserGroup_Add()
Case Else
	AsaiMHUserGroup_Main()
End Select
Call AMH_Ender(tit)
'//* 删除用户组 *//
Sub AsaiMHUserGroup_Delete()
	Call Cls.Exec("Delete From "&Data_Name&" Where GroupID="&ID,0)
	Call Cls.Cache_Del("user_group")
	Call AMH_Msg("成功删除一个"&tit_fir&"！\n\n点击返回...","?",1)
End Sub
'//* 用户组排序 *//
Sub AsaiMHUserGroup_Orders()
	Dim oid,id2,oid2,Actions
	oid=Cls.Code_ID("order_id")
	Actions=LCase(Cls.Code_Query("actions"))
	If Actions="Down" Then
		SQL = "Select Top 1 GroupID,GroupOrder From "&Data_Name&" Where GroupOrder>"&oid&" Order By GroupOrder"
	Else
		SQL = "Select Top 1 GroupID,GroupOrder From "&Data_Name&" Where GroupOrder<"&oid&" Order By GroupOrder Desc"
	End If
	Set Rs = Cls.Exec(SQL,1)
	If Rs.Eof Then
		Rs.Close
		Call AsaiMHUserGroup_Main()
		Exit Sub
	End If
	id2 = Rs(0)
	oid2 = Rs(1)
	Rs.Close
	Call Cls.Exec("Update "&Data_Name&" Set GroupOrder="&oid2&" Where GroupID="&ID,0)
	Call Cls.Exec("Update "&Data_Name&" Set GroupOrder="&oid&" Where GroupID="&id2,0)
	Call Cls.Cache_Del("user_group")
	Call AsaiMHUserGroup_Main()
End Sub
'//* 用户组权限编辑 *//
Sub AsaiMHUserGroup_EditConfig()
	'0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	Dim GroupGrade, GroupName, GroupConfig, iGroupConfig, iNum
	SQL = "Select Top 1 GroupGrade,GroupName,GroupConfig From "&Data_Name&" Where GroupID="&ID
	Call Cls.Exe_Conn(Rs,SQL,3)
	If Rs.Eof Then
		Rs.Close
		Call AMH_Msg(tit_fir&"ID（"&ID&"）不存在！","?",1)
		Exit Sub
	End If
	GroupName = Rs("GroupName")
	GroupConfig = Rs("GroupConfig")
	GroupGrade = Int(Rs("GroupGrade"))
	Call AMH_Td0(GroupName&"权限编辑",3)
	If Chk() Then
		For iNum = 0 To 48
			iGroupConfig = iGroupConfig & Cls.Code_Int("GroupConfig_"&iNUm,0) & ","
		Next
		iGroupConfig = iGroupConfig & Cls.Code_Int("GroupConfig_49",0)
		Rs("GroupConfig") = iGroupConfig
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("user_group")
		Call AMH_Msg("成功编辑"&GroupName&"权限","?",1)
		Exit Sub
	End If
	Call Form_First()
	Rs.Close
	GroupConfig = Split(GroupConfig,",")
%>
<form action='?Action=EditConfig&ID=<%Response.Write ID%>' method=post>
<input type=hidden name=chk value='yes'>
<tr class=tr1>
<td width='18%'>开放用户信息：</td>
<td width='70%'><%Response.Write InputInit("GroupConfig_0",Split("开放|屏弊","|"),Split("1|0","|"),GroupConfig(0))%></td>
<td width='12%'><%Call AMH_Read("","开放用户信息","开放用户联系信息，浏览时对于管理员及好友无效")%></td>
</tr>
<tr>
<td>用户邮件修改：</td>
<td><%Response.Write InputInit("GroupConfig_1",Split("是|否","|"),Split("1|0","|"),GroupConfig(1))%></td>
<td><%Call AMH_Read("","用户邮件修改","用户是否可以修改邮件")%></td>
</tr>
<tr>
<td>用户头衔修改：</td>
<td><%Response.Write InputInit("GroupConfig_2",Split("是|否","|"),Split("1|0","|"),GroupConfig(2))%></td>
<td><%Call AMH_Read("","用户头衔修改","用户是否可修改头衔")%></td>
</tr>
<tr>
<td>博客申请审核：</td>
<td><%Response.Write InputInit("GroupConfig_31",Split("是|否","|"),Split("1|0","|"),GroupConfig(31))%></td>
<td><%Call AMH_Read("","博客申请审核状态","申请博客是否需要审核")%></td> 
</tr>
<tr>
<td>特殊贴直接浏览权限：</td>
<td><%response.write Inputinit("GroupConfig_19",Split("开启|禁用","|"),Split("1|0","|"),groupconfig(19))%></td>
<td><%Call AMH_read("","特殊贴直接浏览权限","前台论坛用户是否可以直接浏览特殊贴")%></td>
</tr>
<tr> 
<td>专题贴发布编辑权限：</td> 
<td><%Response.Write InputInit("GroupConfig_21",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(21))%></td> 
<td><%Call AMH_Read("","专题贴发布编辑权限","用户前台发布编辑论坛贴时是否显示论坛专题")%></td> 
</tr>
<tr class=tr1>
<td>分值换算功能：</td>
<td><%Response.Write InputInit("GroupConfig_3",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(3))%></td>
<td><%Call AMH_Read("","分值换算功能","是否可用分值换算功能")%></td>
</tr>
<tr> 
<td>积分换算系数：</td>
<td><input type=text name=GroupConfig_4 value='<%Response.Write GroupConfig(4)%>' size=10 maxlength=4>&nbsp;分&nbsp;换&nbsp;<font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","积分换算系数","积分换算货币（"&Cls.web_unit&"）的系数")%></td>
</tr>
<tr>
<td>经验换算系数：</td>
<td><input type=text name=GroupConfig_27 value='<%Response.Write GroupConfig(27)%>' size=10 maxlength=4>&nbsp;分&nbsp;换&nbsp;<font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","经验换算系数","经验换算货币（"&Cls.web_unit&"）的系数")%></td>
</tr>
<tr>
<td>体力换算系数：</td>
<td><input type=text name=GroupConfig_28 value='<%Response.Write GroupConfig(28)%>' size=10 maxlength=4>&nbsp;分&nbsp;换&nbsp;<font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","体力换算系数","体力换算货币（"&Cls.web_unit&"）的系数")%></td>
</tr>
<tr>
<td>货币换积分系数：</td>
<td><font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%>可以换&nbsp;<input type=text name=GroupConfig_29 value='<%Response.Write GroupConfig(29)%>' size=8 maxlength=4>&nbsp;&nbsp;点积分</td>
<td><%Call AMH_Read("","货币换积分系数","货币（"&Cls.web_unit&"）换算积分的系数")%></td>
</tr>
<tr>
<td>货币换经验系数：</td>
<td><font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%>可以换&nbsp;<input type=text name=GroupConfig_30 value='<%Response.Write GroupConfig(30)%>' size=8 maxlength=4>&nbsp;&nbsp;点经验</td>
<td><%Call AMH_Read("","货币换经验系数","货币（"&Cls.web_unit&"）换算经验的系数")%></td>
</tr>
<tr>
<td>货币换体力系数：</td>
<td><font class=red>1</font>&nbsp;<%Response.Write Cls.web_unit%>可以换&nbsp;<input type=text name=GroupConfig_20 value='<%Response.Write GroupConfig(20)%>' size=8 maxlength=4>&nbsp;&nbsp;点体力</td>
<td><%Call AMH_Read("","积分换算系数","货币（"&Cls.web_unit&"）换算体力的系数")%></td>
</tr>
<tr class=tr1>
<td>会员转帐功能：</td>
<td><%Response.Write InputInit("GroupConfig_5",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(5))%></td>
<td><%Call AMH_Read("","会员转帐功能","是否开放会员间的转帐功能")%></td>
</tr>
<tr>
<td>转帐手续费：</td>
<td><input type=text name=GroupConfig_6 value='<%Response.Write GroupConfig(6)%>' size=10 maxlength=2> %，百分点，结果4舍5入，小于<font class=red>1</font>时按<font class=red>1</font>计算</td>
<td><%Call AMH_Read("","转帐手续费","开放转帐时的手续费（百分点）")%></td>
</tr>
<tr class=tr1>
<td>前台上传状态：</td>
<td><%Response.Write InputInit("GroupConfig_8",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(8))%></td>
<td><%Call AMH_Read("","前台上传状态","用户组前台上传功能是否开启")%></td>
</tr>
<tr>
<td>每日上传次数：</td>
<td><input type=text name=GroupConfig_18 value='<%Response.Write GroupConfig(18)%>' size=10 maxlength=3>&nbsp;次</td>
<td><%Call AMH_Read("","每日上传次数","每日用户上传次数")%></td>
</tr>
<tr class=tr1>
<td>会员上传和自定义头像：</td>
<td><%Response.Write InputInit("GroupConfig_7",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(7))%></td>
<td><%Call AMH_Read("","会员上传和自定义头像","是否启用会员上传和自定义头像功能")%></td>
</tr>
<tr>
<td>头像上传大小：</td>
<td><input type=text name=GroupConfig_9 value='<%Response.Write GroupConfig(9)%>' size=10 maxlength=6>&nbsp;KB</td>
<td><%Call AMH_Read("","头像上传大小","用户头像上传大小限制（KB）")%></td>
</tr>
<tr class=tr1>
<td>购买虚拟币功能：</td>
<td><%Response.Write InputInit("GroupConfig_10",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(10))%></td>
<td><%Call AMH_Read("","购买虚拟币功能","是否启用用户购买虚拟币功能")%></td>
</tr>
<tr>
<td>人民币购买系数：</td>
<td>&nbsp;<font class=red>1</font>元&nbsp;可购买&nbsp;<input type=text name=GroupConfig_11 value='<%Response.Write GroupConfig(11)%>' size=10 maxlength=5>&nbsp;<%Response.Write Cls.web_unit%></td>
<td><%Call AMH_Read("","人民币购买系数","人民币购买货币（"&Cls.web_unit&"）的系数")%></td>
</tr>
<tr>
<td>最低消费额：</td>
<td><input type=text name=GroupConfig_12 value='<%Response.Write GroupConfig(12)%>' size=10 maxlength=3> 元</td>
<td><%Call AMH_Read("","最低消费额","人民币换货币的最低消费额")%></td>
</tr>
<tr class=tr1>
<td>会员卡充值：</td>
<td><%Response.Write InputInit("GroupConfig_13",Split("开启|禁用","|"),Split("1|0","|"),GroupConfig(13))%>
</td>
<td><%Call AMH_Read("","会员卡充值","是否启用会员卡充值功能")%></td>
</tr>
<tr>
<td>发短信扣分：</td>
<td><input type=text name=GroupConfig_14 value='<%Response.Write GroupConfig(14)%>' size=10 maxlength=3>&nbsp;分</td>
<td><%Call AMH_Read("","发短信扣分","每发一条短信所扣的用户积分")%></td>
</tr>
<tr class=tr1>
<td>短信收藏个数：</td>
<td><input type=text name=GroupConfig_17 value='<%Response.Write GroupConfig(17)%>' size=10 maxlength=3>&nbsp;个</td>
<td><%Call AMH_Read("","短信收藏个数","用户短信收藏个数")%></td>
</tr>
<tr>
<td>发布信息得分(后两个未搞留位)：</td>
<td><input type=text name=GroupConfig_15 value='<%Response.Write GroupConfig(15)%>' size=10 maxlength=3>&nbsp;积分&nbsp;&nbsp;<input type=text name=GroupConfig_22 value='<%Response.Write GroupConfig(22)%>' size=10 maxlength=3>&nbsp;经验&nbsp;&nbsp;<input type=text name=GroupConfig_23 value='<%Response.Write GroupConfig(23)%>' size=10 maxlength=3>&nbsp;体力</td>
<td><%Call AMH_Read("","发布信息得分","用户中心发布信息得分数")%></td>
</tr>
<tr>
<td>发布信息扣分(还未搞留位)：</td>
<td><input type=text name=GroupConfig_24 value='<%Response.Write GroupConfig(24)%>' size=10 maxlength=3>&nbsp;积分&nbsp;&nbsp;<input type=text name=GroupConfig_25 value='<%Response.Write GroupConfig(25)%>' size=10 maxlength=3>&nbsp;经验&nbsp;&nbsp;<input type=text name=GroupConfig_26 value='<%Response.Write GroupConfig(26)%>' size=10 maxlength=3>&nbsp;体力</td>
<td><%Call AMH_Read("","发布信息扣分","用户中心发布信息得分数")%></td>
</tr>
<%
	Erase GroupConfig
	Call Submit_Init("修改",3)
End Sub

'//* 用户组编辑 *//
Sub AsaiMHUserGroup_Edit()
	Dim GroupType, GroupPower, GroupName, GroupGrade, GroupOrder
	Dim FontColor, GlowColor
	Dim Rs2
	SQL = "Select Top 1 * From "&Data_Name&" Where GroupID="&ID
	Call Cls.Exe_Conn(Rs,SQL,3)
	If Rs.Eof Then
		Rs.Close
		Call AMH_Msg(tit_fir&"ID（"&ID&"）不存在！","?",1)
		Exit Sub
	End If
	Call AMH_Td("编辑"&tit_fir)
	If Chk() Then
		GroupPower=Cls.Code_Admin("GroupPower",1,20)
		GroupName=Cls.Code_Admin("GroupName",1,20)
		GroupGrade=Cls.Code_Int("GroupGrade",1)
		If Int(GroupGrade)<1 Then GroupGrade=Rs("GroupGrade")
		GroupOrder=Cls.Code_Int("GroupOrder",1)
		If Int(GroupOrder)<1 Then GroupOrder=Rs("GroupOrder")
		If GroupPower="" Or GroupName="" Then
			Rs.Close
			Call AMH_Error(tit_fir&"的 代码 和 名称 不能为空！")
			Exit Sub
		End If
		SQL="Select Count(GroupID) From "&Data_Name&" Where GroupID<>"&id&" And (GroupPower='"&GroupPower&"' Or GroupName='"&GroupName&"')"
		Set Rs2=Cls.Exec(SQL,1)
		If Rs2(0)>0 Then
			Rs2.Close
			Set Rs2=Nothing
			Rs.Close
			Call AMH_Error(tit_fir&"的 代码("&GroupPower&") 和 名称("&GroupName&") 不可重复！")
			Exit Sub
		End If
		Rs2.Close
		Set Rs2=Nothing
		FontColor=Cls.Code_Admin("FontColor",1,6)
		GlowColor=Cls.Code_Admin("GlowColor",1,6)
		Rs("GroupPower")=GroupPower
		Rs("GroupName")=GroupName
		Rs("GroupGrade")=GroupGrade
		Rs("GroupOrder")=GroupOrder
		Rs("FontColor")=FontColor
		Rs("GlowColor")=GlowColor
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("user_group")
		Call AMH_Msg("成功编辑一项"&tit_fir&"信息","?",1)
		Exit Sub
	End If
	Call Form_First()
	GroupPower=Rs("GroupPower")
	GroupType=Rs("GroupType")
%>
<form action='?Action=Edit&ID=<%Response.Write ID%>' method=post>
<input type=hidden name=chk value='yes'>
<tr class=tr1>
<td width='20%'><%Response.Write tit_fir%>代码：</td>
<td width='80%'><input type=text name=GroupPower value='<%Response.Write GroupPower%>' size=20 maxlength=20><%Response.Write redx%>不可随意修改</td>
</tr>
<tr>
<td><%Response.Write tit_fir%>图标：</td>
<td><%Response.Write Cls.img("icon_"&GroupPower)&Cls.web_skindir&"sys/Icon_<font class=red>"&GroupPower&"</font>.gif"%></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>类型：</td>
<td><%
		Select Case Int(GroupType)
		Case 0
			Response.Write "普 通 组"
		Case 1
			Response.Write "管 理 组"
		Case 2
			Response.Write "超级版主"
		Case 3
			Response.Write "版 主 组"
		Case 4
			Response.Write "V I P 组"
		Case 5
			Response.Write "贵 宾 组"
		Case else
			Response.Write "<font class=Gys>自 定 义</font>"
		End Select
%></td>
</tr>
<tr class=tr1>
<td><%Response.Write tit_fir%>名称：</td>
<td><input type=text name=GroupName value='<%Response.Write Rs("GroupName")%>' size=20 maxlength=20><%Response.Write Redx%></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>名称颜色：</td>
<td>字体颜色：&nbsp;&nbsp;<%Response.write ShowColor("FontColor",Rs("FontColor"))%>&nbsp;&nbsp;阴影颜色：&nbsp;&nbsp;<%Response.write ShowColor("GlowColor",Rs("GlowColor"))%></td>
</tr>
<tr>
<td>权限标识：</td>
<td><input type=text name=GroupGrade value='<%Response.Write Rs("GroupGrade")%>' size=20 maxlength=2><%Response.Write redx%>大于0的整数</td>
</tr>
<tr>
<td>排序号码：</td>
<td><input type=text name=GroupOrder value='<%Response.Write Rs("GroupOrder")%>' size=20 maxlength=2><%Response.Write redx%>大于0的整数</td>
</tr>
<%
	Rs.Close
	Call Submit_Edit()
End Sub

'//* 用户组添加 *//
Sub AsaiMHUserGroup_Add()
	Dim GroupType, GroupPower, GroupName, GroupGrade, GroupOrder, GroupConfig
	Dim FontColor, GlowColor
	Dim tmp_grade, tmp_order
	Call AMH_Td("添加"&tit_fir)
	tmp_grade=Cls.Max_ID(Data_Name,"GroupGrade","")+1
	tmp_order=Cls.Max_ID(Data_Name,"GroupOrder","")+1
	If Chk() Then
		GroupPower=Cls.Code_Admin("GroupPower",1,20)
		GroupName=Cls.Code_Admin("GroupName",1,20)
		If GroupPower="" Or GroupName="" then
			Call AMH_Error(tit_fir&"的 代码 和 名称 不能为空！")
			Exit Sub
		End If
		SQL="Select Count(GroupID) From "&Data_Name&" Where GroupPower='"&GroupPower&"' Or GroupName='"&GroupName&"'"
		Set Rs=Cls.Exec(SQL,1)
		If Rs(0)>0 Then
			Rs.Close
			Call AMH_Error("添加的"&tit_fir&"信息不可重复！")
			Exit Sub
		End If
		Rs.Close
		FontColor=Cls.Code_Admin("FontColor",1,6)
		GlowColor=Cls.Code_Admin("GlowColor",1,6)
		SQL="Select GroupConfig From "&Data_Name&" Order By GroupID Desc"
		Set Rs=Cls.Exec(SQL,1)
		GroupConfig = Rs(0)
		Rs.Close
		SQL="Select * From "&Data_Name
		Call Cls.Exe_Conn(Rs,SQL,3)
		Rs.AddNew
		Rs("GroupPower")=GroupPower
		Rs("GroupType")=-1
		Rs("GroupName")=GroupName
		Rs("GroupGrade")=tmp_grade
		Rs("GroupOrder")=tmp_order
		Rs("GroupConfig")=GroupConfig
		Rs("FontColor")=FontColor
		Rs("GlowColor")=GlowColor
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("user_group")
		Call AMH_Msg("成功添加一项新的"&tit_fir&"信息","?",1)
		Exit Sub
	End If
	Call Form_First()
%>
<form action='?Action=Add' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'><%Response.Write tit_fir%>代码：</td>
<td width='80%'><input type=text name=GroupPower value='' size=20 maxlength=20><%Response.Write redx%>不可随意修改</td>
</tr>
<tr>
<td><%Response.Write tit_fir%>图标：</td>
<td><%Response.Write Cls.web_skindir&"sys/icon_<font class=red>代码</font>.gif"%></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>类型：</td>
<td><font class=Gys>自 定 义</font></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>名称：</td>
<td><input type=text name=GroupName value='' size=20><%Response.Write redx%></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>名称颜色：</td>
<td>字体颜色：&nbsp;&nbsp;<%Response.write ShowColor("FontColor","")%>&nbsp;&nbsp;阴影颜色：&nbsp;&nbsp;<%Response.write ShowColor("GlowColor","")%></td>
</tr>
<tr>
<td>权限标识：</td>
<td><input type=text name=GroupGrade value='<%Response.Write tmp_grade%>' size=3 disabled >&nbsp;大于0的整数</td>
</tr>
<tr>
<td>排序号码：</td>
<td><input type=text name=GroupOrder value='<%Response.Write tmp_order%>' size=3 disabled >&nbsp;大于0的整数</td>
</tr>
<%
	Call Submit_Add()
End Sub

Sub AsaiMHUserGroup_Main()
	Dim GroupID,GroupOrder,GroupType,GroupPower
%>
<tr align=center>
<td class=td width='7%'>排序</td>
<td class=td width='23%'><%Response.Write tit_fir%>代码</td>
<td class=td width='15%'><%Response.Write tit_fir%>类型</td>
<td class=td width='7%'>图标</td>
<td class=td width='20%'><%Response.Write tit_fir%>名称</td>
<td class=td width='8%'>权限标识</td>
<td class=td width='20%'>相关操作</td>
</tr>
<%
	SQL="Select * From "&Data_Name&" Order By GroupOrder"
	Set Rs=Cls.Exec(SQL,1)
	Do While Not Rs.Eof
		GroupID=Rs("GroupID")
		GroupPower=Rs("GroupPower")
		GroupOrder=Rs("GroupOrder")
		GroupType=Rs("GroupType")
%>
<tr align=center>
<td><%Response.Write GroupOrder%></td>
<td align=left><%Response.Write Rs("GroupPower")%></td>
<td align=left><%
		Select Case Int(GroupType)
		Case 0
			Response.Write "普 通 组"
		Case 1
			Response.Write "管 理 组"
		Case 2
			Response.Write "超级版主"
		Case 3
			Response.Write "版 主 组"
		Case 4
			Response.Write "V I P 组"
		Case 5
			Response.Write "贵 宾 组"
		Case else
			Response.Write "<font class=Gys>自 定 义</font>"
		End Select
%></td>
<td><%Response.Write Cls.img("icon_"&GroupPower)%></td>
<td align=left><font color=#<%=Rs("FontColor")%>><b><%Response.Write Rs("GroupName")%></b></font></td>
<td><%Response.Write Rs("GroupGrade")%></td>
<td align=left><a href='?Action=EditConfig&ID=<%Response.Write GroupID%>'>权限</a>&nbsp;<a href='?Action=Edit&ID=<%Response.Write GroupID%>'>编辑</a>&nbsp;
<a href='?Action=Orders&ID=<%Response.Write GroupID%>&Order_ID=<%Response.Write GroupOrder%>&Actions=Up'><%Response.Write img_admin("up_2","向上移动此"&tit_fir)%></a>&nbsp;
<a href='?Action=Orders&ID=<%Response.Write GroupID%>&Order_ID=<%Response.Write GroupOrder%>&Actions=Down'><%Response.Write img_admin("Down_2","向下移动此"&tit_fir)%></a>&nbsp;
<%
		If Int(GroupType)<0 Then
			Response.Write "<a href='?Action=Delete&ID="&GroupID&"' onclick=""javascript:return click_return('删除 "&GroupPower&" "&tit_fir&"',0);"">删除</a>"
		End If
%></td>
</tr>
<%
		Rs.Movenext
	Loop
	Rs.Close
End Sub
%>
