密码查询

是遗失密码后咱们取回密码么？这个可以发送到注册邮箱，或者用提示问题。

提示问题就是根据用户名取得问题，然后将答案作对比阿

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim remindpass__MMColParam
remindpass__MMColParam = "1"
If (Request.QueryString("useremail") <> "") Then
remindpass__MMColParam = Request.QueryString("useremail")
End If
%>
<%
Dim remindpass
Dim remindpass_numRows

Set remindpass = Server.CreateObject("ADODB.Recordset")
remindpass.ActiveConnection = MM_qdwuxiao_STRING
remindpass.Source = "SELECT Email, Password, PassQuestion, PassAnswer FROM Customers WHERE Email = '" + Replace(remindpass__MMColParam, "'", "''") + "'"
remindpass.CursorType = 0
remindpass.CursorLocation = 2
remindpass.LockType = 1
remindpass.Open()

remindpass_numRows = 0
dim var_done
var_done="0"
if not remindpass.EOF or not remindpass.bof then
if (request.querystring("answer")<>"") and (request.querystring("answer")=remindpass.fields.item("passAnswer").value) then
var_done="1"
end if
end if
%>

src="images/line.gif" width=134> src="images/arr.gif" width=16> 用户注册 src="images/line.gif" width=134> src="images/arrok.gif" width=16> 忘记密码 src="images/line.gif" width=134> src="images/arr.gif" width=16> href="cinfologin.asp">修改注册信息 src="images/line.gif" width=134>	<%if var_done<>"1" then %> <% If remindpass.EOF And remindpass.BOF Then %> <% if (Request.querystring("useremail") <> "") then %>          该Email不存在,请再次输入!          <%End if %> <% End If ' end remindpass.EOF And remindpass.BOF %> 请输入您的Email： "> <% If Not remindpass.EOF Or Not remindpass.BOF Then %> 您的问题是:<%=(remindpass.Fields.Item("PassQuestion").value)%> 答案：　 ">          <%if (request.querystring("answer")<>remindpass.fields.item("PassAnswer").value) AND (request.querystring("answer")<>"") then %> 错误的回答,请确认后再次回和答          <%end if %> <% End If ' end Not remindpass.EOF Or NOT remindpass.BOF %>          <%if var_done<>"1" then %>             <%end if %>          <%end if %>          <%if var_done="1" then %> 您的密码是 ：　<%=remindpass.fields.item("PassWord").value%>　，请牢记,不要再丢了! <%end if %>

<%
remindpass.Close()
%>


改改用把！