forget_do.asp

基于ASP的SQL小区物业管理系统课程设计

<!--#include file="inc/conn.asp"-->
<% 
   dim oname,ques,answ,result,pass
   oname=Trim(Request.Form("oname"))
   ques=Request.Form("question")
   answ=Trim(Request.Form("answer"))
   set rs=Server.CreateObject("ADODB.RecordSet")
   sql="select * from userlist where username='"&oname&"'"
   rs.open sql,conn,1,1
      if rs.recordcount=0 then
	  result=Server.URLEncode("对不起，该用户不存在！！！")
	  Response.Redirect "forget.asp?result="&result
  	  Response.End()
	  else
	      if ques=rs(5) and answ=rs(6) then
	      Response.Redirect "forget.asp?pass="&rs(4)&"&username="&oname
		  else
		  result=Server.URLEncode("对不起，您的问题或答案错误！！！")
	      Response.Redirect "forget.asp?result="&result
		  end if
	  end if
	rs.close
	set rs=nothing	   
%>