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 )