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)