web学习吧　2006-12-16　来源:　收藏本文

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

• ·ASP中检查没有数据提交的页面Ⅱ
• ·ASP+ FORM handler例子
• ·ASP中检查没有数据提交的页面Ⅰ
• ·ASP中处理#include
• ·FrontPage创建HTML／ASP混合页面Ⅱ
• ·在webclass中使用文件上传功能
• ·FrontPage创建HTML／ASP混合页面Ⅰ
• ·ASP+页缓存OutputCache Duration用法(指定
• ·函数小数转分数，限于整除分数
• ·ASP+中GetTitleAuthors和PutTitleAuthors应
• ·用ASP随机产生随机数
• ·ASP+上传文件语法
• ·Web网站的错误控制(转)
• ·ASP编程中15个非常有用的例子 （二）
• ·ASP编程中15个非常有用的例子（一）
• ·浅谈session_onend的调试