如何将Recordset对象传入/传出函数，

[shuangren]

如果

[sdts]

不明白

[shuangren]

就是如何把Rescordset对象当做参数传入函数或者当做函数的返回值

[阿泰]

'输入
function GetX(rs)
do while not rs.eof
end function

'返回
function ReturnX()
dim rs
rs.open ...
Set ReturnX=rs
end function

[shuangren]

babyt(阿泰)
不行啊，不能用dim这样定义rs，报告错误：缺少对象
我又试着
Set rs = Server.CreateObject("ADODB.RECORDSET")
引用函数时报告错误：对象不支持此属性或方法

[阿泰]

你在那里定义的啊???

[shuangren]

是这样，我想写个操作数据库的接口，接口放在单独页面中，需要时包含进主页面，以供调用

[阿泰]

写了个例子,相信你会看明白 :)
<%
function GetX(rs)
rs.Movefirst
do while not rs.eof
Response.Write rs("ID") & "<BR>"
rs.movenext
loop
end function

'返回
function ReturnX()
dim rs
Set rs=server.CreateObject("Adodb.Recordset")
'模拟一个记录集,你可以在此处实际操作数据库
'-------------------------------
rs.Fields.Append "ID",129,4
rs.open
rs.Addnew
rs("ID")="001"
rs.update
rs.Addnew
rs("ID")="002"
rs.update
'-------------------------------
'返回值
Set ReturnX=rs
end function

Dim rs1
'设
Set rs1=ReturnX
'取
Call GetX(rs1)
%>

[shuangren]

解决了，我是这样调用函数的
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs = GetRecord ()
结果总是报错：对象不支持此属性或方法
直接写成
Set Rs = GetRecord ()
问题解决，这是怎么回事呢？

[阿泰]

ASP中的函数参数和返回值都是Variant的
记住这点就可以了