变量传递的问题
有2个文件
a.asp
<%
class db
dim strconnection
strconnection = "DRIVER={MySql ODBC 3.51 Driver};SERVER=localhost;DATABASE=demo;USER=demo;PASSWORD=demo;"
function demo(sql)
set conn = server.CreateObject("adodb.connection")
conn.open strconnection
demo = conn.execute(sql)
end function
end db
%>
b.asp
<!-- #include file="a.asp" -->
<%
set obj = new db
set rs = obj.demo("select * from user")
rs.movefirst
do until rs.eof
response.Write(rs("uid")&"<br />")
response.Write(rs("pwd"))
rs.movenext
loop
%>
报错:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'movefirst'
这是为什么?