📄 user_manager.asp

📁 网吧使用的导航web站点
💻 ASP
字号:
<!--#include file="mdb.asp"-->
<!--#include file="Md5.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim username,password
sql="select password,username from admin"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
username=rs("username")
password=rs("password")
rs.close
set rs=nothing
dim currentadmin,action
currentadmin=Session("Admin")
action=request("action")
if action="doit" then
if request("pw4")="" then
	Response.Write "请输入原管理员密码！"
	Response.End
end if
if request("pw1")="" and request("pw2")="" and request("pw3")=""then
	Response.Write "无任何修改！"
	Response.End
end if
if request("pw1")<>request("pw2") then
	Response.Write "两次输入的密码不一样！"
	Response.End
end if
dim pw1,pw2,pw3,pw4
pw3=request("pw3")
pw1=md5(request("pw1"))
pw2=md5(request("pw2"))
pw4=md5(request("pw4"))
if pw4<>password then
	Response.Write "原密码输入错误！"
	Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select password,username from admin",conn,1,3
if not r.eof then
if request("pw1")="" and request("pw2")="" then
	r("username")=pw3
	r.update
	r.close
	set r=nothing
	Response.Write "管理员帐号已成功更改！"
	Response.End
end if
if request("pw3")="" then
	r("password")=pw1
	r.update
	r.close
	set r=nothing
	Response.Write "管理员密码已成功更改！"
	Response.End
end if
if request("pw1")<>"" and request("pw2")<>"" and request("pw3")<>""then
	r("password")=pw1
	r("username")=pw3
	r.update
	r.close
	set r=nothing
	Response.Write "管理员帐号和密码已成功更改！"
	Response.End
end if
else
	r.close
	set r=nothing
	Response.Write "无法完成请求！"
	Response.End
end if
end if
%>
<html>
<head>
<title>修改管理员帐号/密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<div align="center">
<br><br>
<form action="user_manager.asp" method="post">                   
<table width="80%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
  <tr> 
    <td bgcolor="#cccccc" align="center" colspan="2">更改当前管理员帐号/密码</td>
  </tr>
  <tr> 
    <td bgcolor="#eeeeee" width="100"><br>原管理员帐号：</td>
    <td bgcolor="#eeeeee"><input type="username" name="0" value=<%=username%> disabled> </td> 
  </tr>
  <tr> 
    <td bgcolor="#eeeeee" width="100">新管理员帐号：</td>
    <td bgcolor="#eeeeee"><input type="username" name="pw3">&nbsp;<font color="#FF0000">如不修改，请留空</font></td> 
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">请输入原密码：</td>
    <td bgcolor="#eeeeee"><input type="password" name="pw4">  <font color="#FF0000">*</font></td>   
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">请输入新密码：</td>
    <td bgcolor="#eeeeee"><input type="password" name="pw1">   <font color="#FF0000">如不修改，请留空</font></td> 
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">请确认新密码：</td>
    <td bgcolor="#eeeeee"><input type="password" name="pw2">   <font color="#FF0000">如不修改，请留空</font></td> 
  </tr>
  <tr> 
    <td bgcolor="#eeeeee"></td>
    <td bgcolor="#eeeeee"><input type="submit"></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#eeeeee" colspan="2">[<font color=#002288> <a href="http://www.HOTwz.com" target="_blank">热门网址</a></font>]</td>  
  </tr>
</table>
<input type="hidden" value="doit" name="action"> 
</form>
</div>
</body>
</html>
⌨️ 快捷键说明

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