大家来看看我这个asp小程序错在哪

来源:百度知道 编辑:UC知道 时间:2024/05/12 20:42:04
<%function getrs(sql)

set rs=server.CreateObject("adodb.recordset")
rs.ActiveConnection =connStr
rs.open sql,,3,3

end function

%>

<%

sql="select * from bbs_fboard "
getrs(sql)
while not rs.eof
response.Write((rs(0)))
rs.movenext()
wend
%>
运行错误提示:
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

注:当把getrs函数里的代码替换getrs(sql)的时候,运行就正常了.
这是为什么?不可以这样建立获取记录集的函数吗

你的rs是在函数里声明的, 当这个函数结束时, rs也随之消失了. 这是基本的变量作用域的问题. 看来你的编程基础知识还需要补一下. 把set rs=server.CreateObject("adodb.recordset") 这一句移到函数体外面并写到第一次调用getrs之前就可以了.

set rs=server.CreateObject("adodb.recordset")
rs.open sql,connStr,3,3