返回多值的函数,用到Class.

<%
Class MyClass
   Public aResoult,bResoult,cResoult
 
End Class

Function Myfun()

    Set aClass=New MyClass
        aClass.aResoult="你"
        aClass.bResoult="是"
        aClass.cResoult="猪"
    Set Myfun=aClass        '设函数等于类的实例
 Set aClass=Nothing
End Function

   Response.Write "<BR>"&Myfun.aResoult& Myfun.bResoult& Myfun.cResoult

%>