在实践中磨练——ASP错误："对象不支持此属性或方法: 'eof' "

Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'eof'

　　这一错误是我这一asp新手，在制作网页时遇到的最头痛的问题之一。我竭现所学努力寻求解答却无所获——为什么同样的代码有的网页可以有些却又报错？

　　以我的初验，我的解决方法是：

（１）代码位置摆放不正确：
把以下连接放到〈body〉〈／body〉中时，出现了以上错误提示，而放在〈／html〉之前〈％　@language ="vbscript" ％〉之后则无。
<%
dim connStr
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("dat/netmasterdb.mdb")
dim thisConn
set thisConn=server.CreateObject("ADODB.Connection")
thisConn.open connStr
dim mySql1,mySql2,mySql3
mySql1="select member_name,member_grade,member_subject,member_room from members where depart_name='办公室'"
mySql2="select member_name,member_grade,member_subject,member_room from members where depart_name='网络部'"
mySql3="select member_name,member_grade,member_subject,member_room from members where depart_name='程序部'"
dim myRs1
set myRs1=server.CreateObject("ADODB.Recordset")
dim myRs2
set myRs2=server.CreateObject("ADODB.Recordset")
dim myRs3
set myRs3=server.CreateObject("ADODB.Recordset")
myRs1.open mySql1,thisConn
myRs2.open mySql2,thisConn
myRs3.open mySql3,thisConn
%>

（２）与使用记录集打开方式有关：
当使用set myRs1=thisConn.execute(mySql1)时，在body中使用do until myRs1.eof 时此行出错。而使用上面定义方式时正常。

　　这是我的经验不知是否正确，暂做记录，也许到经验丰富时，可以此为笑料，请大家见怪不怪！

Arrow2005
2005-11-27