|
|
|
将VB中的CLASS结合到VBscript中来
作者:佚名 来源:一亩三分地 点击: 日期:2007-03-28 |
|
<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>
|
|
|
|
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【论坛讨论】 |
 相关文章: |
|
|
文章评论:(条) |
|
|
|
|
责任编辑:一分 声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。 |
|
设为主页
收藏本站
