getpass_modify.asp

来自「一个美化的论坛程序」· ASP 代码 · 共 44 行

ASP
44
字号
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<img src="" width="1" height="3">
<table cellpadding=0 cellspacing=1 border=0 width=680 bgcolor=#FFFFFF align=center>
  <TR align=middle>
    <TD height=27 bgcolor="<%=tablebodycolor%>" align="center"><b><font color="#FF0000">找回密码</font></b></TD>
        </TR>
       <TR>
    <TD align=center bgcolor="<%=tablebodycolor%>" height="20"> 
<%
username=request.form("username")
password=request.form("password")
password2=request.form("password2")
	if password<>password2 then
  		errmsg=errmsg+"<br><li>两次密码输入不一样!</li>"
		call error()
		response.end
	end if
set rs=server.createobject("adodb.recordset")
sql="select username,password from user where username='"&username&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("password")=password
rs.update
Request.Cookies("bookbaby")("username")=rs("username")
Request.Cookies("bookbaby")("userpwd")=rs("password")
response.write "<br>恭喜!密码修改成功!请您记住您的新密码!<br><br><a href=index.asp>点击这里<font color=#ff0000>返回首页</font></a><br>"
else
response.write "<br>密码修改不成功,请与管理员联系!<br>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
      </TD>
        </TR>
        <TR>
    <TD align=center bgcolor="<%=tablebodycolor%>" height="22"><a href=javascript:history.go(-1)>返回上一页</a></TD>
        </TR>
      </TABLE>
    <!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

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