asp function回到数据集

asp 使用function返回数据集的话，返回的变量必须使用set关键字，eg：

function GetQYInfo(qyid)
	dim sql,rs
	sql="SELECT * FROM tableWHERE id="&id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	GetQYInfo=rs
end function

set QY=GetQYInfo(123)