📄 admin_admin.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.MD5.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 1 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
strFileName = "Admin_Admin.asp"
Response.Write "<html><head><title>管理员管理</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("管 理 员 管 理", 10049)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td height='30'><a href='Admin_Admin.asp'>管理员管理首页</a> | <a href='Admin_Admin.asp?Action=Add'>新增管理员</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
Call AddAdmin
Case "SaveAdd"
Call SaveAdd
Case "ModifyPwd"
Call ModifyPwd
Case "ModifyPurview"
Call ModifyPurview
Case "SaveModifyPwd"
Call SaveModifyPwd
Case "SaveModifyPurview"
Call SaveModifyPurview
Case "Del"
Call DelAdmin
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteEntry(1, AdminName, "管理员操作失败，失败原因：" & ErrMsg)
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim rsAdminList, sqlAdminList
Dim iCount
Set rsAdminList = Server.CreateObject("Adodb.RecordSet")
sqlAdminList = "select * from PE_Admin order by id"
rsAdminList.Open sqlAdminList, Conn, 1, 1
If rsAdminList.BOF And rsAdminList.EOF Then
rsAdminList.Close
Set rsAdminList = Nothing
Response.Write "没有任何管理员！"
Exit Sub
End If
totalPut = rsAdminList.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsAdminList.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function unselectall(){" & vbCrLf
Response.Write " if(document.myform.chkAll.checked){" & vbCrLf
Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function CheckAll(form){" & vbCrLf
Response.Write " for (var i=0;i<form.elements.length;i++){" & vbCrLf
Response.Write " var e = form.elements[i];" & vbCrLf
Response.Write " if (e.Name != 'chkAll'&&e.disabled!=true)" & vbCrLf
Response.Write " e.checked = form.chkAll.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
Response.Write " <form name='myform' method='Post' action='Admin_Admin.asp' onsubmit=""return confirm('确定要删除选中的管理员吗？');"">"
Response.Write " <td>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr align='center' class='title' height='22'>"
Response.Write " <td width='30'><strong>选中</strong></td>"
Response.Write " <td width='30' height='22'><strong>序号</strong></td>"
Response.Write " <td><strong>管理员名</strong></td>"
Response.Write " <td><strong>前台会员名</strong></td>"
Response.Write " <td width='70'><strong>权 限</strong></td>"
Response.Write " <td width='55'><strong>多人登录</strong></td>"
Response.Write " <td width='95'><strong>最后登录IP</strong></td>"
Response.Write " <td width='115'><strong>最后登录时间</strong></td>"
Response.Write " <td width='55'><strong>登录次数</strong></td>"
Response.Write " <td width='180'><strong>操 作</strong></td>"
Response.Write " </tr>"
Do While Not rsAdminList.EOF
Response.Write " <tr align='center' class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30'><input name='ID' type='checkbox' id='ID' value='" & rsAdminList("ID") & "'"
If rsAdminList("UserName") = AdminName Then Response.Write " disabled"
Response.Write " onclick='unselectall()'></td>"
Response.Write " <td width='30'>" & rsAdminList("ID") & "</td>"
Response.Write " <td>"
If rsAdminList("AdminName") = AdminName Then
Response.Write "<font color=red><b>" & rsAdminList("AdminName") & "</b></font>"
Else
Response.Write rsAdminList("AdminName")
End If
Response.Write "</td>"
Response.Write " <td>" & rsAdminList("UserName") & "</td>"
Response.Write "<td width='70'>"
Select Case rsAdminList("purview")
Case 1
Response.Write "<font color=blue>超级管理员</font>"
Case 2
Response.Write "普通管理员"
End Select
Response.Write "</td>"
Response.Write "<td width='55'>"
If rsAdminList("EnableMultiLogin") = True Then
Response.Write "<font color='green'>允许</font>"
Else
Response.Write "<font color='red'>不允许</font>"
End If
Response.Write "</td>"
Response.Write "<td width='95'>"
If rsAdminList("LastLoginIP") <> "" Then
Response.Write rsAdminList("LastLoginIP")
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -