把建立的对象做为另外一个函数的参数带入调用
----------------------------------------
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