在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000016 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

一个智能化的日期时间类CDateTimeEdit

子类化功能的理解和使用

[分享]仿PHP操作数据库的类

站长兄弟,你写的一个类有错哦!

StringBuilder类

SQL SERVER的数据类型

ASP编写完整的一个IP所在地搜索类

Vbscript类型转换函数

有关时间类函数

enum类型的重载操作
发表文章
VBscript 类的设计(一)

作者:xmxoxo     提交人:xmxoxo     发布时间:02-12-09     文章类型:原创     浏览量:3301
参考链结:http://www.he-xi.com    
关键字:VBscript|类
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000016]

VBscript 类的设计(一)

  应miles的要求,同时也作为类设计的一个例子,我把我设计日期类的过程整理出来,写成这篇文章,供大家做个参考。也希望这篇文章能抛砖引玉,让大家写出更好,更多的类来。文中有不尽的地方,还请指正。
  (一)VBscript自定义类
  简单的说,类就是对象,它具有属性和方法。在vbscript里自定义类比C++,JAVA要简单得多。下面将设计一个日期类,用来显示出组合的表单对象。在设计的同时,我们也会说明如何设计自定义类。
  1、定义类的语法:class....end class
      class及end class用来标识类块的开始和结束,class 标识符后面跟着的是类名称。现在我们把要设计的日期类命名为:dateclass  语法如下:
class dateclass
...
end class

  在vbscript中使用些类建立新对象时,可以用new运算符。例如:
set newdate=new dateclass

  2、属性和方法:private、public和property
      private 用来定义仅能在类内部访问的变量和函数;public则用来定义类的界面,也就是可供外部访问的属性和方法,没有成为 private和public的成员,一律视为public;有和时候,我们要让外部可以访问,但是要指定访问的方法,这时候,就要用property,property语法如下:
public property [let|set|get] aa(...)
...
end property

    property 必须和 let、set或get 配合使用。说明如下:
let  设置值,如:user.age=100
set  设置对象,如:set user.myobject=nobject
get  取得值,如:myage=user.age

  3、设计日期类的属性和方法
      现在我们来设计日期类的属性。为了显示日期,定义一个classdate,来存放日期,它的类型是public,这样可以让用户在类外部改变它;再设计一个函数来显示日期,取名为:datedisplay,类型为public,没有参数。程序如下:
<%
class dateclass

public classdate

public function datedisplay()

end function

end class
%>

  4、加入显示日期的代码
  现在我们来加入datedisplay的代码,程序如下:
<%
class dateclass

public classdate

public function datedisplay()
'如果没有指定日期,那么设为当前日期
if classdate="" then
  classdate=now()
end if
yy=year(classdate)
mm=month(classdate)
dd=day(classdate)
response.write "<input type=text name=yy size=4 maxlength=4 value="&yy&">年"&vbcrlf
response.write "<select name=mm>"&vbcrlf
for i=1 to 12
  if i=mm then
    response.write "<option value="&i&" selected>"&i&"</option>"&vbcrlf
  else
    response.write "<option value="&i&">"&i&"</option>"&vbcrlf
  end if
next
response.write "</select>月"&vbcrlf
response.write "<select name=dd>"&vbcrlf
for i=1 to 31
  if i=dd then
    response.write "<option value="&i&" selected>"&i&"</option>"&vbcrlf
  else
    response.write "<option value="&i&">"&i&"</option>"&vbcrlf
  end if
next
response.write "</select>日"&vbcrlf
end function

end class
%>

  把上面的代码存为dateclass1.asp 好了,现在我们已经写好了这个日期类,下面来看看使用的情况
    5、调用类 include
  在其它程序中使用这个类,只要用include 把dateclass1.asp包含进来。下面我们写一个测试的程序,文件名为 test1.asp
<!--#include file="dateclass1.asp" -->
<%
set newdate= new dateclass
response.write "调用显示:<br>"
newdate.datedisplay
response.write "<br>显示classdate的值:<br>"
response.write newdate.classdate
response.write "<br>设置classdate的值:<br>"
newdate.classdate=cdate("2005/6/15")
'上一句也可以写成:
'newdate.classdate="2005/6/15"
response.write "<br>再调用显示:<br>"
newdate.datedisplay
set newdate=nothing
%>

  把两个文件放在同一个目录下,运行test1.asp 好了,应该已经看到结果了。但是这样的设计还有一些问题:
1、如果用户指定的classdate不是日期型,那么日期就会变成1900年1月1日;
2、如果显示多个日期,表单对象的名字不能是一样的;
3、最好加入CSS;
4、最好还能加入闰年的判断;
5、不是每个月都有31天;
    带着这些问题,我们将会继续........

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
jetzuo        2006/7/2 11:09:00
:)
好文章!!!!!!!
谢谢!
lijie        2004/11/26 22:13:00
:)
不错,继续努力
程式浪人        2003/1/2 3:48:00
VB里面有没有析构函数和构造函数??
有!
maocheng12        2002/12/31 15:52:00
面向对象
VB里面有没有析构函数和构造函数??
请高手指教
maocheng12        2002/12/31 15:51:00
如果类和对象还有属性和方法如果在VB里面是这样理解的话,那我看VB真的很差劲!`~都让我们学DELPHI和VC去吧
如果类和对象还有属性和方法如果在VB里面是这样理解的话,那我看VB真的很差劲!`~都让我们学DELPHI和VC去吧,我觉得,私有成员和共有成员的还有保护成员在VB里面是否有这样的说话?
maocheng12        2002/12/31 15:44:00
类和对象就好象是。。
类和对象就好象是人和你的关系~~~~
人是类,你是人的一个对象!~
maocheng12        2002/12/31 15:42:00
类就是对象是不是个错误的理解!!?
类就是对象是不是个错误的理解!!?
我觉得是完全不同的两回事
luluxxx        2002/12/12 14:00:00
期待下一篇
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
328.125