<!--#include file="up.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim menu,getpwd,name,question,sr,answer,newpwd,repwd,newname,sql
menu=request.querystring("menu")
select case menu
case""
%>
<form method=POST name=kbbs action="?menu=postname">
<div align="center">重 设 密 码
</div>
<p style="margin: 10">请输入你的用户名: <input type="text" name="name" size="20"> <input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2">
</form>
<%
case"postname"
getpwd=true
name=Request.Form("name")
set rs=conn.execute("select question from [user] where name='"&name&"'")
if rs.eof then
mes="·该用户不存在·"
getpwd=false
else
question=rs("question")
set sr=conn.execute("select name from [admin] where name='"&name&"'")
if not sr.eof then
mes="该用户是管理员或版主,忘记密码请与管理员联系!"
getpwd=false
end if
set sr=nothing
end if
set rs=nothing
if getpwd=false then
%>
错 误 信 息
<%else%>
<form method="POST" action="?menu=get">回答问题<input type="hidden" name="name" size="20" value="<%=name%>">
<p style="margin: 6">提示问题:<%=kbbs(question)%></p><p style="margin: 6">问题回答:<input type="text" name="answer" size="20"></p><p style="margin: 6">
<input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p> </form>
<%end if%>
<%case"get"
name=Request.Form("name")
answer=Request.Form("answer")
set rs=conn.execute("select name from [user] where name='"&name&"' and answer='"&answer&"'")
if rs.eof then
%>
<a href="javascript:history.go(-1)"> <img border="0" src="pic/re.gif"> 错 误 返 回</a>
<%else%>
<form method="POST" action="?menu=change">更 改 密 码<p style="margin: 6">
<input type="hidden" name="name" size="20" value="<%=name%>"><input type="hidden" name="answer" size="20" value="<%=answer%>">新 密 码:
<input type="password" name="newpwd" size="20">
</p><p style="margin: 6">
重复密码:
<input type="password" name="repwd" size="20">
</p><p style="margin: 6">
<input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p></form>
<%
end if
set rs=nothing%>
<%case"change"
name=Request.Form("name")
answer=Request.Form("answer")
newpwd=Request.Form("newpwd")
repwd=Request.Form("repwd")
%>
错 误 信 息<p style="margin: 10">·你的密码含有非法字符·</p>
<%
if newpwd<>repwd then%>
错 误 信 息<p style="margin: 10">·你的重复密码与原密码不相同·</p>
<%
else
set rs=conn.execute("select userid from [user] where name='"&name&"' and answer='"&answer&"'")
if rs.eof then%>
错 误 信 息<p style="margin: 10">·非法操作·</p>
<%
else
conn.execute("update [user] set password='"&newpwd&"' where name='"&name&"'")
%>修 改 密 码<%=t2&d1%><p style="margin: 10">·你的密码已经修改,请<a href="login.asp">登陆</a>·</p>
<%
end if
set rs=nothing%>
<%
%>
<%
end if
end select%>
<!--#include file="copyright.asp"-->
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。
/b2/bbs/bbs/getpwd.asp, 第 79 行
<!--#include file="inc/md5.asp"-->
<%
dim menu,getpwd,name,question,sr,answer,newpwd,repwd,newname,sql
menu=request.querystring("menu")
select case menu
case""
%>
<form method=POST name=kbbs action="?menu=postname">
<div align="center">重 设 密 码
</div>
<p style="margin: 10">请输入你的用户名: <input type="text" name="name" size="20"> <input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2">
</form>
<%
case"postname"
getpwd=true
name=Request.Form("name")
set rs=conn.execute("select question from [user] where name='"&name&"'")
if rs.eof then
mes="·该用户不存在·"
getpwd=false
else
question=rs("question")
set sr=conn.execute("select name from [admin] where name='"&name&"'")
if not sr.eof then
mes="该用户是管理员或版主,忘记密码请与管理员联系!"
getpwd=false
end if
set sr=nothing
end if
set rs=nothing
if getpwd=false then
%>
错 误 信 息
<%else%>
<form method="POST" action="?menu=get">回答问题<input type="hidden" name="name" size="20" value="<%=name%>">
<p style="margin: 6">提示问题:<%=kbbs(question)%></p><p style="margin: 6">问题回答:<input type="text" name="answer" size="20"></p><p style="margin: 6">
<input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p> </form>
<%end if%>
<%case"get"
name=Request.Form("name")
answer=Request.Form("answer")
set rs=conn.execute("select name from [user] where name='"&name&"' and answer='"&answer&"'")
if rs.eof then
%>
<a href="javascript:history.go(-1)"> <img border="0" src="pic/re.gif"> 错 误 返 回</a>
<%else%>
<form method="POST" action="?menu=change">更 改 密 码<p style="margin: 6">
<input type="hidden" name="name" size="20" value="<%=name%>"><input type="hidden" name="answer" size="20" value="<%=answer%>">新 密 码:
<input type="password" name="newpwd" size="20">
</p><p style="margin: 6">
重复密码:
<input type="password" name="repwd" size="20">
</p><p style="margin: 6">
<input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p></form>
<%
end if
set rs=nothing%>
<%case"change"
name=Request.Form("name")
answer=Request.Form("answer")
newpwd=Request.Form("newpwd")
repwd=Request.Form("repwd")
%>
错 误 信 息<p style="margin: 10">·你的密码含有非法字符·</p>
<%
if newpwd<>repwd then%>
错 误 信 息<p style="margin: 10">·你的重复密码与原密码不相同·</p>
<%
else
set rs=conn.execute("select userid from [user] where name='"&name&"' and answer='"&answer&"'")
if rs.eof then%>
错 误 信 息<p style="margin: 10">·非法操作·</p>
<%
else
conn.execute("update [user] set password='"&newpwd&"' where name='"&name&"'")
%>修 改 密 码<%=t2&d1%><p style="margin: 10">·你的密码已经修改,请<a href="login.asp">登陆</a>·</p>
<%
end if
set rs=nothing%>
<%
%>
<%
end if
end select%>
<!--#include file="copyright.asp"-->
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。
/b2/bbs/bbs/getpwd.asp, 第 79 行
1万+

被折叠的 条评论
为什么被折叠?



