W
wsl187
Unregistered / Unconfirmed
GUEST, unregistred user!
我在执行下列语句时:出现了
[red]“错误类型:
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'EOF'[/red]
请问这是什么问题?小弟感激不尽!!!!!!!!!1
代码如下:
<%
dim Conn,sql,rs
set Conn=server.createobject("adodb.connection"
Conn.connectionstring="driver={SQL Server};server=wsl;UID=sa;PWD=wsl;Database=fashion"
Conn.Open
set rs=server.CreateObject("adodb.recordset"
sql="select * from fashionnews order by addtime desc"
rs=conn.execute(sql)
%>
<table>
<%
do
while not rs.EOF
response.Write"<tr><td>"&rs("title"&"</td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
[red]“错误类型:
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'EOF'[/red]
请问这是什么问题?小弟感激不尽!!!!!!!!!1
代码如下:
<%
dim Conn,sql,rs
set Conn=server.createobject("adodb.connection"
Conn.connectionstring="driver={SQL Server};server=wsl;UID=sa;PWD=wsl;Database=fashion"
Conn.Open
set rs=server.CreateObject("adodb.recordset"
sql="select * from fashionnews order by addtime desc"
rs=conn.execute(sql)
%>
<table>
<%
do
while not rs.EOF
response.Write"<tr><td>"&rs("title"&"</td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>