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天；
带着这些问题，我们将会继续........

 

忙着找工作，直到周末才有空。现在来继续我们的vbscript类的设计。上一次我们已经设计出了一个简单的日期类，但是还存在一些使用

上的问题。现在我们针对这些问题来更改我们的设计。这次我们要解决的问题是：
1、如果用户指定的classdate不是日期型，那么日期就会变成1900年1月1日；
2、如果显示多个日期，表单对象的名字不能是一样的；
3、最好加入CSS；
下面分别讨论
一、在上一次我们设计的dataclass 里，我们定义了一个public型的变量 classdate 来表示日期，用户可以自由地对classdate 进行值和

读取，这样就无法判断用户所赋的值是不是正确的了。现在我们把重定义一个变量 cldate 改成 private 型，这样用户就无法直接访问cldate

了。如下：
private cldate

为了能够让用户访问到classdate，上一次提到了 property ，现在我们就用它来构造二个函数，一个是让用户对classdate

赋值的函数，叫classdate。定义如下：
pbulic property let classdate(fdate)
...
end property

另一个函数是让用户读取cldate，定义如下：
public property get classdate()
...
end property

好，定义好函数后，就可以来写代码了，在 let classdate 里，主要是判断用户输入的是不是日期型，如下：
public property let classdate(fdate)
if typename(fdate)="Date" then
cldate=fdate
end if
end property

在 get classdate 里，主要是把cldate 的值赋给函数：如下：
public property get classdate()
classdate=cldate
end property

 

如果没有给clname赋值呢？也就是当这个类刚生成的时候，clname是个空值，这里介绍一下类初始化和终止时的自动进程：clas_initialize

和 class_terminate。第一个进程是生成类里自动执行的，第二个是类消灭时自动执行的。这里只要用到第一个进程。如下：
private sub class_initialize()
cldate=now()
end private

这样，类生成的时候，如果没有对clname赋值，那么clname就是当前的日期。

二、为了在表单里显示出多个日期，我们要区分每次生成的日期对象，也就是取个名字。在这里我们定义一个private型的变量 clname 来

定义生成的表单控件的名字。定义如下：
private clname

同样的，要让用户能访问到clname变量，也要定义两个函数，方法和classdate的相同。代码如下：
public property let classname(fname)
if fname<>"" then
clname=fname
end if
end property

public property get classname()
classname=clname
end property

在每次显示表单日期控件的时候，要给控件加上名字，我们分别将年、月、日命名为:
clname & "_year"
clname & "_month"
clname & "_day"
同样的，我们让clname默认为"datename"，也就是在class_initialize里加上代码，改进后的class_initialize如下：
private sub class_initialize()
cldate=now()
clname="datename"
end private

为了让每次显示日期后clname的值不同，我们在clname后面加上数字来区别。这里我们引入一个private变量clcount，生成类时，clcount

的值为“0”，如果对clname赋值，那么clcount又置为0代码如下：
private clcount

private sub class_initialize()
cldate=now()
clname="datename"
clcount=0
end sub

public property let classname(fname)
if fname<>"" then
clname=fname
clcount=0
end if
end property

三、最后，我们引入一个private变量clcss来定义表单控件的CSS。只要提供赋值的函数就可以了，读取CSS在这里没什么用。代码如下：
private clcss

public property let classcss(fcss)
if fcss<>"" then
clcss=fcss
end if
end property

四、好，现在要来修改显示日期函数了，每次显示后让clcount的值加1。修改后的文件保存为dateclass2.asp，完整代码如下：
<%
class dateclass

'定义变量
private cldate
private clname
private clcount
private clcss

'初始化
private sub class_initialize()
cldate=date()
clname="datename"
clcount=0
end sub

'访问cldate
public property let classdate(fdate)
if typename(fdate)="Date" then
cldate=fdate
end if
end property

public property get classdate()
classdate=cldate
end property

'访问clname
public property let classname(fname)
if fname<>"" then
clname=fname
clcount=0
end if
end property

public property get classname()
classname=clname
end property

'访问clcss
public property let classcss(fcss)
if fcss<>"" then
clcss=fcss
end if
end property

'修改后的显示日期函数
public function datedisplay()
'给显示的表单控件自动编号
if clcount>0 then
cname=clname & cstr(clcount-1)
else
cname=clname
end if
yy=year(classdate)
mm=month(classdate)
dd=day(classdate)
response.write "<input type='text' name='" & cname & "_year' size='4'" &_
" class='" & clcss & "' maxlength='4' value='" &_
yy & "'>年" & vbcrlf
response.write "<select class='" & clcss & "' name='" &_
cname &"_month'>" & 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 class='" & clcss & "' name='" & cname & "_day'>" & 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

clcount=clcount+1
end function

end class
%>

五、调试。只要把上一次的test1.asp稍加修改就可以了，如下：
<!--#include file="dateclass2.asp" -->
<%
br="<br>"
set newdate= new dateclass
response.write "调用显示：" & br
response.write "生成的控件名是："& newdate.classname &br
newdate.datedisplay
response.write br
newdate.datedisplay
response.write br & "显示classdate的值："
response.write newdate.classdate
response.write br & "设置classdate的值为“2005/6/15”：" & br
newdate.classdate=cdate("2005/6/15")
response.write br & "设置名字为“mydate”：" & br
newdate.classname="mydate"
response.write "再调用显示：" & br
response.write br & "生成的控件名是："& newdate.classname &br
newdate.datedisplay
response.write br & "生成控件："&br
newdate.datedisplay
set newdate=nothing
%>
 
                                                                                                                                 文章摘自互联网