将VB中的CLASS结合到VBscript中来

将VB中的CLASS结合到VBscript中来

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 将VB中的CLASS结合到VBscript中来 (http://www.webasp.net/article/1/517.htm)

-- 作者：未知
-- 发布日期： 2003-04-15

<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Class clsTest
Private m_strTest

Private Sub Class_Initialize()
m_strTest = "VBScript Programming is fun!"
End Sub

Private Function PrivateTest(strTest)
PrivateTest = strReverse(strTest)
End Function

Public Property Get TestProperty()
TestProperty = m_strTest
End Property

Public Property Let TestProperty(strTest)
m_strTest = strTest
End Property

Public Sub Test()
m_strTest = PrivateTest(m_strTest)
End Sub
End Class

Dim objTest
Set objTest = New clsTest

Response.Write objTest.TestProperty & "<BR>"
objTest.Test
Response.Write objTest.TestProperty & "<BR>"
objTest.TestProperty = "Objects are cool!"
Response.Write objTest.TestProperty & "<BR>"
objTest.Test
Response.Write objTest.TestProperty & "<BR>"

Set objTest = Nothing
</SCRIPT>

webasp.net