Asp classic 从外部脚本获取公共属性的变量

我想知道如何从外部脚本获取公共属性。测试代码如下所示，并且它似乎使用此方法为

tValue

显示一个空变量

有什么我没在这里做的吗

'External Code
Set nObj = New Test
Response.Write(nObj.tValue)

'The Class
Class Test
    Public Test1

    Public Property Get tValue
        tValue = Test1
    End Property

    Sub Loadit
        Test1="123"
    End Sub
End Class

---

没关系，因为它没有先打电话给潜艇

这把它修好了

 'External Code
 Set nObj = New Test

 Call nObj.Loadit

 Response.Write(nObj.tValue)

---

构造函数的名称不正确。经典ASP中类的构造函数的默认名称是

class\u Initialize

。基于此，您的代码应该是：

'External Code
Set nObj = New Test
Response.Write("tValue = " & nObj.tValue)

'The Class
Class Test
    Private Test1

    Public Property Get tValue
        tValue = Test1
    End Property

    Public Sub Class_Initialize
        Test1 = "123a"
    End Sub 
End Class

或者，如果希望保持类的代码不变，则应将外部代码更改为：

'External Code
Set nObj = New Test
nObj.Loadit
Response.Write(nObj.tValue)