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

📄 admin_webmaster.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="setup.asp" -->
<!--#include file="../inc/md5.asp"-->
<!--#include file="myadmin.asp"-->
<%
Dim selAdminID
Dim i
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function CheckAll(form)" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " for (var i=0;i<form.elements.length;i++)" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " var e = form.elements[i];" & vbCrLf
Response.Write " if (e.name != 'chkall')" & vbCrLf
Response.Write " e.checked = form.chkall.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "function SelectAll() {" & vbCrLf
Response.Write "for (var i=0;i<document.selform.selAdminID.length;i++) {" & vbCrLf
Response.Write "var e=document.selform.selAdminID[i];" & vbCrLf
Response.Write "e.checked=!e.checked;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->"
Response.Write "</script>" & vbCrLf
NC_Admin.AdminChk = "43"
NC_Admin.Check
DownsysClass.admin_header
If Request("action") = "updat" Then
	Call update
ElseIf Request("action") = "del" Then
	Call del
ElseIf Request("action") = "pasword" Then
	Call pasword
ElseIf Request("action") = "newpass" Then
	Call newpass
ElseIf Request("action") = "add" Then
	Call addadmin
ElseIf Request("action") = "edit" Then
	Call userinfo
ElseIf Request("action") = "savenew" Then
	Call savenew
Else
	Call userlist
End If
If Founderr = True Then
	NC_Admin.Error_msg (ErrMsg)
End If
DownsysClass.admin_footer
NothingObject
Private Sub userlist()
	If Not IsEmpty(Request("selAdminID")) Then
		selAdminID = Request("selAdminID")
		If Request("action") = "删除" Then
			Call deladmin
		ElseIf Request("action") = "激活" Then
			Call yesActive
		ElseIf Request("action") = "锁定" Then
			Call noActive
		Else
			NC_Admin.Error_msg ( "无效参数！")
			Response.End
		End If
	End If
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write "<form name=""selform"" method=""post"" >" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th height=22 colspan=8>管理员管理(点击用户名进行操作)</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr align=center>" & vbCrLf
	Response.Write " <td width=""6%"" height=22 class=""forumHeaderBackgroundAlternate""><B>选择</B></td>" & vbCrLf
	Response.Write "<td width=""22%"" height=22 class=""forumHeaderBackgroundAlternate""><B>用户名</B></td>" & vbCrLf
	Response.Write "<td width=""22%"" class=""forumHeaderBackgroundAlternate""><B>上次登陆时间</B></td>" & vbCrLf
	Response.Write "<td width=""12%"" class=""forumHeaderBackgroundAlternate""><B>上次登陆IP</B></td>" & vbCrLf
	Response.Write "<td width=""15%"" class=""forumHeaderBackgroundAlternate""><B>操作</B></td>" & vbCrLf
	Response.Write "<td width=""8%"" class=""forumHeaderBackgroundAlternate""><B>状态</B></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Set Rs = DownsysClass.Execute("select * from " & Admintable & " order by Logintime desc")
	Do While Not Rs.EOF
		Response.Write " <tr><td align=""center"" class=""forumRow"">" & vbCrLf
		Response.Write " <input type=""checkbox"" name=""selAdminID"" id=""selAdminID"" value="""
		Response.Write Rs("ID")
		Response.Write """>" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=forumrow><a href=""?id="
		Response.Write Rs("id")
		Response.Write "&action=pasword"" title='点击此处修改管理员信息'>"
		Response.Write Rs("adminname")
		Response.Write "</a></td>" & vbCrLf
		Response.Write "<td class=forumrow>"
		Response.Write Rs("Logintime")
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=forumrow>"
		Response.Write Rs("Loginip")
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=forumrow><a href=""?action=del&id="
		Response.Write Rs("id")
		Response.Write "&name="
		Response.Write Rs("adminname")
		Response.Write """ onclick=""{if(confirm('此操作将删除该管理员\n 您确定执行此操作吗?')){this.document.myform.submit();return true;}return false;}"">删除</a>&nbsp;&nbsp;<a href=""?id="
		Response.Write Rs("id")
		Response.Write "&action=edit"">编辑权限</a></td>" & vbCrLf
		Response.Write "<td class=forumrow>"
		If Rs("isActive") = 1 Then
			Response.Write "正常"
		Else
			Response.Write "<font color=red>锁定<font>"
		End If
		Response.Write "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Rs.movenext
	Loop
	Rs.Close
	Set Rs = Nothing
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td colspan=""7"" class=""forumRow"">管理操作：选择/反选" & vbCrLf
	Response.Write " <input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()"">" & vbCrLf
	Response.Write " <input class=""button"" onClick=""{if(confirm('确定激活选定的管理员吗?')){this.document.selform.submit();return true;}return false;}"" type=submit value=激活 name=action>" & vbCrLf
	Response.Write " <input class=""button"" onClick=""{if(confirm('确定锁定选定的管理员吗?')){this.document.selform.submit();return true;}return false;}"" type=submit value=锁定 name=action>" & vbCrLf
	Response.Write " <input class=""button"" onClick=""{if(confirm('确定删除选定的管理员吗?')){this.document.selform.submit();return true;}return false;}"" type=submit value=删除 name=action>" & vbCrLf
	Response.Write " <input class=""button"" type=button name=""Submit"" value=""添加管理员"" onClick=""self.location='AdminManage.asp?action=add'"" >" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </form></table>" & vbCrLf
End Sub


Private Sub del()
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		DownsysClass.Execute ("delete from " & Admintable & " where id=" & Request("id"))
	Else
		ErrMsg = "<li>您没有删除管理员的权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
End Sub


Private Sub deladmin()
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		DownsysClass.Execute ("delete from " & Admintable & " where id in (" & selAdminID & ")")
	Else
		ErrMsg = "<li>您没有删除管理员的权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
End Sub


Private Sub yesActive()
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		DownsysClass.Execute ("update " & Admintable & " set isActive=1 where ID in (" & selAdminID & ")")
	Else
		Errmsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
End Sub


Private Sub noActive()
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		DownsysClass.Execute ("update " & Admintable & " set isActive=0 where ID in (" & selAdminID & ")")
	Else
		Errmsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
End Sub


Private Sub pasword()
	Dim oldpassword
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		Set Rs = DownsysClass.Execute("select * from " & Admintable & " where id=" & Request("id"))
		oldpassword = Rs("password")
		Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
		Response.Write "<form action=""?action=newpass"" method=post>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <th colspan=2 height=23>管理员资料管理－－密码修改" & vbCrLf
		Response.Write " </th>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr >" & vbCrLf
		Response.Write " <td width=""26%"" align=""right"" class=forumrow>后台登陆名称：</td>" & vbCrLf
		Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
		Response.Write " <input type=hidden name=""oldusername"" value="""
		Response.Write Rs("adminname")
		Response.Write """>" & vbCrLf
		Response.Write " <input type=text size=25 name=""username2"" value="""
		Response.Write Rs("adminname")
		Response.Write """>" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr >" & vbCrLf
		Response.Write " <td width=""26%"" align=""right"" class=forumrow>后台登陆密码：</td>" & vbCrLf
		Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
		Response.Write " <input type=""password"" size=25 name=""password2"">"
		Response.Write " (如果不修改密码请留空)" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td width=""26%"" align=""right"" class=forumrow>管理员级别：</td>" & vbCrLf
		Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
		Response.Write " <input type=radio name=flag value='0' "
		If Rs("flag") = 0 Then Response.Write " checked"
		Response.Write " > 普通管理员&nbsp;&nbsp;" & vbCrLf
		Response.Write " <input type=radio name=flag value='1' "
		If Rs("flag") = 1 Then Response.Write " checked"
		Response.Write " > 系统CEO （拥有最高权限）" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td width=""26%"" align=""right"" class=forumrow>是否激活管理员：</td>" & vbCrLf
		Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
		Response.Write " <input type=radio name=isActive value='0' "
		If Rs("isActive") = 0 Then Response.Write " checked"
		Response.Write " > 否&nbsp;&nbsp;" & vbCrLf
		Response.Write " <input type=radio name=isActive value='1' "
		If Rs("isActive") = 1 Then Response.Write " checked"
		Response.Write " > 是" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr align=""center"">" & vbCrLf
		Response.Write " <td colspan=""2"" class=forumrow>" & vbCrLf
		Response.Write " <input type=hidden name=id value="""
		Response.Write Request("id")
		Response.Write """>" & vbCrLf
		Response.Write " <input type=""submit"" name=""Submit"" value=""更 新"" class=""button"">" & vbCrLf
12

⌨️ 快捷键说明

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