?? getpassword.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<html>
<head>
<title><%=bbsname%>-論壇中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您現在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → 找回密碼</span></span></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<!--#include file="inc/md5.asp"-->
<html>
<head>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<p> </p>
<%menu=request.querystring("menu")
select case menu
case""
%>
<table width="738" border="0" align="center" cellpadding="5" cellspacing="0">
<form method="POST" action="?menu=getname"> <tr>
<td><br>
請輸入用戶名：
<input name="username" type="text" class="wenbenkuang" id="username" size="21">
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" value="提交" name="B12" class="go-wenbenkuang">
<input type="reset" value="重寫" name="B22" class="go-wenbenkuang">
</td>
</tr></form>
<tr>
<td width="706" colspan="2"> </td>
</tr>
</table>
<%case"getname"
getpassword=true
username=nosql(trim(Request.Form("username")))
set rs=conn.execute("select Quesion from [shop_user] where username='"&username&"'")
if rs.eof then
response.write"<script language='javascript'>alert('該用戶不存在！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
else
Quesion=rs("Quesion")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="POST" action="?menu=get"> <tr>
<td>用戶名：
<input type="hidden" name="username" size="20" value="<%=username%>"><%=username%></td>
</tr>
<tr>
<td>問題：<%=Quesion%></td>
</tr>
<tr>
<td>請輸入答案：
<input name="anser" type="text" class="wenbenkuang" size="21"></td>
</tr>
<tr>
<td> <input type="submit" value="提交" name="B1" class="go-wenbenkuang">
<input type="reset" value="重寫" name="B2" class="go-wenbenkuang"> </td>
</tr>
</form>
</table> <%end if %>
<% case"get"
username=trim(Request.Form("username"))
anser=trim(Request.Form("anser"))
set rs=conn.execute("select * from [shop_user] where username='"&username&"' and Answer='"&md5(anser)&"'")
if rs.eof then
response.write"<script language='javascript'>alert('答案錯誤！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"%>
<%else
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="POST" action="?menu=change"> <tr>
<td> <input type="hidden" name="username" size="20" value="<%=username%>"><input type="hidden" name="anser" size="20" value="<%=anser%>">
新密碼：<input name="newpass" type="text" class="wenbenkuang" size="21"></td>
</tr>
<tr>
<td> 確認新密碼：
<input name="repwd" type="text" class="wenbenkuang" size="21"></td>
</tr>
<tr>
<td> <input type="submit" value="提交" name="B1" class="go-wenbenkuang">
<input type="reset" value="重寫" name="B2" class="go-wenbenkuang"></td>
</tr>
<tr>
<td> </td>
</tr></form>
</table>
<%end if%>
<%case"change"
username=nosql(trim(Request.Form("username")))
anser=nosql(trim(Request.Form("anser")))
newpass=nosql(trim(Request.Form("newpass")))
repwd=nosql(trim(Request.Form("repwd")))
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("論壇")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function
if isnull(newpass) or newpass="" or strlength(newpass)>16 or Instr(newpass,"=")>0 or Instr(newpass,"%")>0 or Instr(newpass,chr(32))>0 or Instr(newpass,"?")>0 or Instr(newpass,"&")>0 or Instr(newpwd,";")>0 or Instr(newpass,",")>0 or Instr(newpass,"'")>0 or Instr(newpass,",")>0 or Instr(newpass,chr(34))>0 or Instr(newpass,chr(9))>0 or Instr(newpass,"?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -