-- 作者：_ycxy
-- 发布时间：6/19/2005 2:50:00 PM
-- 各位大虾帮我看看
下面是找回密码第三步取得密码的代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.Form("Pass_1") <> "") Then
Recordset1__MMColParam = Request.Form("Pass_1")
End If
%>
<%
Dim Recordset1__MMPass_2
Recordset1__MMPass_2 = "1"
If (Request.Form("Pass_2") <> "") Then
Recordset1__MMPass_2 = Request.Form("Pass_2")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT Pass_2 FROM Member WHERE Pass_1 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and Pass_2 ='" + Replace(Recordset1__MMPass_2, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open() Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.form("Pass") <> "") Then
Recordset2__MMColParam = Request.form("Pass")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "SELECT * FROM Member WHERE Pass = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open() Recordset2_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> <body>
<p>
<% If Recordset1.EOF And Recordset1.BOF Then %>
你的问题答案不是这个吧，要不<a href="search1.asp">回去</a>再试试？
<% End If ' end Recordset1.EOF And Recordset1.BOF %>
</p>
<p> </p> <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
<p>你的密码是：<%=(Recordset2.Fields.Item("Pass").Value)%></p>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %> </body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
请各位大虾帮小弟指出怎么改才能显示出密码(当回答问题错误时,可以出现 你的问题答案不是这个吧，要不回去再试试？
回答正确了就出现
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/Member/search3.asp, 第 74 行 <p>你的密码是：<%=(Recordset2.Fields.Item("Pass").Value)%></p>
此为74行
|