📄 admin_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<!--#include file="../inc/md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<%
chk_admin_login(3)
select case request("option")
case "add"
add
case "edit"
edit
case "editok"
editok
case "lock"
id=request("id")
lock
case "unlock"
id=request("id")
unlock
case "del"
id=request("id")
del
case ""
main
end select
sub main%>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form action="?option=add" method="post">
    <tr align="center">
      <td height="25" colspan="2" class="a1"><span class="shadow">添加管理员</span></td>
    </tr>
    <tr class="a3"> 
      <td> 管理员帐号：</td>
      <td> <input name="user" type="text" id="user2" size="16" maxlength="20"></td>
    </tr>
    <tr class="a4"> 
      <td> 管理员密码：</td>
      <td><input name="pass" type="password" id="pass" size="16"></td>
    </tr>
    <tr class="a3">
      <td>密码确认：</td>
      <td><input name="pass2" type="password" id="pass2" size="16"></td>
    </tr>
    <tr class="a4"> 
      <td> 等级：</td>
      <td><select name="flag">
        <option value="">请选择</option>
        <option value="1">输入员</option>
        <option value="2">审核员</option>
        <option value="3">管理员</option>
            </select></td>
    </tr>
    <tr align="center" class="a3"> 
      <td colspan="2">        <INPUT type=submit value='确认添加' name=Submit2>
      </td>
    </tr>
  </form>
</table>
<p></p>
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form action="?" method="post" onSubmit="return Confirm()">
  <tr align="center" class="a1">
    <td width="8%" height="25">ID </td>
    <td width="9%">用户名</td>
    <td width="10%">等级</td>
    <td width="21%">登录时间 </td>
    <td width="22%">登录IP </td>
    <td width="17%">状态</td>
    <td width="13%">修改</td>
  </tr>
  <%
			  set rs=Server.CreateObject("adodb.recordset")
sql="select * from [manage_user]"
rs.open sql,conn,1,3
j=0
do while not rs.eof
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
%>
  <tr align="center" class="<%=a%>">
    <td height="22"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%> <%if rs("username")=Request.Cookies("9cool_name") then Response.Write(" disabled")%>></td>
    <td><%=rs("UserName")%></td>
    <td><%select case rs("flag")
		  case "1"
		  response.write"输入员"
		  case "2"
		  response.write"审核员"
		  case else
		  response.write"管理员"
		  end select
		  %></td>
    <td><%=rs("logintime")%></td>
    <td><%=rs("loginip")%></td>
    <td><%
	if rs("lock")=True then
	Response.Write("被禁用")
	elseif rs("lock")=False then
	Response.Write("正常")
	end if%></td>
    <td><a href="?option=edit&id=<%=rs("id")%>&user=<%=rs("username")%>">修改</a></td>
  </tr>
    <%
	j=j+1
rs.movenext
loop
rs.close
%>
  <tr align="center" class="a4">
    <td height="22" colspan="7"> <input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
全选
  <input name="option" type="radio" value="lock">
锁定
<input name="option" type="radio" value="unlock">
激活
<input name="option" type="radio" value="del">
删除<input name="Submit" type="submit" id="Submit" value=" 确 定 "> </td>
  </tr>
</form></table>
<%
end sub
sub edit
sql="select * from [manage_user] where id="&request("id")
rs.open sql,conn,1,1
%>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form action="?option=editok" method="post" onSubmit="return check_input()">
    <tr align="center">
      <td height="25" colspan="2" class="a1">管理密码修改</td>
    </tr>
    <tr class="a3">
      <td width="317"> 用户名：</td>
      <td width="416"><%=rs("username")%></td>
    </tr>
    <tr class="a4">
      <td> 密　码：</td>
      <td>
        <input name="pwd" type="text" id="pwd" value="<%=rs("password")%>" size="32" maxlength="20">        </td>
    </tr>
    <tr class="a3">
      <td>等　级： </td>
      <td><select name="flag">
        <option value="">请选择</option>
        <option value="1" <%if rs("flag")="1" then%>selected<%end if%>>输入员</option>
        <option value="2" <%if rs("flag")="2" then%>selected<%end if%>>审核员</option>
        <option value="3" <%if rs("flag")="3" then%>selected<%end if%>>管理员</option>
      </select></td>
    </tr>
    <tr align="center" class="a4">
      <td colspan="2">
        <input name="id" type="hidden" value="<%=request("id")%>"><input name="adminuser" type="hidden" value="<%=rs("username")%>">
      <INPUT name=Submit  type=submit id="Submit" value='确认修改'></td>
    </tr>
  </form>
</table>
<%end sub%>
</body>
</html>
<%
sub add
user=request.form("user")
pass=request.form("pass")
pass2=request.form("pass2")
flag=request.Form("flag")
if user="" or pass="" or flag="" then ErrMsg("管理员帐号、密码及等级均不能为空！")
if pass<>pass2 then ErrMsg("两次输入的密码不一致！")
If not conn.Execute("Select id From [manage_user] where username='"&user&"'" ).eof Then
ErrMsg("管理员："&user&"已经存在，请使用其它名称！")
end if
sql="select * from manage_user"
rs.open sql,conn,1,3
'添加一个管理员帐号到数据库
rs.addnew
rs("username")=user
rs("passWord")=md5(pass)
rs("flag")=flag
rs.update
rs.close
Response.write"<script>alert('新增管理员:"&user&"操作成功！');location.href='admin_admin.asp'</script>"
end sub
sub editok
sql="select * from [manage_user] where id="&request("id")
rs.open sql,conn,1,3
if request.form("pwd")<>rs("password") then
rs("password")=md5(request.form("pwd"))
end if
rs("flag")=request.Form("flag")
rs.update
rs.close
if request.form("adminuser")<>"" and request.form("adminuser")=Request.Cookies("9cool_name") then
response.write "<script>alert('您修改了当前正在使用的管理员帐号，请重新登录！');top.location.href='login.asp?action=loginout'</script>"
else
response.write "<script>alert('修改管理员："&request.form("adminuser")&"资料操作成功！');location.href='admin_admin.asp'</script>"
end if
end sub
sub lock
	if ID="" then
		Response.Write "<br><li>请指定要锁定的站点</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="Update [manage_user] set lock=True where id in (" & ID & ")"
	else
		sql="Update [manage_user] set lock=True where id=" & Clng(ID)
	end if
	Conn.Execute sql      
	response.redirect "admin_admin.asp"
end sub
sub unlock
	if ID="" then
		Response.Write "<br><li>请指定要审核的站点</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="Update [manage_user] set lock=False where id in (" & ID & ")"
	else
		sql="Update [manage_user] set lock=False where id=" & Clng(ID)
	end if
	Conn.Execute sql      
	response.redirect "admin_admin.asp"
end sub
sub Del
	if ID="" then
		Response.Write "<br><li>请指定要删除的用户</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [manage_user] where id in (" & ID & ")"
	else
		sql="delete from [manage_user] where id=" & Clng(ID)
	end if
	Conn.Execute sql   
	response.redirect "admin_admin.asp"
end sub
%>
⌨️ 快捷键说明

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