📄 admin_group.asp
字号:
<!--#include file = admin_chk.asp -->
<!--#include file="../Include/cls_pageview.asp"-->
<%
If Not ChkAdmin("UserGroup") Then
Call ArtErr("","")
End If
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户组管理</title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
</head>
<body>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th colspan="2" align="center"height="25"><strong>会员系统----用户组管理</strong></th>
</tr>
<tr>
<td width=12% height=30 class=forumRow> <strong>管理导航：</strong></td>
<td width=88% height=30 class="forumRow"><a href="?">管理首页</a> | <a href="?Action=Add">新增用户组</a></td>
</tr>
</table><%
Dim ShowErr,Action,ModeID
Action = Request("Action")
Select Case Action
Case "Edit","Add"
Call Edit()
Call AdminPageEnd()
Case "SaveAdd"
Call SaveAdd
Case "SaveEdit"
Call SaveEdit
Case "del"
Call Del()
Case "DefaultGroup"
Call DefaultGroup()
Case Else
Call Main()
Call AdminPageEnd()
End Select
Sub DefaultGroup()
Dim GroupID
GroupID=ChkNumeric(s("GroupID"))
Conn.execute "update Art_Group set DefaultGroup=0 where ModeID=1"
Conn.execute "update Art_Group set DefaultGroup=1 where ModeID=1 and GroupID="&GroupID&""
Call ArtErr("操作成功","2")
End Sub
Sub SaveAdd()
Dim Sql,Rs,GroupID,ChargeType,GroupSetting
GroupID = ChkNumeric(Request("GroupID"))
ChargeType = ChkNumeric(Request.Form("ChargeType"))
lmid=trim(request("lmid"))
IF ChargeType = 0 Then ChargeType = 1
IF Request("GroupSetting1") = "" Then
ShowErr = "<li>用户组名称不能为空!</li>"
Call ArtErr(ShowErr,"1")
End IF
GroupSetting=GroupSetting&Request.Form("GroupSetting1")&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting2")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting3"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting4"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting5"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting6"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting7"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting8"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting9")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting10"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting11")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting12"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting13"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting14")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting15"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting16"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting17"))&"^@$@^"
SQL = "Select * From Art_Group "
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,3
Do While Not rs.eof
If Split(rs("GroupSetting"),"^@$@^")(0)=rsql(s("GroupSetting1")) Then
ShowErr = "<li>数据库中已经存在此用户组名称!</li>"
Call ArtErr(ShowErr,"1")
End IF
rs.movenext
Loop
Rs.addnew
Rs("GroupSetting") = GroupSetting
Rs("Lmid") = Lmid
Rs("ModeID") =1
GroupSettingSet=Split(GroupSetting,"^@$@^")
Rs("Description")= GroupSettingSet(1)
Rs.update
Rs.Close:Set Rs=Nothing
ShowErr = "<li>添加新用户组成功! <a href='Admin_Group.asp'><b>返回用户组管理</b></a></li>"
Call ArtErr(ShowErr,"2")
End Sub
Sub SaveEdit()
Dim Sql,Rs,GroupID,ChargeType,GroupSetting
GroupID =ChkNumeric(Request("GroupID"))
lmid=trim(request("lmid"))
ChargeType = ChkNumeric(Request.Form("ChargeType"))
IF ChargeType = 0 Then ChargeType = 1
IF Request("GroupSetting1") = "" Then
ShowErr = "<li>用户组名称不能为空!</li>"
Call ArtErr(ShowErr,"1")
End IF
GroupSetting=GroupSetting&Request.Form("GroupSetting1")&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting2")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting3"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting4"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting5"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting6"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting7"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting8"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting9")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting10"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting11")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting12"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting13"))&"^@$@^"
GroupSetting=GroupSetting&Request.Form("GroupSetting14")&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting15"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting16"))&"^@$@^"
GroupSetting=GroupSetting&ChkNumeric(Request.Form("GroupSetting17"))&"^@$@^"
SQL = "Select * From Art_Group Where GroupID="&GroupID
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,3
IF Not (Rs.Eof And Rs.Bof) Then
Rs("GroupSetting") = GroupSetting
Rs("ChargeType") = ChargeType
Rs("Lmid") = Lmid
Rs.update
Else
ShowErr = "<li>无此用户组，参数传递出错</li>"
Call ArtErr(ShowErr,"1")
End IF
Rs.Close:Set Rs=Nothing
ShowErr = "<li>用户组修改成功! <a href='Admin_Group.asp'><b>返回用户组管理</b></a></li>"
Call ArtErr(ShowErr,"2")
End Sub
Sub Del()
Conn.Execute ("Delete from Art_Group Where GroupID=" & ChkNumeric(Request.QueryString("GroupID")))
ShowErr = "<li>用户组删除成功！</li>"
Call ArtErr(ShowErr,"2")
End Sub
Sub Main
Dim strLocalUrl
strLocalUrl = request.ServerVariables("SCRIPT_NAME")
Dim intPageNow
intPageNow = request.QueryString("page")
Dim intPageSize, strPageInfo
intPageSize = 20
Dim arrU, i,GroupSettingSet
Dim sql, sqlCount
sql = "SELECT [GroupID], [GroupSetting],[ModeID],[DefaultGroup]" & _
" FROM [Art_Group]" & _
"ORDER BY [GroupID] ASC"
sqlCount = "SELECT Count([GroupID])" & _
" FROM [Art_Group]"
Dim clsRecordInfo
Set clsRecordInfo = New Cls_PageView
clsRecordInfo.intRecordCount = 2816
clsRecordInfo.strSqlCount = sqlCount
clsRecordInfo.strSql = sql
clsRecordInfo.intPageSize = intPageSize
clsRecordInfo.intPageNow = intPageNow
clsRecordInfo.strPageUrl = strLocalUrl
clsRecordInfo.strPageVar = "page"
clsRecordInfo.objConn = Conn
arrU = clsRecordInfo.arrRecordInfo
strPageInfo = clsRecordInfo.strPageInfo
Set clsRecordInfo = nothing
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td colspan="7" class="bg_tr">您现在的位置：管理首页 >> <a href="?" ><font class="bg_tr">用户组管理</font></a> >></td>
</tr>
<tr >
<td width="20" align="center" class="forumRaw"><STRONG>ID</STRONG></td>
<td align="center" width="20%" class="forumRaw"><STRONG>用户组名称</STRONG></td>
<!--<td width="13%" align="center" ><STRONG>组模型</STRONG></td> -->
<td align="center" width="13%" nowrap class="forumRaw"><STRONG>属性</STRONG></td>
<td align="center" width="10%" nowrap class="forumRaw"><STRONG>会员数量</STRONG></td>
<td align="center" nowrap class="forumRaw"><strong>管理操作</strong></td>
</tr>
<%
Dim bgColor
If IsArray(arrU) Then
For i = 0 to UBound(arrU, 2)
GroupSettingSet=Split(arrU(1,i),"^@$@^")
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg" height="25">
<td align="center" ><%= arrU(0,i) %></td>
<td align="center" ><%=GroupSettingSet(0)%></td>
<td align="center" >
<%IF arrU(3,i) = "1" Then Response.Write "<font color=green>默认注册组</font>" Else Response.Write "正常" %> </td>
<td align="center" >
<%'
response.write Conn.Execute("Select Count(UserID) From Art_User Where GroupID=" & arrU(0,i))(0)
%></td>
<td align="center" >
<a href="?Action=DefaultGroup&ModeID=<%=arrU(2,i)%>&GroupID=<%=arrU(0,i)%>">设置为默认的注册用户组</a>
<a href="?Action=Edit&GroupID=<%=arrU(0,i) %>">修改</a>┆
<a href="?Action=del&GroupID=<%= arrU(0,i) %>" onClick="return confirm('确认删除此用户组吗?')">删除</a>┆
<A href="Admin_User.asp?UserSearch=6&GroupID=<%= arrU(0,i) %>">列出会员</A></td>
</tr>
<%
Next
End If
%>
<tr >
<td height="25" colspan="7" align="center" class="forumRow" ><%= strPageInfo%></td>
</tr>
</table>
<script language="javascript">
function SelectIterm(form,sign){
for (var i=0; i<form.elements.length;i++ ){
if (form.elements[i].type == "checkbox"){
var e=form.elements[i];
if (sign==0) e.checked= true;
if (sign==1) e.checked= !e.checked;
if (sign==2) e.checked= false;
}
}
}
</script>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -