asp自定义函数可以返回数组或者对象

asp自定义函数可以返回数组或者对象
例子：

function GetAuditorInfoBySeqNo(filenostr,strSeqNo)
  Dim auditorInfo(3)
  sqltext = "select auditor from  fileaudit where FileNO='"&filenostr&"' and seqNo='"&strSeqNo&"'"
  set rs_auditor = conn.Execute(sqltext)
  if not rs_auditor.eof then
    employeeid = rs_auditor("auditor")
 sqltext =" select * from employee where id="&employeeid
    set rs_em = conn.Execute(sqltext)
 auditorInfo(1) = rs_em("ID")
 auditorInfo(2) = rs_em("en_Name")
 auditorInfo(3) = rs_em("mail")
  end if
   GetAuditorInfoBySeqNo = auditorInfo
end function

AuditorInfo = GetAuditorInfoBySeqNo(file_No,2)
            Response.write AuditorInfo(1)