<%
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
%>