vbscript - 如何使用存储在应用程序中的类？

Question

我定义了一个这样的类:

Class Foo
    Public SomePublicProperty

    Public Function init(p_somePublicProperty)
        set init = Me

        SomePublicProperty= p_somePublicProperty
    End Function
End Class

然后在我的 global.asa Application_OnStart 中使用它，如下所示:

Dim fooInstance 

Set fooInstance = New Foo.init("Some data")

fooArray = Array(fooInstance)

Application("fooArray") = fooArray

这工作正常，但是当我从另一个页面上的应用程序商店取回值时，我无法访问该属性...

fooArray = Application("fooArray")

fooArray(0).SomePublicProperty 'This line returns an error - Object doesn't support this property or method

我尝试将类定义放入第二页，但没有帮助。

我错过了什么？

<小时/>

我刚刚找到this问题。我假设相同的规则重新序列化同样适用于应用程序对象是否正确？所以我不应该尝试这样做？

Answer 1

不幸的是你不能这样做，这是我能找到的最好的解释；

^{From Can I store VBScript class objects in a Session variable?}
This is because VBS classes are NOT true classes. They are really just in-memory collections of info, and there is no way to guarantee (for example) that an instance that is stored in one page will even come close to matching the class definition in another page.

这与使用 Server.CreateObject() COM 对象不同，COM 对象可以从 Application 和 Session 存储和检索对象。

您有几个选择；

• 自己在结构化字符串中序列化对象，然后在需要时使用它来反序列化对象。

• 为 VBScript 类创建 COM 包装器并完全停止使用 Class 语句。由于 COM 对象可以存储在 Application 和 Session 对象中，只要 COM 类是单线程的，这就应该可以工作。

• 将您的类转换为 Array 并使用它。

<小时/>

有用的链接

• Application Object (IIS)

• Setting the Scope of COM Objects in ASP Pages - Giving an Object Application Scope