把建立的对象做为另外一个函数的参数带入调用

把建立的对象做为另外一个函数的参数带入调用

---------------------------------------- 

set rs=conn.execute(sql)
set rssObj=new ModooRss

调用:-------------------------------------------------------------------------

    dim i
    i=0
    do while not rs.eof
    out_rss typeid,rssobj,rs '三种数据
       rssObj.addItem(rs("infoid"))
    rs.movenext
    i=i+1
    loop

--------------------------------------------------------------------------------

函数:

sub out_rss(typeid,rssobj,rs) '这里就带入调用了

............就可以在这个过程里面调用对象rs和rssobj了

比如:rs("字段名")

end sub