将VB中的CLASS结合到VBscript中来-ASP教程,脚本编码

精彩推荐

分类最新教程

分类热点教程

将VB中的CLASS结合到VBscript中来

作者：未知

日期：2003-04-15

人气：

投稿：Andy.m(转贴)

来源：未知

字体：大中小

收藏：加入浏览器收藏

以下正文：

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

相关文章：