⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sys_adgroup.asp

📁 html生成静态页的小程序
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="chk.asp"-->
<%
Dim GroupId
Dim GroupName
Dim GroupFlag
Dim GroupOrder
Select Case Trim(Request.Form("action"))
	Case "add"
		Call Add()
		Call SaveAdminLog("添加管理员组：" & GroupName)
		Call ActionOk("Sys_adgroup.asp")
	Case "edit"
		Call Edit()
		Call SaveAdminLog("修改管理员组(ID=" & GroupId & ")为：" & GroupId)
		Call ActionOk("Sys_adgroup.asp")
	Case "del"
		Call Del()
		Call SaveAdminLog("删除管理员组(ID=" & GroupId & ")")
		Call ActionOk("Sys_adgroup.asp")
End Select

Private Sub Add()
	Call GetFormData()
	Sql = "select count(*) from Ok3w_AdGroup where GroupName='" & GroupName & "' or GroupFlag='" & GroupFlag & "'"
	If Conn.Execute(Sql)(0)<>0 Then
		Call CloseConn()
		Session("ErrMsg") = "相同的管理员组名称或是权限已经存在，请不要重复添加。"
		Call ActionOk("Sys_adgroup.asp")
	End If
	sql = "select * from Ok3w_AdGroup where 1=2"
	Rs.open sql,conn,1,3
	Rs.addnew
	Call UpdateRs(rs)
	Rs.update
	Rs.close
End Sub

Private Sub Edit()
	Call GetFormData()
	Sql="select count(*) from Ok3w_AdGroup where (GroupName='" & GroupName & "' or GroupFlag='" & GroupFlag & "') and GroupId<>" & GroupId
	If Conn.Execute(sql)(0)<>0 Then
		Call CloseConn()
		Session("ErrMsg") = "相同的管理员组名称或是权限已经存在，该修改无效。"
		Call ActionOk("Sys_adgroup.asp")
	End If
	sql = "select * from Ok3w_AdGroup where GroupId=" & GroupId
	Rs.Open Sql,Conn,1,3
	Call UpdateRs(rs)
	Rs.Update
	Rs.Close
End Sub

Private Sub Del()
	Call GetFormData()
	sql = "delete from Ok3w_AdGroup where GroupId=" & GroupId
	Conn.Execute sql
	sql = "delete from Ok3w_Admin where GroupId=" & GroupId
	Conn.Execute sql
End Sub

Private Sub GetFormData()
	GroupId = Trim(Request.Form("GroupId"))
    GroupName = Trim(Request.Form("GroupName"))
    GroupFlag = Trim(Request.Form("GroupFlag"))
	GroupFlag = Replace(GroupFlag," ","")
    GroupOrder = Trim(Request.Form("GroupOrder"))
End Sub

Private Sub UpdateRs(ByRef Rs)
    Rs("GroupName") = GroupName
    Rs("GroupFlag") = GroupFlag
    Rs("GroupOrder") = GroupOrder
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<link rel="stylesheet" type="text/css" href="images/Style.css">
<style type="text/css">
.myselect{
	width:100px;
}
</style>
</head>

<body>
<!--#include file="top.asp"-->
<br />
<table cellspacing="0" cellpadding="0" width="98%" align="center" border="0">
  <tbody>
    <tr>
      <td style="PADDING-LEFT: 2px; HEIGHT: 22px" 
    background="images/tab_top_bg.gif"><table cellspacing="0" cellpadding="0" width="477" border="0">
        <tbody>
          <tr>
            <td width="147"><table height="22" cellspacing="0" cellpadding="0" border="0">
              <tbody>
                <tr>
                  <td width="3"><img id="tabImgLeft__0" height="22" 
                  src="images/tab_active_left.gif" width="3" /></td>
                  <td class="mtitle" 
                background="images/tab_active_bg.gif">后台管理系统</td>
                  <td width="3"><img id="tabImgRight__0" height="22" 
                  src="images/tab_active_right.gif" 
            width="3" /></td>
                </tr>
              </tbody>
            </table></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
            <td 
          style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
          valign="top"><div id="tabContent__0" style="DISPLAY: block; VISIBILITY: visible">
              <table cellspacing="1" cellpadding="1" width="100%" align="center" 
            bgcolor="#8ccebd" border="0">
                <tbody>
                  <tr>
                    <td 
                style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
                valign="top" bgcolor="#fffcf7">
				
                      <table border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
                        <form id="form1" name="form1" method="post" action=""><tr>
                          <td align="center" bgcolor="#EBEBEB">管理员组名称</td>
                          <td align="center" bgcolor="#EBEBEB">权限</td>
                          <td align="center" bgcolor="#EBEBEB">排序</td>
                          <td align="center" bgcolor="#EBEBEB">操作</td>
                        </tr>
                        <tr>
                          <td align="center" bgcolor="#FFFFFF"><input name="GroupName" type="text" id="GroupName" /></td>
                          <td align="left" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="25" align="center"><a href="javascript:showHide(menu0);">展开/收缩</a></td>
                            </tr>
                            <tr id="menu0" style="display:none;">
                              <td height="25">
                                <input name="GroupFlag" type="checkbox" id="GroupFlag" value="Sysmanage" />系统管理<br />
                                <input name="GroupFlag" type="checkbox" id="GroupFlag" value="Channelmanage" />频道管理<br>
                                <%
Sql="select * from Ok3w_Channel order by OrderId"
Set oRs = Conn.Execute(Sql)
Do While Not oRs.Eof
%><input name="GroupFlag" type="checkbox" id="GroupFlag" value="Channel<%=oRs("ChannelId")%>" /><%=oRs("ChannelName")%><br />
<%
	oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
%><input name="GroupFlag" type="checkbox" id="GroupFlag" value="Usermanage" />会员管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Guestmanage" />留言管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Jobmanage" />招聘管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Votemanage" />网站调查<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Filemanage" />上传文件管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Logmanage" />网站日志管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="eWebmanage" />编辑器管理


</td>
                            </tr>
                          </table></td>
                          <td align="center" bgcolor="#FFFFFF"><input name="GroupOrder" type="text" id="GroupOrder" value="0" size="4" /></td>
                          <td align="center" bgcolor="#FFFFFF"><input type="button" name="Submit" value="添加" onclick="javascript:formsubmit(this.form,'add');" />
                              <input name="action" type="hidden" id="action" /></td>
                        </tr></form>
                      </table>
                    
                      <br />
                      <table border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
                        <tr>
                          <td align="center" bgcolor="#EBEBEB">管理员组名称</td>
                          <td align="center" bgcolor="#EBEBEB">权限</td>
                          <td align="center" bgcolor="#EBEBEB">排序</td>
                          <td align="center" bgcolor="#EBEBEB">操作</td>
                        </tr>
<%
sql = "select * from Ok3w_AdGroup order by GroupOrder"
Rs.Open sql,Conn,1,1
menuId = 0
Do While Not Rs.Eof
	menuId = menuId + 1
	GroupId = Rs("GroupId")
	GroupName = Rs("GroupName")
	GroupFlag = Rs("GroupFlag")
	GroupOrder = Rs("GroupOrder")
%>
                        <form id="form1" name="form1" method="post" action="">
                          <tr>
                            <td align="center" bgcolor="#FFFFFF"><input name="GroupName" type="text" id="GroupName" value="<%=GroupName%>" /></td>
                            <td align="left" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td height="25" align="center"><a href="javascript:showHide(menu<%=menuId%>);">展开/收缩</a></td>
                              </tr>
                              <tr id="menu<%=menuId%>" style="display:none;">
                                <td height="25">
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Sysmanage" <%If InStr("," & GroupFlag & ",","Sysmanage,") Then%>checked="checked"<%End If%> />系统管理<br />
                                <input name="GroupFlag" type="checkbox" id="GroupFlag" value="Channelmanage" <%If InStr("," & GroupFlag & ",",",Channelmanage,") Then%>checked="checked"<%End If%>/>频道管理<br>
                                <%
Sql="select * from Ok3w_Channel order by OrderId"
Set oRs = Conn.Execute(Sql)
Do While Not oRs.Eof
%><input name="GroupFlag" type="checkbox" id="GroupFlag" value="Channel<%=oRs("ChannelId")%>" <%If InStr("," & GroupFlag & ",",",Channel" & oRs("ChannelId") & ",") Then%>checked="checked"<%End If%> /><%=oRs("ChannelName")%><br />
<%
	oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
%><input name="GroupFlag" type="checkbox" id="GroupFlag" value="Usermanage" <%If InStr("," & GroupFlag & ",",",Usermanage,") Then%>checked="checked"<%End If%> />会员管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Guestmanage"  <%If InStr("," & GroupFlag & ",",",Guestmanage,") Then%>checked="checked"<%End If%>/>留言管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Jobmanage" <%If InStr("," & GroupFlag & ",",",Jobmanage,") Then%>checked="checked"<%End If%> />招聘管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Votemanage" <%If InStr("," & GroupFlag & ",",",Votemanage,") Then%>checked="checked"<%End If%> />网站调查<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Filemanage" <%If InStr("," & GroupFlag & ",",",Filemanage,") Then%>checked="checked"<%End If%> />上传文件管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="Logmanage" <%If InStr("," & GroupFlag & ",",",Logmanage,") Then%>checked="checked"<%End If%> />网站日志管理<br />
<input name="GroupFlag" type="checkbox" id="GroupFlag" value="eWebmanage" <%If InStr("," & GroupFlag & ",",",eWebmanage,") Then%>checked="checked"<%End If%> />编辑器管理
					  </td>
                              </tr>
                            </table></td>
                            <td align="center" bgcolor="#FFFFFF"><input name="GroupOrder" type="text" id="GroupOrder" value="<%=GroupOrder%>" size="4" /></td>
                            <td align="center" bgcolor="#FFFFFF"><input type="button" name="Submit4" value="修改" onclick="javascript:formsubmit(this.form,'edit');" />
                                <input type="button" name="Submit5" value="删除" onclick="javascript:if(!confirm('真的要删除吗？')) return false;formsubmit(this.form,'del');" />
                                <input name="GroupId" type="hidden" id="GroupId" value="<%=GroupId%>" />
                                <input name="action" type="hidden" id="action" /></td>
                          </tr>
                        </form>
                        <%
	Rs.MoveNext
Loop
Rs.Close
%>
                      </table>
                      <script language="JavaScript" type="text/javascript">
function formsubmit(frm,action)
{
	if(frm.GroupName.value.trim()=="")
	{
		ShowErrMsg("管理员组名称不能为空，请输入")
		frm.GroupName.focus();
		return false;
	}
	if(isNaN(parseInt(frm.GroupOrder.value.trim())))
	{
		ShowErrMsg("排序只能是整数，请输入")
		frm.GroupOrder.focus();
		return false;
	}
	
	frm.action.value = action;
	frm.submit();
}
</script>
<script language="javascript">
function showHide(obj)
{
	obj.style.display = obj.style.display == "none" ? "block" : "none";
}
</script>
					  
					  </td>
                  </tr>
                </tbody>
              </table>
            </div></td>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td background="images/tab_bg.gif" bgcolor="#ffffff"><img height="1" 
      src="images/tab_bg.gif" width="1" /></td>
    </tr>
  </tbody>
</table>
</body>
</html>
<%
Call CloseConn()
Set Rs = Nothing
Set Admin = Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -