- 2013-12-11消息称,诺基亚Normandy和Asha一样,主打低端市场,将...
- 2013-12-10雷军微博披露小米“魔方”项目
- 2013-12-1012306购票首度接入支付宝 支付时间可以快至5秒
- 2013-12-10中国移动官网显示周四接受iPhone 5s预订
- 2013-12-0912306 App研发故事:变成开放系统 社会人员助力
- 2013-10-15天猫“双十一”今年打通线上线下:实体店参与。
- 2013-10-15根据专利显示iPhone将有防摔功能。
- 2013-10-12百度或可全面收购人人网,传闻四起!
- 2013-10-07生物密码时代何时到来?尚存隐私泄露隐忧
- 2013-09-29国务院近日印发了上海自由贸易试验区总体方案,自贸区...
ASP 类成员变量、成员函数、构造析构函数
class CFoo
dim publicParam '用 dim 申明公有成员变量
private privateParam '用 private 申明私有成员变量
'publicParam = "公有" '不能在 class 标记以内、类函数以外为成员变量赋值
'const MAX_LEN = 5 '不能在 class 标记以内、类函数以外使用 const
'该函数为构造函数,在使用 set new 创建对象时,自动执行
private sub class_initialize()
publicParam = "公有" '可以在这里为成员变量赋值
privateParam = "私有"
end sub
'该函数为析构函数,在使用 set nothing 释放对象时,自动执行
private sub class_terminate()
response.Write "释放对象"
end sub
'公有成员函数(过程)
'成员函数(过程)不需要也不能申明
sub PrintParam(index)
if index = 1 then
call PrintPublicParam()
elseif index = 2 then
call PrintPrivateParam()
end if
end sub
'私有成员函数(过程)
'只是比公有成员函数(过程)多一个 private
private sub PrintPublicParam()
response.Write publicParam
end sub
private sub PrintPrivateParam()
response.Write privateParam
end sub
end class
dim obj
set obj = new CFoo '自动调用 class_initialize 函数,为 publicParam、privateParam 赋值
obj.publicParam = "新的公有"
obj.privateParam = "新的私有" '将发生错误,因为 privateParam 是私有变量
call obj.PrintParam(1) '显示 publicParam 的值
call obj.PrintPublicParam() '将发生错误,因为 PrintPublicParam 是私有函数
set obj = nothing '自动调用 class_terminate 函数,显示“释放对象”
注:本站部分信息可能源于互联网分享,如有侵权,请告知,我们将及时删除!
- 用户评论
- 相关文章
-
最新评论
-
暂无关联文章
-
1
bash_profile和.bashr...
详细介绍bash_profile和.bashrc之间的区别。... -
2
awstats的安装简易指南...
介绍awstats的安装使用,使其能快速部署。 -
3
分布式监控系统gangli...
详细介绍ganglia配置过程 -
4
使用IIS+Resin来配置J...
本文介绍使用IIS+Resin来配置JSP的运行环境... -
5
MYSQL的主要参数设置(...
MYSQL的主要参数设置(优化) -
6
Linux服务器安全小技巧...
Linux 服务器安全小技巧