getpwd4.asp
来自「ASP+SQL2000+」· ASP 代码 · 共 73 行
ASP
73 行
<%response.buffer="True"%>
<!--#include file="conn.asp"--><!--#include file="../include/config.asp"--><!--#include file="../include/md5.asp"--><!--#include file="char.inc"-->
<%
dim rs,sql
dim username,passwd
username=request("username")
passwd=md5(trim(checkStr(request.form("passwd"))))
set rs=Server.CreateObject("Adodb.Recordset")
sql="select username,passwd from admin where username='"&username&"'"
rs.open sql,conn,1,3
If rs.eof Then
%>
<script language="javascript">
alert("这个用户还没有注册呢，请到首页注册吧！")
location.href="javascript:history.back()"
</script>
<%
else
rs("passwd")=passwd
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<title>取回密码</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
<!--
if (parent.frames.length > 0) {
parent.location.href = location.href;
}
// --></script>
</head>
<body bgcolor="#FFFFFF" topmargin="11" leftmargin="0" oncontextmenu="self.event.returnValue=false">
<div align="center"><br><br>
<center>
<table border="1" cellpadding="0" cellspacing="0" width="326" bgcolor="#FFFFFF" height="184" bordercolor="<%=border%>" style="border-collapse: collapse">
<tr>
<td height="127" valign="top" width="324"></center>
<div align="center">
<center>
<table border="0" cellpadding="5" width="99%" cellspacing="4" height="49">
<tr>
<td width="100%" height="1">
<p align="center">密码设置成功。</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td height="14" width="324">
<p align="center"><a href="javascript:window.close()" class="1">关闭窗口</a></td>
</tr>
</table>
</form>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?