ASP中类的使用的基础知识(一)
来源:互联网 发布:备份数据库怎么还原 编辑:程序博客网 时间:2024/06/05 08:05
可能有些初学者或者刚刚接触ASP的朋友不一定会明白,偶编写一个简单的ASP类实现方法,希望对朋友们有帮助(参考资料来源于互联网)。
首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,只能在类内部调用) 或 Public(公有成员,可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的,对 Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程(Sub 或 Function)将成为类的方法。Public 变量将成为类的属性,同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。
<%//----------------------------ASP中类的使用---------------------------------// Class ALoaferClass '//----声明(声明就是定义)CaboClass类的类内部(私有)变量 '//---- 声明时一般将变量定义成[Private]私有,通过属性读写器将变量[Public] 公开.Private strAuthor Private strVersion Private strExample '//---------------------------定义类的事件-------------------------------------// '//---Class_Initialize()是类的初始化事件,类被调用,首先会触发该部分的执行,一般用来初始化默认值.Private Sub Class_Initialize() strAuthor = "Cabo'liu" strVersion = "v1.0" Response.Write("<br>ALoafer Class开始了<br>")End Sub '//----Class_Terminate()是类的结束事件,退出该类,就会触发该事件。 Private Sub Class_Terminate() Response.Write("<br>ALoafer Class结束了<br>")End Sub '//---------------------------用户自己定义的方法-------------------------------// '//----该方法返回一个版权信息 Public Sub Information() Response.Write("<br>Coding By <a href='mailto:caboliu@163.com'>Cabo Liu</a> @ ") Response.Write("<a href='http://caboliu.cnblogs.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 Exapmle Exapmle = strExapmle End Property End Class %><% '//---------------------------ASP类的调用--------------------------------// Dim oneNewClass Set oneNewClass = New ALoaferClass Response.Write("作者: "& oneNewClass.Author &" <br>")Response.Write("版本: "& oneNewClass.Version &" <br>")oneNewClass.SetExapmle = "这是一个简单类的例子" Response.Write("用户自定义:" & oneNewClass.Exapmle &" <br>")Response.Write(oneNewClass.Information")Set oneNewClass = Nothing %>
阅读全文
0 0
- ASP中类的使用的基础知识(一)
- ASP.NET的SEO(一):基础知识
- Asp.Net 小型网站的制作(一),涵盖了asp.net里面所有的基础知识
- (转)ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- ASP.NET中Cookie编程的基础知识
- 前端面试题 js篇
- Revit基础之获取元素所有GeometryObject.
- 用node-webkit把web应用打包成桌面应用
- dataTables使用心得
- hibernate 无法查看源码的解决办法
- ASP中类的使用的基础知识(一)
- 计蒜客 蒜头君的随机数,造房子
- 生活多了一些色彩
- CentOS 7.1编译安装PHP7
- 左程云_算法与数据结构 — 链表问题 — 04反转单向和双向链表
- shell脚本执行方式
- 代理服务器原理
- CentOS7 网络设置-nmcli/nmtui
- android UI -Fragment参考