ASP 使用三层架构 asp中使用类

但是class这个东西,如果用得比较少,充其量只是一个大模块的包装方式. 只有大规模地用它来开发,才能显出它对项目管理的优越性来. 所谓的意大利面条式代码,就会和asp划上句号了.
我想目前大部分的asp程序员中都还没有使用class,对面向对象这种术语也不太熟悉,需要增加一章来描述一下asp中的类所扮演的角色,以及和面向对象编程的关系.
我会用尽量贴近编程实践的方式来解释class的运用,但不会动用面向对象之类的抽象术语,如果你有了面向对象的理论基础,可以把这些内容与其结合,或者会有你独特的发现. 如果没有了解过面向对象,也不用一定要知道面向对象是怎么回事,只要通过阅读本系列的文章,学会了class的用法,并且在编程中依据了其中的法则,就可以足够健壮地管理你的asp代码了.
class相当于一个包装箱,它可以将变量和函数包装起来,形成一个整体,本系列文章要讲的所有内容,可以说是包装的学问.
例如,我们可以包装一个数学处理的class,并使用它:

class con_math
public a
public b
private intc
public function sum()
intc = cint(a) + cint(b)
sum = intc
end function
end class
set math = new con_math
math.a = 19
math.b = 80
response.write math.sum
set math = nothing

逐行解释语法:
1, 定义了一个包装箱,名字叫 con_math ,大家都知道math是数学的意思,con_前缀是我的编程习惯,对于可能会在整个程序中使用的class,冠一个con_前缀,代表它是一个通用性的class. 纯属编程习惯,但是加个前缀不光是一个习惯问题,等会在后面会做解释.
2,3 放进去了2个变量,名字为a,b, 它们前面的public代表它们是公共的变量,可以被外面的程序访问到.
4 变量intc被定义为private,表示它是包装箱内部的私有变量,不可以从外面看到它,也不可以强行扯出来,无论你有多大力气都不行的.偷出来?你试试看.
6,7,8,9 这四行定义了一个进行加法运算的函数,除了一个public,其他的都是你天天用的东西,如果你不眼熟...... 还是别看这个系列了,先去做做基础功课比较好. 同上面的两个变量一样,加一个public表示包装箱在这里开了一个洞,你可以从外面看到它,使用它.
10 end class 打上封箱的胶带,一个整整齐齐的class就包装完成了
只不过,这个包装箱只是一个构思,不能当现成的用. 借用唐僧大师的话:(悟空他要吃我)只是一个构思,还没有成为现实(他又何罪之有呢),不如等它实例化以后,再用也不迟啊(再定他的罪不迟啊).
实例化,就表示实际的吃肉行为.
我们可以在asp代码中轻易地实例化我们的构思,可惜西天路上千千万万的妖怪都没有办法实例化他们的"吃唐僧肉"的class,实在真是可怜悯者!
这是程序员的优越性.
12 实例化了我们定义好的class,实例化名是不能和构思名一模一样的,不然在语法方面会乱套的.所以大家现在知道了,为什么会给class加个前缀的习惯么? 当然,大家完全可以不用con_做前缀,如下等等都是好材料:yaomin_ jimo_ chunge_ ......或者用你老婆的闺名都可以的,人要活得有想象力一点.
13,14 我们把被公开的两个变量a,b赋值,这里的.号,大家完全可以想象它是包装箱上开的一个洞,通过这个洞,你可以把东西放进去取出来.一定要通过这个洞的.嗯?太小了?不不,别担心,再大的东西也可以放进去的.就像人的嘴巴,虽然小,地球那么大的食物也可以被吃光的.
15 我们通过小洞,把它的函数运算结果掏出来,显示在页面上,99,吉利啊,这是我的出生年的前两位和后两位相加的数字. 打开一个记事本,把这段代码写进去吧,然后在iis里面运行吧.

16 男同志在家吃完饭,是要洗碗洗锅的吧. set ** = nothing 也是同样的道理.这个和创建recordset之后要清掉也是一样的用法. set nothing以后,就表示它从内存里面丢弃了,这个万能包装箱所占的位置就空出来了,你的网站性能当然会提高,还犹豫什么? 用完了赶紧set nothing.
我知道大家都不会这么玩function的,至少是sum(19,80)才更方便使用,好,我们在包装箱上再打一个洞出来:

class con_math
public a
public b
private intc
public function sum()
intc = cint(a) + cint(b)
sum = intc
end function
public function sum2(byval va,byval vb)
sum2 = cint(va) + cint(vb)
end function
end class
set math = new con_math
response.write math.sum2(19,80)
set math = nothing

你还想ctrl+c ?
虽然你这么有诚意地看着我,但是你还是要说是不是想学,不可能你不想学我偏要你学,也不能你想学我偏不让你学,难道你真的想学?确认?
那就不要ctrl+c吧.