ASP Classic：VbScript函数是否可以返回对象？

Question

我正在学习VbScript和ASP Classic。

VbScript函数是否可以返回对象？

下面的代码在第15行显示以下错误：

对象不支持此属性或方法（'800a01b6'错误）

<%
Class Customer
    Public Id
    Public Name
End Class

Class CustomerFactory
    Public Function GetCustomer()
        Dim cust
        Set cust = New Customer
        cust.Id = 1
        cust.Name = "Andrew"

        ' Return
        GetCustomer = cust
    End Function
End Class

Dim factory
Dim cust_from_factory

Set factory = New CustomerFactory
Set cust_from_factory = factory.GetCustomer()
%>

谢谢

Answer 1

我发现了错误的原因。

返回函数时，必须使用Set结构

之前（有错误）

' Return
GetCustomer = cust

之后

' Return
Set GetCustomer = cust