日期:2008-08-24  浏览次数:21045 次

忙着找工作,直到周末才有空。现在来继续我们的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