📄 my_psw_set.asp
字号:
<!--#include file="include/dbopenbd.asp" -->
<!--#include file="md5.asp"-->
<%
call checklogin()
if request("set")="ok" then call setq()
%>
<HTML>
<HEAD>
<TITLE>取回密码设置-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</HEAD>
<CENTER>
<!--#include file="a_top.asp"-->
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" class="grayline" >
<tr>
<td align="center" valign="top" width="185">
<!--#include file="user_center_menu.asp"-->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" bgcolor="#FfFfFf" width="570">
<TABLE border=0 width="100%" cellspacing="2" cellpadding="2" align=center>
<td height=30>目前位置：<a href=main.asp>首页</a> > <a href=user_center.asp>用户中心</a> > 取回密码问答设置</td></tr>
<tr><td width="570" align="center" height="1" background="images/small/bgline.gif"></td></tr></table>
<br>
<%
set rs=conn.execute("select * from s_buser where UserId='"&request.cookies("buyok")("userid")&"'")
%>
<form name="myinfo" action="my_psw_set.asp" method="post">
<table width="80%" border="1" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr>
<td width="28%" align="right">登陆帐号</td>
<td width="72%"><%=rs("UserID")%><input type=hidden name="userid" value="<%=rs("UserID")%>"></td>
</tr>
<tr>
<td width="28%" align="right">找回密码的问题</td>
<td width="72%"><input size=35 type="text" name="UserQuestion" value="<%=rs("UserQuestion")%>" maxlength=50 style="height=20; BORDER: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="<p align=left>今后忘记密码后<br>通过回答此问题来取回密码<br><font color=red>如：楼下MM小刘的外号叫什么？</font>"></td>
</tr>
<tr>
<td width="28%" align="right">找回密码的答案</td>
<td width="72%"><input size=35 type="text" name="UserAnswer1" value="" maxlength=50 style="height=20; BORDER: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana "> <img src=images/admin/memo.gif alt="<p align=left>原答案不显示<br>若要修改请直接填写新的答案<br><font color=red>如：小妖精</font>"></td>
</tr>
<tr>
<td width="28%" align="right">确认您的答案</td>
<td width="72%"><input size=35 type="text" name="UserAnswer2" value="" maxlength=50 style="height=20; BORDER: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana"> <img src=images/admin/memo.gif alt="重输一次确认"></td>
</tr>
<tr><td colspan=2 align=center>
<input type="submit" name="Submit" value="确认修改">
<input name="Submit2" type="reset" value="不做修改"><input type=hidden name=set value="ok">
</td></tr>
</form>
</table>
<%
rs.close
set rs=nothing
%>
</td>
</TR>
</TABLE>
<!--#include file="a_bottom.asp"-->
</BODY>
</HTML>
<%
sub setq()
call check_path() '保证此页的调用是合法的
UserQuestion=aspsql(request("UserQuestion"))
UserAnswer1=trim(request("UserAnswer1"))
UserAnswer2=trim(request("UserAnswer2"))
if UserQuestion="" or UserAnswer1="" or UserAnswer2="" then mGoBack "出错了，填写不完整，请填写取回密码的问题及答案。"
if UserAnswer1<>UserAnswer2 then mGoBack "出错了，两次输入的答案不相同。"
if len(UserAnswer1)<3 then mGoBack "出错了，您输入答案的太短了，要求最低3位。"
if ucase(request.cookies("buyok")("userid"))<>ucase(request("userid")) then mGoBack "出错了，您无权进行此操作。"
sql = "select * from s_buser where UserId='"&request.cookies("buyok")("userid")&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,3
rs("UserQuestion")=UserQuestion
rs("UserAnswer")=md5(UserAnswer1)
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，您设置的问题和答案已保存。\n\n在您忘记密码的时候，可通过回答此问题来找回密码！');"
response.write "location.href='my_psw_set.asp';"
response.write "</script>"
response.end
end sub
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -