📄 changepassword.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<%dim objrs,sql
Set objrs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin"
objrs.open sql,objconn,1,3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if request.form("admin")="" or request.form("password")="" then%>
<script language=vbscript>
MsgBox "error：admin name and admin password are all required!"
location.href = "javascript:history.back()"
</script>
<%response.end
end if
objrs("admin")=request.form("admin")
objrs("password")=request.form("password")
objrs.update
objrs.close
objconn.close
set objrs=nothing
set objconn=nothing
%>
<script language=vbscript>
MsgBox "修改成功，以后请用新管理员信息登陆！"
location.href = "changepassword.asp"
</script>
<%response.end
end if%><head>
<link rel="stylesheet" type="text/css" href="../links.css">
</head>
<p> </p>
<form name="form1" method="post" action="changepassword.asp">
<table width="400" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000" bordercolordark="#FFFFFF">
<TBODY>
<tr>
<td background="../images/background.gif" height="20" align="center" colspan="2"><b>更改管理员密码</b></td>
</tr>
<tr>
<td width="30%">
<div align="center">管理员名称：</div>
</td>
<td>
<input type="text" name="admin" class="smallinput" value="<%=objrs("admin")%>">
</td>
</tr>
<tr>
<td width="30%">
<div align="center">管理员密码：</div>
</td>
<td>
<input type="text" name="password" class="smallinput" value="<%=objrs("password")%>">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"> <br>
<input type="submit" value="修改" name="cmdok">
<input type="reset" value="重新" name="cmdcancel">
<input name=".goback" type="reset" value="返回" onClick="history.go(-1)">
<br>
<br>
</div>
</td>
</tr>
</table>
</form>
<P align=center><br>
制作：<a href="http://www.huamed.com/gallery">Galleryit Pro 3.0.0</a></p>
<P align=center>来源：<a href="http://bbs.5iasp.com">http://bbs.5iasp.com</a></p>
<P align=center>汉化：<a href="http://www.youilove.com">ORPIN</a></p>
<%objrs.close
objconn.close
set objrs=nothing
set objconn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -