📄 changepass.asp
字号:
<!--#include file="setup.asp" -->
<!--#include file="conn.asp" -->
<%
Response.Expires=0
if request("b1")=empty then
%>
<html>
<head>
<title>管理员密码更改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF">
<table width="499" border="0" cellspacing="0" cellpadding="0" align="center" height="21">
<tr>
<td><img src="image/home.gif" width="16" height="16"> <a href="<%=homepage%>">
回主页</a> >> <%=proname%> >> 更改管理密码</td>
</tr>
</table>
<form method="post" action="changepass.asp" name="reg">
<table border=1 cellpadding=5 cellspacing=0
width="501" align="center" bordercolor="#999999" bgcolor="#FFCC99" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td align=middle
width=483>
<p align="center"><font color="#FF0000">更改管理密码 </font></p>
</td>
</tr>
<tr>
<td align=middle
width=483 height="25">
<div align="center">带 "<font color="#FF3333">*</font>" 的为必填选项,注意不要使用空格符</div>
</td>
</tr>
<tr>
<td align=middle
width=483> <br>
<table width=100% border=0 cellspacing=0 cellpadding=6 bgcolor="#bbbbbb">
<tr>
<td width=30% class=link align="right">管理员名称:</td>
<td width=70%>
<input type=text name=username size=20 maxlength=20 class=link>
<font color="#FF3333">*</font> 字母或数字</td>
</tr>
<tr>
<td width=30% class=link align="right">旧 密 码:</td>
<td width=70%>
<input type=text name=password size=20 maxlength=20 class=link>
<font color="#FF3333">*</font> 字母或数字</td>
</tr>
<tr>
<td width=30% class=link align="right">新 密 码:</td>
<td width=70%>
<input type=text name=password2 size=20 maxlength=20 class=link>
<font color="#FF3333">*</font> 字母或数字</td>
</tr>
<tr>
<td width=30% class=link align="right">确认密码:</td>
<td width=70%>
<input type=text name=password3 size=20 maxlength=20 class=link>
</td>
</tr>
</table>
<br>
</td>
</tr>
<tr>
<td align=middle
width=483>
<div align="center">
<input type="submit" value="填好了,继续!" name="b1">
<input type="reset" name="Reset" value="重新填写">
</div>
</td>
</tr>
<tr>
<td align=middle
width=483>
<div align="left">
<p>注意事项:<br>
<br>
1、不得将本系统用于任何包含色情、非法、以及危害国家安全的场所. <br>
<br>
2、以上规则违者责任自负,本站有权追究其法律责任。</p>
<p>3、您可以免费使用本系统,但必需保留本站链接.</p>
</div>
</td>
</tr>
<tr>
<td align=middle
width=483>
<div align="center">程序制作:<a href="http://www.soonhost.com" target="_blank"><b>迅捷主机网</b></a></div>
</td>
</tr>
<tbody> </tbody>
</table>
</form>
<p> </p>
</body>
</html>
<%
response.end
end if
username=trim(replace(request("username"),"'",""))
password=trim(replace(request("password"),"'",""))
password2=trim(replace(request("password2"),"'",""))
password3=trim(replace(request("password3"),"'",""))
for i=1 to len(username)
user=mid(username,i,1)
if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" then
response.write "<script language=JavaScript>" & "alert('您的用户名含有非法字符,请重新输入!');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(password)
pass=mid(password,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入!');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(password2)
pass=mid(password2,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入!');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(password3)
pass=mid(password3,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入!');" & "history.back()" & "</script>"
response.end
end if
next
set rs=server.createobject("adodb.recordset")
Sql="Select * from admin"
Rs.Open Sql,Conn,1,3
If Rs("username")<>username Then response.write "<script language=JavaScript>" & chr(13) & "alert('您不是管理员不能进入!');" & "history.back()" & "</script>"
If Rs("password")<>password Then response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的密码不正确!');" & "history.back()" & "</script>"
if password2 <>password3 then response.write "<script language=JavaScript>" & chr(13) & "alert('您确认您两次输入的密码是否一致!');" & "history.back()" & "</script>"
Rs("password")=password2
Rs.Update
Response.Write "<html><body><center>更改成功!<p>"
Response.Write "</center></body></html>"
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
'====================================================
'迅捷主机网 ------ 首选域名、虚拟主机、企业邮局提供商
'网址:http://www.soonhost.com
''EMAIL:sell@china.com
'msn:soonhost@hotmail.com
'oicq: 123150745
'本站还提供大量脚本下载,负责安装;脚本定制价格低廉.
'程序为免费程序,您可以使用本程序,但必须
'保留迅捷主机网(http://www.soonhost.com)的链接!
'====================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -