Question

新手求教，提示ADODB.Field (0x800A0BCD) BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/acc.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("xgid") <> "") Then
Recordset1__MMColParam = Request.QueryString("xgid")
End If

%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_acc_STRING
Recordset1.Source = "SELECT * FROM information WHERE 姓名 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%><style type="text/css">
<!--
请高手帮看看这有问题吗？ 新手不知道什么原因

Answer 1

首先”rs.EOF and rs.BOF”要改成”rs.EOF or rs.BOF” 另外要在”for i=1 to rs.Pagesize”后面加上 If rs.EOF or rs.BOF Then Exit For End If