📄 admin_master.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp" -->
<!--#include file="check.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_master.asp
' 更新日期：2004-12-20
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim selAdminID
Dim i,Action,strClass
Admin_header
If Not ChkAdmin("999") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Response.Write "<table cellpadding=2 cellspacing=1 border=0 class=tableBorder align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th height=22 colspan=6>管理员操作</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class=TableRow1> <b>管理选项：</b> <a href=admin_master.asp>管理首页</a> &nbsp;<a href=admin_master.asp?action=add>添加管理员</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table><br>" & vbCrLf
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "renew"
	Call UpdateFlag
Case "del"
	Call del
Case "pasword"
	Call pasword
Case "newpass"
	Call newpass
Case "add"
	Call addadmin
Case "edit"
	Call userinfo
Case "savenew"
	Call savenew
Case "active"
	Call ActiveLock
Case Else
	Call userlist
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn

Private Sub userlist()
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th height=22 colspan=6>管理员管理(点击用户名进行操作)</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr align=center>" & vbCrLf
	Response.Write "<td height=22 class=TableTitle><B>用户名</B></td>" & vbCrLf
	Response.Write "<td class=TableTitle><B>上次登陆时间</B></td>" & vbCrLf
	Response.Write "<td class=TableTitle><B>上次登陆IP</B></td>" & vbCrLf
	Response.Write "<td class=TableTitle><B>操作</B></td>" & vbCrLf
	Response.Write "<td class=TableTitle><B>状态</B></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Set Rs = Newasp.Execute("select * from NC_Admin order by Logintime desc")
	i = 0
	Do While Not Rs.EOF
		If (i mod 2) = 0 Then
			strClass = "class=TableRow1"
		Else
			strClass = "class=TableRow2"
		End If
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td " & strClass & "><a href=""?id="
		Response.Write Rs("id")
		Response.Write "&action=pasword"" title='点击此处修改管理员信息'>"
		Response.Write Rs("username")
		Response.Write "</a></td>" & vbCrLf
		Response.Write "<td align=center " & strClass & ">"
		Response.Write Rs("Logintime")
		Response.Write "</td>" & vbCrLf
		Response.Write "<td align=center " & strClass & ">"
		Response.Write Rs("Loginip")
		Response.Write "</td>" & vbCrLf
		Response.Write "<td align=center " & strClass & "><a href=""?action=Active&id=" & Rs("id") & "&lock="
		If Rs("isLock") = 0 Then
			Response.Write "1"" onclick=""return confirm('您确定要锁定此管理员吗?')"">锁定管理员</a> | "
		Else
			Response.Write "0"" onclick=""return confirm('您确要激活此管理员吗?')"">激活管理员</a> | "
		End If
		Response.Write "<a href=""?action=del&id="
		Response.Write Rs("id")
		Response.Write "&name="
		Response.Write Rs("username")
		Response.Write """ onclick=""return confirm('此操作将删除该管理员\n 您确定执行此操作吗?')"">删除</a>&nbsp;|&nbsp;<a href=""?id="
		Response.Write Rs("id")
		Response.Write "&action=edit"">编辑权限</a></td>" & vbCrLf
		Response.Write "<td align=center " & strClass & ">"
		If Rs("isLock") = 0 Then
			Response.Write "正常"
		Else
			Response.Write "<font color=red>锁定<font>"
		End If
		Response.Write "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Rs.movenext
		i = i + 1
	Loop
	Rs.Close
	Set Rs = Nothing
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td colspan=""6"" align=center Class=TableRow1>" & vbCrLf
	Response.Write " <input class=""button"" type=button name=""Submit"" value=""添加管理员"" onClick=""self.location='admin_master.asp?action=add'"" >" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
End Sub

Private Sub del()
	If Trim(Request("id")) <> "" Then
		Newasp.Execute ("delete from NC_Admin where username<>'" & AdminName & "' And id=" & Request("id"))
		Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
	Else
		ErrMsg = "<li>错误的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
End Sub

Private Sub ActiveLock()
	If Trim(Request("lock")) <> "" And Trim(Request("id")) <> "" Then
		Newasp.Execute ("update NC_Admin set isLock="&Request("lock")&" where username<>'" & AdminName & "' And id=" & Request("id"))
		Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
	Else
		ErrMsg = "<li>错误的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
End Sub

Private Sub pasword()
	Dim oldpassword
	If Not ChkAdmin("9999") Then
		ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
	Set Rs = Newasp.Execute("select * from NC_Admin 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=tablerow1>后台登陆名称：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=tablerow1>" & vbCrLf
	Response.Write " <input type=hidden name=""oldusername"" value="""
	Response.Write Rs("username")
	Response.Write """>" & vbCrLf
	Response.Write " <input type=text size=25 name=""username2"" value="""
	Response.Write Rs("username")
	Response.Write """>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr >" & vbCrLf
	Response.Write " <td width=""26%"" align=""right"" class=tablerow1>后台登陆密码：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=tablerow1>" & 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=tablerow1>管理员级别：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=tablerow1>" & vbCrLf
	Response.Write " <input type=radio name=AdminGrade value='0' "
	If Rs("AdminGrade") = 0 Then Response.Write " checked"
	Response.Write " > 普通管理员&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=AdminGrade value='999' "
	If Rs("AdminGrade") = 999 Then Response.Write " checked"
	Response.Write " > 高级管理员 （拥有最高权限）" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td align=""right"" class=tablerow1>是否激活管理员：</td>" & vbCrLf
	Response.Write " <td class=tablerow1>" & vbCrLf
	Response.Write " <input type=radio name=isLock value='1' "
	If Rs("isLock") = 1 Then Response.Write " checked"
	Response.Write " > 否&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=isLock value='0' "
	If Rs("isLock") = 0 Then Response.Write " checked"
	Response.Write " > 是" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td align=""right"" class=tablerow1>限制一个管理员登陆：</td>" & vbCrLf
	Response.Write " <td class=tablerow1>" & vbCrLf
	Response.Write " <input type=radio name=isAloneLogin value='0' "
	If Rs("isAloneLogin") = 0 Then Response.Write " checked"
	Response.Write " > 否&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=isAloneLogin value='1' "
	If Rs("isAloneLogin") = 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=tablerow1>" & vbCrLf
	Response.Write " <input type=hidden name=id value="""
	Response.Write Request("id")
	Response.Write """>" & vbCrLf
	Response.Write " <input type=button name=Submit4 onclick='javascript:history.go(-1)' value='返回上一页' class=Button> <input type=""submit"" name=""Submit"" value=""更 新"" class=""button"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </form>" & vbCrLf
	Response.Write " </table>" & vbCrLf
Rs.Close
Set Rs = Nothing
End Sub

Private Sub newpass()
	Dim passnw
	Dim usernw
	Dim aduser
	Dim oldpassword
	If Not ChkAdmin("9999") Then
		ErrMsg = "<li>您没有此操作权限!</li><li>如有什么问题请联系站长？</li>"
		Founderr = True
		Exit Sub
	End If
	Set Rs = Newasp.Execute("select * from NC_Admin where id=" & Request("id"))
	oldpassword = Rs("password")
	If Request("username2") = "" Then
		ErrMsg = "<li>请输入管理员名字。<a href=?>［ <font color=red>返回</font> ］</a>"
		Founderr = True
		Exit Sub
	Else
		usernw = Trim(Request("username2"))
	End If
	If Request("password2") = "" Then
		passnw = "没有修改"
	Else
		passnw = Request("password2")
	End If
	Set Rs = CreateObject("adodb.recordset")
12 下一页
💿 文件大小 1794 K
👤 上传用户 jccg1000146752
📂 所属分类文章/文档
🏷️ 相关标签

#网络 #程序
⌨️ 快捷键说明

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