<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db\db1.mdb")
us=trim(request.form("user"))
exec="select question from user where user='"&us&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof then
response.redirect "find2.htm"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
而到了find2.htm,要做的是,显示该用户的问题,然后让填写答案,答案正确了,显示该用户密码。就是不知道怎么写;
要么就是,在一个ASP页中(find.asp)连续做三件事(输入用户、显示问题、显示密码)
请各位帮我想想
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db\db1.mdb")
us=trim(request.form("user"))
exec="select user,answer,question from user where user='"&us&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof then
session("name")=rs(0)
session("answer")=rs(1) '生产会话变量
session("question")=rs(2) '生成会话变量
response.redirect "find2.asp"
else
%>
"没有这个用户,按此<a href="find.htm">返回</a>"
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
页面findpwstep1.asp
<%
if request("user") <> "" then
user=request("user") '过滤特殊字符
……
sql ="select answer,question from user where userid='"&user&"'"
…… '执行sql语句,生产记录集rs
if rs.eof and rs.bof then '如果输入的用户不存在。
response.write("<script language=javascript>alert('用户名["&user&"]不存在!');window.location='findpwstep1.asp';</script>")
response.end()
else
session("answer")=rs(0) '生产会话变量
session("question")=rs(1) '生成会话变量
response.redirect "findpwstep2.asp"
end if
%>
exec="select question from user where user='"&us&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.eof then
session("ques")=rs("question") //是不是ques也要做session啊,我这样改了
response.redirect "find2.htm"
else
rs.close
set rs=nothing
conn.close
set conn=nothing
end if