[ASP]使用类，实现模块化
所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在asp的系统开发中感觉尤其文件、函数复杂的时候，当我们打算对网站的一部分功能进行修改的时候，感觉无从下手或者感觉要修改的地方。这时候，如果您学过任何一门面向对象的编程的语言的话，自然想到怎么能把代码功能实现模块话，asp本质上不是面向对象的编程，但vbscrpit6.0提供了类，我们可以通过类实现代码的封装，实现模块话。
首先，我要在这里写上一些很官方的概念，意在说明面向对象是很具体化的，很实体的模式，不能让有些人看见“对象”就被吓跑了。
对象，就是能看到，感到，听到，触摸到，尝到或闻到的东西，在这里我们这样“定义”：对象是一个自包含的实体，用一组可识别的特性和行为来标识。
在面向对象的编程(oop)的编程方式，用使用下面的两个术语。
类：这是对象的模板，定义了对象的特性。
实例：这是一个真实的对象，可以与之交互的东西。
属性，方法和事件
在oop中，下面的术语描述对象的特性：
属性：这是一个名次，描述了某个对象的属性。
方法：这是一个动词，描述了对象可以完成的工作，或者希望它完成的工作。
事件：描述了对象为相应某个动作而执行的操作。
在编程时，对象的面向对象编程和面向对象设计的一部分，它们具有非常大的优势，许多人认为这是一个复杂的主题，但实际上，它非常简单，可以用四个简单的术语来解释：抽象、封装、多态和继承。
抽象：这是一个隐藏复杂性，类的内部工作情况，所以用户不必知道它的运作方式，就像。如果想要看电视，就不必知道电视机时如何工作的，只需打开电视机，搜索频道即可，on/off开关抽象了实际的操作，在string例子里，有一个trim方法，它可以删除字符串尾部的空格，同样不需要知道他是如何完成这个任务的，只要知道它有这个功能即可。
封装：每个对象都包含进行操作所需要的所有信息，这个对象称为封装，因此对象不比依赖其他对象来完成自己的操作，在术语toupper()方法中，string不必到其他地方获取信息来把所有的字符转换为大写。
多态：这个术语用于表示不同的对象可以执行相同的动作，但要通过他们自己的实现代码来执行，名称一样，但底层实现的代码是不一样的。
继承：它定义了类如何相互关联，共享特性的，继承的工作方式是，定义类和子类，其中子类继承了父类的所有特性，继承的重要性是，它迫使类型相似的类具有一致性，并允许共享代码，如果决定创建一个新类，就不必定义父类的所有特性。
在asp中使用类，实现模块化
下面我通过举上几个简单的例子说明一下，注意，这里强调的是一种思想，如果在您开发asp网站的时候能用一个类（基类）展开的话，这是很有必要的（也是很有难度的）。
我们先选择一个简单的例子：
我们要显示经典论坛用户的信息，当输入用户的id以后能，显示出该用户的一些信息，这是一个过程，可以这样考虑，我们把用户当作一个对象，他有的属性是id，性别,积分，权限，实现的方法有显示这些信息，ok，这样写：
class blueidea
private bname,bpoint,bsex,blevel
''''...................
end class
这里先声明了一个名为 blueidea的类，接着是一些私有变量，用于存储blueidea类的属性，这些变量在代码的外部不能访问,这就是数据保护，要定义这些变量，使用了property语句获得值间接的付给私有变量
''''-----------------------------------------------------------------
property get getname
getname=bname
end property
property let getname(nameid)
bname=nameid
if nameid="" then
bname="没注册用户"
end if
end property
''''------------------------------------------------------------------
property get getsex
getsex=bsex
end property
property let getsex(sex)
bsex=killint(sex,0,0)
if bsex=0 then
bsex="男"
else
bsex="女"
end if
end property
''''------------------------------------------------------------------
property get getpoint
getpoint=bpoint
end property
property let getpoint(point)
bpoint=killint(point,0,0)
end property
''''------------------------------------------------------------------
这里有个killint函数，是判断数据合法性的，它的原形是：
private function killint(i,killstr,killsub)
if not isnumeric(i) then
i=killstr
elseif i<=0 then
i=killsub
end if
killint=int(left(i,5))
end function
该函数功能很明确，不再繁琐说。
由于我们要通过积分判断用户级别，这里定义了一个私有函数：
private function getlevel()
bpoint=killint(bpoint,0,0)
if bpoint<500 then
blevel="初级会员"
elseif bpoint>=500 and bpoint<=100 then
blevel="高级会员"
else
blevel="终极会员"
end if
getlevel=blevel
end function
我们要得是回送用户的信息，必须定义一个public公用函数，显示信息：
public function showuser()
response.write("以下显示"&bname&"的资料: ")
response.write("性别:"&bsex&" ")
response.write("积分:"&bpoint&" ")
getlevel
response.write("级别:"&blevel&" ")
end function
end class
使用这个类的时候这样使用：（我在这里写了一个表单处理的）
set blueideauser=new blueidea
blueideauser.getname=trim(request("id"))
blueideauser.getsex=request("sex")
blueideauser.getpoint=request("point")
blueideauser.showuser
控制读取数据库信息的类：
参考源码：
''''名称：ado_5do8
''''作用:读取数据库的各项操作
''''来源-耕耘村http://www.5do8.com http://www.blueidea.com-5do8
''''创作：5do8
''''联系:5do8@5do8.com
''''更新：2005年11月13日
''''授权：蓝色理想网站积分超过3000，耕耘村所有注册用户
''''类的接口:ado_5do8.connectstring=数据库绝对路径
''''ado_5do8.rs_top 调用数目，表的名称
class ado_5do8
private conn,sqlstr,rs,iid,itable,isession
''''sqlstr:数据库地址，为绝对路径，私有
''''conn：打开数据库的连接，私有
''''------------------------------------------------------------------
rem 消除一些不想要的数字
private function litter_in(r1,r2)
if isnumeric(r1) and isnumeric(r2) then
dim dimrr
if r1>r2 then
dimrr=r2
else
dimrr=r1
end if
else
dimrr=0
end if
litter_in=dimrr
end function
''''-----------------------------------------------------------------
private function killint(i,killstr,killsub)
if not isnumeric(i) then
i=killstr
elseif i<=0 then
i=killsub
end if
killint=int(left(i,5))
end function
''''-----------------------------------------------------------
private sub startconn()
on error resume next
set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(sqlstr)
conn.open strconn
if err then
err.clear
set conn = nothing
mess="发生错误，不能连接数据库"
response.write(mess)
response.end
else
mess="连接数据库conn成功...........
"
response.write(mess)
end if
end sub
''''----------------------------------------------------------------
private sub closeconn()
conn.close
set conn=nothing
response.write("关闭conn连接... ")
end sub
''''-----------------------------------------------------------------
private sub closers()
rs.close
set rs=nothing
response.write("关闭数据库rs.......
")
end sub
''''-----------------------------------------------------------------
property get havese
havese=isession
end property
property let havese(yoursession)
isession=yoursession
if yoursession="" then
isession="nodef"
end if
end property
''''-----------------------------------------------------------------
public function makesession(arraydata)
if isarray(arraydata) then
makear=arraydata
else
makear=array(0,0,0,0)
end if
if isession="" then
isession="nodef"
end if
session(isession)=makear
end function
''''-----------------------------------------------------------------
private function getsession()
thisget=session(isession)
if not isarray(thisget) then
thisget=array(0,0,0,0)
end if
getsession=thisget
end function
''''-----------------------------------------------------------------
property get connectstring
connectstring = sqlstr
end property
property let connectstring(str)
sqlstr = str
end property
''''-----------------------------------------------------------------
property get getid
getid = iid
end property
property let getid(id)
iid = id
end property
''''-----------------------------------------------------------------
property get gettable
gettable = itable
end property
property let gettable(table)
itable = table
end property
''''-----------------------------------------------------------------
''''------------------------------------------------------------------
public function readarraysession(istart,ipageno,irowid)
rowid=killint(irowid,0,0)
start=killint(istart,0,0)
pageno=killint(ipageno,5,5)
data=getsession
irows = ubound(data, 2)
icols = ubound(data, 1)
response.write("总数获得了:")
response.write(" "&irows+1&"条信息 ")
if rowid = 0 then
if irows > (ipageno + istart) then
istop = ipageno + istart - 1
else
istop = irows
end if
for irowloop = start to istop
response.write (""&data(1, irowloop) & " 较慢，不推荐点击-->更新")
next
response.write "
首先，我要在这里写上一些很官方的概念，意在说明面向对象是很具体化的，很实体的模式，不能让有些人看见“对象”就被吓跑了。
对象，就是能看到，感到，听到，触摸到，尝到或闻到的东西，在这里我们这样“定义”：对象是一个自包含的实体，用一组可识别的特性和行为来标识。
在面向对象的编程(oop)的编程方式，用使用下面的两个术语。
类：这是对象的模板，定义了对象的特性。
实例：这是一个真实的对象，可以与之交互的东西。
属性，方法和事件
在oop中，下面的术语描述对象的特性：
属性：这是一个名次，描述了某个对象的属性。
方法：这是一个动词，描述了对象可以完成的工作，或者希望它完成的工作。
事件：描述了对象为相应某个动作而执行的操作。
在编程时，对象的面向对象编程和面向对象设计的一部分，它们具有非常大的优势，许多人认为这是一个复杂的主题，但实际上，它非常简单，可以用四个简单的术语来解释：抽象、封装、多态和继承。
抽象：这是一个隐藏复杂性，类的内部工作情况，所以用户不必知道它的运作方式，就像。如果想要看电视，就不必知道电视机时如何工作的，只需打开电视机，搜索频道即可，on/off开关抽象了实际的操作，在string例子里，有一个trim方法，它可以删除字符串尾部的空格，同样不需要知道他是如何完成这个任务的，只要知道它有这个功能即可。
封装：每个对象都包含进行操作所需要的所有信息，这个对象称为封装，因此对象不比依赖其他对象来完成自己的操作，在术语toupper()方法中，string不必到其他地方获取信息来把所有的字符转换为大写。
多态：这个术语用于表示不同的对象可以执行相同的动作，但要通过他们自己的实现代码来执行，名称一样，但底层实现的代码是不一样的。
继承：它定义了类如何相互关联，共享特性的，继承的工作方式是，定义类和子类，其中子类继承了父类的所有特性，继承的重要性是，它迫使类型相似的类具有一致性，并允许共享代码，如果决定创建一个新类，就不必定义父类的所有特性。
在asp中使用类，实现模块化
下面我通过举上几个简单的例子说明一下，注意，这里强调的是一种思想，如果在您开发asp网站的时候能用一个类（基类）展开的话，这是很有必要的（也是很有难度的）。
我们先选择一个简单的例子：
我们要显示经典论坛用户的信息，当输入用户的id以后能，显示出该用户的一些信息，这是一个过程，可以这样考虑，我们把用户当作一个对象，他有的属性是id，性别,积分，权限，实现的方法有显示这些信息，ok，这样写：
class blueidea
private bname,bpoint,bsex,blevel
''''...................
end class
这里先声明了一个名为 blueidea的类，接着是一些私有变量，用于存储blueidea类的属性，这些变量在代码的外部不能访问,这就是数据保护，要定义这些变量，使用了property语句获得值间接的付给私有变量
''''-----------------------------------------------------------------
property get getname
getname=bname
end property
property let getname(nameid)
bname=nameid
if nameid="" then
bname="没注册用户"
end if
end property
''''------------------------------------------------------------------
property get getsex
getsex=bsex
end property
property let getsex(sex)
bsex=killint(sex,0,0)
if bsex=0 then
bsex="男"
else
bsex="女"
end if
end property
''''------------------------------------------------------------------
property get getpoint
getpoint=bpoint
end property
property let getpoint(point)
bpoint=killint(point,0,0)
end property
''''------------------------------------------------------------------
这里有个killint函数，是判断数据合法性的，它的原形是：
private function killint(i,killstr,killsub)
if not isnumeric(i) then
i=killstr
elseif i<=0 then
i=killsub
end if
killint=int(left(i,5))
end function
该函数功能很明确，不再繁琐说。
由于我们要通过积分判断用户级别，这里定义了一个私有函数：
private function getlevel()
bpoint=killint(bpoint,0,0)
if bpoint<500 then
blevel="初级会员"
elseif bpoint>=500 and bpoint<=100 then
blevel="高级会员"
else
blevel="终极会员"
end if
getlevel=blevel
end function
我们要得是回送用户的信息，必须定义一个public公用函数，显示信息：
public function showuser()
response.write("以下显示"&bname&"的资料: ")
response.write("性别:"&bsex&" ")
response.write("积分:"&bpoint&" ")
getlevel
response.write("级别:"&blevel&" ")
end function
end class
使用这个类的时候这样使用：（我在这里写了一个表单处理的）
set blueideauser=new blueidea
blueideauser.getname=trim(request("id"))
blueideauser.getsex=request("sex")
blueideauser.getpoint=request("point")
blueideauser.showuser
控制读取数据库信息的类：
参考源码：
''''名称：ado_5do8
''''作用:读取数据库的各项操作
''''来源-耕耘村http://www.5do8.com http://www.blueidea.com-5do8
''''创作：5do8
''''联系:5do8@5do8.com
''''更新：2005年11月13日
''''授权：蓝色理想网站积分超过3000，耕耘村所有注册用户
''''类的接口:ado_5do8.connectstring=数据库绝对路径
''''ado_5do8.rs_top 调用数目，表的名称
class ado_5do8
private conn,sqlstr,rs,iid,itable,isession
''''sqlstr:数据库地址，为绝对路径，私有
''''conn：打开数据库的连接，私有
''''------------------------------------------------------------------
rem 消除一些不想要的数字
private function litter_in(r1,r2)
if isnumeric(r1) and isnumeric(r2) then
dim dimrr
if r1>r2 then
dimrr=r2
else
dimrr=r1
end if
else
dimrr=0
end if
litter_in=dimrr
end function
''''-----------------------------------------------------------------
private function killint(i,killstr,killsub)
if not isnumeric(i) then
i=killstr
elseif i<=0 then
i=killsub
end if
killint=int(left(i,5))
end function
''''-----------------------------------------------------------
private sub startconn()
on error resume next
set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(sqlstr)
conn.open strconn
if err then
err.clear
set conn = nothing
mess="发生错误，不能连接数据库"
response.write(mess)
response.end
else
mess="连接数据库conn成功...........
"
response.write(mess)
end if
end sub
''''----------------------------------------------------------------
private sub closeconn()
conn.close
set conn=nothing
response.write("关闭conn连接... ")
end sub
''''-----------------------------------------------------------------
private sub closers()
rs.close
set rs=nothing
response.write("关闭数据库rs.......
")
end sub
''''-----------------------------------------------------------------
property get havese
havese=isession
end property
property let havese(yoursession)
isession=yoursession
if yoursession="" then
isession="nodef"
end if
end property
''''-----------------------------------------------------------------
public function makesession(arraydata)
if isarray(arraydata) then
makear=arraydata
else
makear=array(0,0,0,0)
end if
if isession="" then
isession="nodef"
end if
session(isession)=makear
end function
''''-----------------------------------------------------------------
private function getsession()
thisget=session(isession)
if not isarray(thisget) then
thisget=array(0,0,0,0)
end if
getsession=thisget
end function
''''-----------------------------------------------------------------
property get connectstring
connectstring = sqlstr
end property
property let connectstring(str)
sqlstr = str
end property
''''-----------------------------------------------------------------
property get getid
getid = iid
end property
property let getid(id)
iid = id
end property
''''-----------------------------------------------------------------
property get gettable
gettable = itable
end property
property let gettable(table)
itable = table
end property
''''-----------------------------------------------------------------
''''------------------------------------------------------------------
public function readarraysession(istart,ipageno,irowid)
rowid=killint(irowid,0,0)
start=killint(istart,0,0)
pageno=killint(ipageno,5,5)
data=getsession
irows = ubound(data, 2)
icols = ubound(data, 1)
response.write("总数获得了:")
response.write(" "&irows+1&"条信息 ")
if rowid = 0 then
if irows > (ipageno + istart) then
istop = ipageno + istart - 1
else
istop = irows
end if
for irowloop = start to istop
response.write (""&data(1, irowloop) & " 较慢，不推荐点击-->更新")
next
response.write "
列表(回到典型模式):"
if start > 0 then
response.write "previous"
end if
if istop < irows then
response.write " next"
end if
response.write""
else
rowid=litter_in(rowid-1,irows)
response.write("
if start > 0 then
response.write "previous"
end if
if istop < irows then
response.write " next"
end if
response.write""
else
rowid=litter_in(rowid-1,irows)
response.write("
返回列表
"&server.htmlencode(data(1,rowid))&"
response.write("
<%end sub%>
<%sub viewnew()
f_num=killint(request("n"),1,1)
pagesize=killint(request("pageno"),5,5)
arrstart=killint(request("start"),0,0)
rowid=killint(request("rowid"),0,0)
set cs=new ado_5do8
cs.connectstring="data/a.mdb"
cs.havese="shi"
cs.rs_top f_num,"site_szd",""
cs.readarraysession arrstart,pagesize,rowid
end sub
sub list()
response.write("返回默认模式 ")
response.write"下面显示具体信息: "
id=request("id")
id=killint(id,1,1)
set listid=new ado_5do8
listid.connectstring="data/a.mdb"
listid.getid=id
listid.gettable="site_szd"
listid.list_ids()
end sub
sub read()
response.write"
"&server.htmlencode(data(2,rowid))&"
+-----"&server.htmlencode(data(3,rowid))&"")response.write("
")
end if
end function
''''-----------------------------------------------------------------
public function list_ids()
sql3="select * from "&itable&" where id="&iid&" "
startconn()
set rs=conn.execute(sql3)
if rs.eof and rs.bof then
data=array(0,0,0,0)
else
data=rs.getrows()
end if
closers
closeconn
response.write(ubound(data)&":")
response.write(server.htmlencode(data(2,0)))
end function
''''-----------------------------------------------------------------
public function rs_top(num,table,whe)
startconn()
sql="select top "&num&" * from "&table&""
sql2="select count(*) as szd_count from "&table&" "" "&whe&""
set rs=conn.execute(sql2)
szd_count=rs("szd_count")
closers
set rs = conn.execute(sql)
dim data
if rs.eof then
data="no data"
else
data=rs.getrows()
end if
closers
closeconn()
call makesession (data)
end function
''''+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end class
试用方法：
dim action
action=request("k")
if action="view" then
call viewnew
elseif action="list" then
call list()
elseif action="read" then
call read()
else
call ff()
end if
sub ff()
%>
显示信息总数:每页数目:
操作:
end if
end function
''''-----------------------------------------------------------------
public function list_ids()
sql3="select * from "&itable&" where id="&iid&" "
startconn()
set rs=conn.execute(sql3)
if rs.eof and rs.bof then
data=array(0,0,0,0)
else
data=rs.getrows()
end if
closers
closeconn
response.write(ubound(data)&":")
response.write(server.htmlencode(data(2,0)))
end function
''''-----------------------------------------------------------------
public function rs_top(num,table,whe)
startconn()
sql="select top "&num&" * from "&table&""
sql2="select count(*) as szd_count from "&table&" "" "&whe&""
set rs=conn.execute(sql2)
szd_count=rs("szd_count")
closers
set rs = conn.execute(sql)
dim data
if rs.eof then
data="no data"
else
data=rs.getrows()
end if
closers
closeconn()
call makesession (data)
end function
''''+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end class
试用方法：
dim action
action=request("k")
if action="view" then
call viewnew
elseif action="list" then
call list()
elseif action="read" then
call read()
else
call ff()
end if
sub ff()
%>
显示信息总数:每页数目:
操作:
<%end sub%>
<%sub viewnew()
f_num=killint(request("n"),1,1)
pagesize=killint(request("pageno"),5,5)
arrstart=killint(request("start"),0,0)
rowid=killint(request("rowid"),0,0)
set cs=new ado_5do8
cs.connectstring="data/a.mdb"
cs.havese="shi"
cs.rs_top f_num,"site_szd",""
cs.readarraysession arrstart,pagesize,rowid
end sub
sub list()
response.write("返回默认模式 ")
response.write"下面显示具体信息: "
id=request("id")
id=killint(id,1,1)
set listid=new ado_5do8
listid.connectstring="data/a.mdb"
listid.getid=id
listid.gettable="site_szd"
listid.list_ids()
end sub
sub read()
response.write"
ASP技巧