精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● ASP>>VBScript & JavaScript>>VBS编写类的例子

主题:VBS编写类的例子
发信人: hater()
整理人: qcrsoft(2003-10-24 10:20:05), 站内信件
【 在 syeffy 的大作中提到:】
:关于ASP中的类,没有人研究么?告诉我个简单的入门知识就可以了啊啊。我应该如何定义呢?谢谢。
:......
 
这是我写的一个例子,很容易明白的

<%
'*************************************************
' COMMENT: 在ASP中使用Class
' AUTHOR : Hater 2001-2-13
' INPUT :
' MODIFY LIST:
'*************************************************
Class testClass

Private Sub Class_Initialize()
Response.Write "Class初始化<br>"
        End Sub
        
        Private Sub Class_Terminate()
         Response.Write "Class结束<br>"
        End Sub

Public Sub SubTest(strString)
Response.Write strString
End Sub

Public Function FunTest(intTestValue)
FunTest = intTestValue * 10
End Function
End Class

    Dim objTestClass,I

    Set objTestClass = New testClass
    objTestClass.SubTest("你好!<br>")
    I = objTestClass.FunTest(10)
    Response.Write "10*10=" & I & "<br>"
%>    
    
    




----
想和你去吹吹风的Hater

[关闭][返回]