关于ASP的(VBScript)类,只希望给初学者看一看,希望对你们有帮助

原创 2004年05月26日 11:22:00

       首先ASP的(VBScript)类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明(哈哈,我是现学现卖,说得不好请见谅)


       在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,只能在类内部调用) 或 Public(公有成员,可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的,对 Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程(Sub 或 Function)将成为类的方法。Public 变量将成为类的属性,同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。


请大家内心看完蓝色的部分,下面我们来看一个例子

<script language=vbscript runat=server>

Class myClass
        '//----声明(声明就是定义)myClass类的类内部(私有的[Private])变量
        Private strAuthor
        Private strVersion
        Private strExample

 '//---------------------------定义类的事件-------------------------------//
 '//----Class_Initialize()是类的初始化事件,只要一开始使用该类,首先会触发该部分的执行,下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了

        Private Sub Class_Initialize()
                strAuthor = "思源"
                strVersion = "1.0"
                Response.Write "<br>myClass开始了<br>"
        End Sub
        '//----Class_Terminate()是类的结束事件,只要一退出该类,就会触发该事件,下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。

        Private Sub Class_Terminate()
                Response.Write "<br>myClass结束了<br>"
        End Sub

 '//---------------------------用户自己定义的方法-------------------------------//

        '//----该方法返回一个版本信息
 
 Public Sub Information()
         Response.Write "<br>Coding By <a href='mailto:coder@sinobe.com'>Maxid_Zen</a> @ <a href='http://www.design60s.com'>www.design60s.com</a>.<br>"
 End Sub

 '//---------------------------定义类的输出属性-------------------------------//

 '//----定类的属性,该属性是让用户初始化strExapmle变量

 Public Property Let setExapmle(ByVal strVar)
         strExapmle = strVar
 End Property

 '//---------------------------定义类的输出属性-------------------------------//

 '//----定义类的属性,该属性是返回一个版本号

 Public Property Get Version
  Version = strVersion
 End Property

 '//----定义类的属性,该属性是返回该类的作者

 Public Property Get Author
  Author = strAuthor
 End Property

 '//----定义类的属性,该属性是返回一个自定义的值

 Public Property Get Example
  Example = strExample
 End Property

End Class

</script>
<%

'//-------这里是使用该类的例子

Dim oneNewClass

Set oneNewClass = New myClass

Response.Write "作者:" & oneNewClass.Author & "<br>"
Response.Write "版本:" & oneNewClass.Version & "<br>"

oneNewClass.setExample = "这是一个简单类的例子"

Response.Write "用户自定义:" & oneNewClass.Example & "<br>"

oneNewClass.Information

Set oneNewClass = Nothing

%>

2018年对自己的希望

2017年就这样从我的生命中溜走了,回顾17年,感觉这一年不是很充实一年,没有任何规划,没有任何的目标。那么自然而然的, 基本上也没什么进步。既然它已经过去,我也不去懊悔时间太快,或是后悔自己没怎么珍...
  • maaici
  • maaici
  • 2018年01月03日 08:29
  • 660

JAVA初学者之旅(希望对JAVA初学者学习有帮助)

   关于这个话题的文章已经很多,本文的叙述不打算采用传统的课堂老学究方式,大家完全可以把这当作一个故事来看,文章中我将会引用到大量网上资源,这些资源 是几年来我在学习和工作过程中的积累,完全有理由认...
  • yakoo5
  • yakoo5
  • 2008年05月02日 22:37
  • 596

Servlet总结,希望对初学者有所帮助

1.    Servlet2.    什么是servlet:在web容器中运行的服务器端JAVA程序,主要用于响应HTTP请求。Servlet一般用于MVC中的控制器部分。3.    什么是servl...
  • xiaoli_feng
  • xiaoli_feng
  • 2009年06月22日 17:32
  • 932

这里有一些书评,希望对你们有帮助

windows类书的学习心得现在的计算机图书发展的可真快,很久没去书店,昨日去了一下,真是感叹万千,很多陌生的出版社,很多陌生的作者,很多陌生的译者,书名也是越来越夸张,什么××天精通××,精通××编...
  • ComDev
  • ComDev
  • 2006年04月09日 17:32
  • 1654

这是我的自学经历,希望对初学者有帮助。

2006-05-20 16:27:56 这是我的自学经历,希望对初学者有帮助。  前些天翻出了学单片机以来买元件和书籍的单据。因为我是打算在计算机硬件方面花1万元左右,所以保留了大...
  • mybirdsky
  • mybirdsky
  • 2008年01月17日 16:18
  • 867

2012年对自己的要求和期望:日行一“善”

日行一“善”,并非做多了坏事要去做好人好事为自己积善积德,而是在龙年春节里,常常在反思过去几年自己的得与失及其不足,为什么我落在了同学和朋友的后面;同时,也在思考:2012年,我应该如何去做,如何做得...
  • reille
  • reille
  • 2012年01月29日 22:29
  • 2396

f在工作中遇到的一些问题及总结(f的第一篇博客)

写在前面:             这是f第一次在csdn这样的论坛发表博客,主要是为了记下平时工作过程中遇到的一些问题及解决解决的办法。简单介绍下自己吧,f目前任职于北京一家广告传媒公司的科技子公司...
  • Vincent0_0
  • Vincent0_0
  • 2015年01月20日 10:00
  • 627

FlexViewer学习资料,希望对初学者有帮助(转)

1 Sample Flex Viewe架构 1.1 架构介绍 Sample Flex Viewer框架的构建有助于开发和部署针对GeoWeb的应用程序,使得能够充分的发挥服务器端的空间服务的能力。服务...
  • CQGCCL
  • CQGCCL
  • 2015年04月01日 13:50
  • 543

浅谈单片机调试方法(希望对初学者有帮助)

浅谈单片机调试方法(希望对初学者有帮助)傅绍兵2011-01-311.     利用I/O1.1   利用LED进行可视化管理这种方法需要有多余的I/O。(如果可能,也可以将实现次要功能的I/O暂时借...
  • fushaobing2010
  • fushaobing2010
  • 2011年01月31日 17:28
  • 626

FlexViewer学习资料,希望对初学者有帮助

1 Sample Flex Viewe架构 1.1 架构介绍 Sample Flex Viewer框架的构建有助于开发和部署针对GeoWeb的应用程序,使得能够充分的发挥服务器端的空间服务的能力。...
  • DUKE0317
  • DUKE0317
  • 2014年01月08日 17:09
  • 637
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于ASP的(VBScript)类,只希望给初学者看一看,希望对你们有帮助
举报原因:
原因补充:

(最多只允许输入30个字)