TRYER.net-网络技术,黑客,WEB编程,热门网站,热门软件,学院

写在前面的话：

所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在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("<h5>以下显示<font color=red>"&bname&"</font>的资料:</h5>")

response.write("<h5>性别:<font color=red>"&bsex&"</font></h5>")

response.write("<h5>积分:<font color=red>"&bpoint&"</font></h5>")

getlevel

response.write("<h5>级别:<font color=red>"&blevel&"</font></h5>")

End Function

End class

使用这个类的时候这样使用：（我在这里写了一个表单处理的）

Set blueideauser=new blueidea

blueideauser.getname=Trim(request("id"))

blueideauser.getsex=request("sex")

blueideauser.getpoint=request("point")

blueideauser.showuser

是不是想看看效果，那就看看这里：

http://www.5do8.com/net/aspclass/class.asp

控制读取数据库信息的类：

参考源码：

运行代码框

'名称：ado_5do8<br/>'作用:读取数据库的各项操作<br/>'来源-耕耘村http://www.5do8.com http://www.Blueidea.com-5do8<br/>'创作：5do8<br/>'联系:5do8@5do8.com<br/>'更新：2005年11月13日<br/>'授权：蓝色理想网站积分超过3000，耕耘村所有注册用户<br/>'类的接口:ado_5do8.ConnectString=数据库绝对路径<br/>'ado_5do8.rs_top 调用数目，表的名称<br/>Class ado_5do8<br/>Private conn,sqlstr,rs,iid,itable,isession<br/>'sqlstr:数据库地址，为绝对路径，私有<br/>'conn：打开数据库的连接，私有<br/>'------------------------------------------------------------------<br/>rem 消除一些不想要的数字<br/>Private Function litter_in(r1,r2)<br/>If IsNumeric(r1) and IsNumeric(r2) Then<br/>Dim dimrr<br/>If r1>r2 Then<br/>dimrr=r2<br/>Else<br/>dimrr=r1<br/>End If<br/>Else<br/>dimrr=0<br/>End if<br/>litter_in=dimrr<br/>End Function<br/>'-----------------------------------------------------------------<br/>Private Function killint(i,killstr,killsub)<br/>If Not IsNumeric(i) Then<br/>i=killstr<br/>ElseIf i<=0 Then<br/>i=killsub<br/>End if<br/>killint=Int(Left(i,5))<br/>End Function<br/>'-----------------------------------------------------------<br/>private Sub startconn()<br/>On Error Resume Next<br/>Set conn=server.CreateObject("adodb.connection")<br/>strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sqlstr)<br/>conn.open strconn<br/>If Err Then<br/>err.Clear<br/>Set Conn = Nothing<br/>mess="发生错误，不能连接数据库"<br/>response.write(mess)<br/>response.End<br/>Else<br/>mess="连接数据库conn成功...........<br/>"<br/>response.write(mess)<br/>End If<br/>End Sub<br/>'----------------------------------------------------------------<br/>private Sub closeconn()<br/>conn.close<br/>Set conn=Nothing<br/>response.write("<strong style='color:red'>关闭conn连接</strong>...<hr/>")<br/>End sub<br/>'-----------------------------------------------------------------<br/>Private Sub closers()<br/>rs.close<br/>Set rs=Nothing<br/>response.write("<strong style='color:#085420'>关闭数据库RS</strong>.......<br/>")<br/>End Sub<br/>'-----------------------------------------------------------------<br/>Property Get havese<br/>havese=isession<br/>End Property<br/>Property Let havese(yoursession)<br/>isession=yoursession<br/>If yoursession="" Then<br/>isession="nodef"<br/>End If<br/>End Property<br/>'-----------------------------------------------------------------<br/>Public Function makesession(arraydata)<br/>If IsArray(arraydata) then<br/>makear=arraydata<br/>Else<br/>makear=Array(0,0,0,0)<br/>End If<br/>If isession="" Then<br/>isession="nodef"<br/>End if<br/>session(isession)=makear<br/>End Function<br/>'-----------------------------------------------------------------<br/>private Function getsession()<br/>thisget=session(isession)<br/>If Not IsArray(thisget) Then<br/>thisget=Array(0,0,0,0)<br/>End If<br/>Getsession=thisget<br/>End function<br/>'-----------------------------------------------------------------<br/>Property Get ConnectString<br/>ConnectString = sqlstr<br/>End Property<br/>Property Let ConnectString(str)<br/>sqlstr = str<br/>End Property<br/>'-----------------------------------------------------------------<br/>Property Get getid<br/>getid = iid<br/>End Property<br/>Property Let getid(id)<br/>iid = id<br/>End Property<br/>'-----------------------------------------------------------------<br/>Property Get gettable<br/>gettable = itable<br/>End Property<br/>Property Let gettable(table)<br/>itable = table<br/>End Property<br/>'-----------------------------------------------------------------<br/>'------------------------------------------------------------------<br/>public Function readarraysession(iStart,ipageno,irowid)<br/>rowid=killint(irowid,0,0)<br/>start=killint(istart,0,0)<br/>pageno=killint(ipageno,5,5)<br/>data=getsession<br/>iRows = UBound(data, 2)<br/>iCols = UBound(data, 1)<br/>response.write("<h5>总数获得了:")<br/>response.write("<b> "&iRows+1&"</b>条信息</h5><hr/><ul style='width:100%;'>")<br/>If rowid = 0 then<br/>If iRows > (ipageno + iStart) Then<br/>iStop = ipageno + iStart - 1<br/>Else<br/>iStop = iRows<br/>End If<br/>For iRowLoop = Start to iStop<br/>Response.Write ("<li style='padding:4px 0;'><a href=?k=read&rowid="&irowloop+1&">"&data(1, iRowLoop) & " </a><span style='padding:4px 0 4px 10px;background-color:#ccc; '>较慢，不推荐点击--><a href=?k=list&id="&data(0,irowloop)&">更新</a></span></li>")<br/>Next<br/>Response.Write "</ul><div style='top:20px;background-color:#ccc;color:#020;font-weight:bold;bordr-top:2px solid #008;padding:10px 0;color:#b00'>列表(<a href=default.asp>回到典型模式</a>):"<br/>if Start > 0 then<br/>Response.Write "<A HREF=""?k=read&Start=" & iStart-ipageno &"&pageno=" & ipageno & """>Previous</A>"<br/>end if<br/>if iStop < iRows then<br/>Response.Write " <A HREF=""?k=read&Start=" & iStart+ipageno &"&pageno=" & ipageno & """>Next</A>"<br/>end If<br/>response.write"</div>"<br/>Else<br/>rowid=litter_in(rowid-1,iRows)<br/>response.write("<div style='width:85%'><h4 style='text-align:center'><a href=?k=read&pageno="&pageno&"&start="&start&">返回列表</a></h4></h2><hr/><h5>"&server.htmlencode(data(1,rowid))&"</h5><p>"&server.htmlencode(data(2,rowid))&"<h5>+-----"&server.htmlencode(data(3,rowid))&"")<br/>response.write("<div >")<br/>End if<br/>End Function<br/>'-----------------------------------------------------------------<br/>Public Function list_ids()<br/>sql3="select * from "&itable&" where id="&iid&" "<br/>startconn()<br/>Set rs=conn.execute(sql3)<br/>If rs.eof And rs.bof Then<br/>data=Array(0,0,0,0)<br/>Else<br/>data=Rs.GetRows()<br/>End If<br/>closers<br/>closeconn<br/>response.write(UBound(data)&":")<br/>response.write(server.htmlencode(data(2,0)))<br/>End function<br/>'-----------------------------------------------------------------<br/>Public Function rs_top(num,table,whe)<br/>startconn()<br/>sql="select top "&num&" * from "&table&""<br/>sql2="select count(*) as szd_count from "&table&" "" "&whe&""<br/>Set rs=conn.execute(sql2)<br/>szd_count=rs("szd_count")<br/>closers<br/>Set rs = Conn.Execute(sql)<br/>dim data<br/>If Rs.Eof Then<br/>data="no data"<br/>Else<br/>data=Rs.GetRows()<br/>End if<br/>closers<br/>closeconn()<br/>Call makesession (data)<br/>End Function<br/>'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<br/>End Class<br/>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

使用的时候：

运行代码框

Dim action<br/>action=request("k")<br/>If action="view" Then<br/>Call viewnew<br/>ElseIf action="list" Then<br/>Call list()<br/>ElseIf action="read" Then<br/>Call read()<br/>Else<br/>Call ff()<br/>End if<br/>Sub ff()<br/>%><br/><form style="border-top:2px solid #008;border-bottom:2px solid #008;margin:auto;background-color:#eee;padding:20px 5px;color:#008;font-weight:bold;"><br/><label>显示信息总数:<input name="n" type="text" maxlength="4" size="10" />每页数目:<input name="pagesize" type="text" maxlength="4" size="10" value="5"/><input name="arrstart" type="hidden" value="0"></label><br/><h5 style="border-top:1px solid #000;padding:5px 0"> 操作:<input name="k" type="submit" value="view" /></h5><br/></form> <%End sub%><br/><%Sub viewnew()<br/>f_num=killint(request("n"),1,1)<br/>pagesize=killint(request("pageno"),5,5)<br/>arrstart=killint(request("start"),0,0)<br/>rowid=killint(request("rowid"),0,0)<br/>Set cs=new ado_5do8<br/>cs.ConnectString="data/a.mdb"<br/>cs.havese="shi"<br/>cs.rs_top f_num,"site_szd",""<br/>cs.readarraysession arrstart,pagesize,rowid<br/>End sub<br/>Sub list()<br/>response.write("<h5><a href=default.asp>返回默认模式</a></h5>")<br/>response.write"下面显示具体信息:<hr/>"<br/>id=request("id")<br/>id=killint(id,1,1)<br/>Set listid=new ado_5do8<br/>listid.ConnectString="data/a.mdb"<br/>listid.getid=id<br/>listid.gettable="site_szd"<br/>listid.list_ids()<br/>End Sub<br/>Sub read()<br/>response.write"<div style='background-color:#ccc;padding:20px 0;color:080;font-weight:bold;border-bottom:2px solid #008'>页面分析完毕，要更新请选择<a href=default.asp>回到典型模式</a>参数：Start，开始元素；pageno，每页条数</div>"<br/>pagesize=killint(request("pageno"),5,5)<br/>arrstart=killint(request("start"),0,0)<br/>rowid=killint(request("rowid"),0,0)<br/>Set cs=new ado_5do8<br/>cs.havese="shi"<br/>cs.readarraysession arrstart,pagesize,rowid<br/>End sub<br/>Function killint(i,killstr,killsub)<br/>If Not IsNumeric(i) Then<br/>i=killstr<br/>ElseIf i<=0 Then<br/>i=killsub<br/>End if<br/>killint=Int(Left(i,5))<br/>End Function<br/>%><br/>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

演示在：

http://www.5do8.com/net/aspclass

经典讨论帖：http://www.blueidea.com/bbs/NewsDetail.aspDaysPrune=60&lp=1&id=2284117

说明：

此源码5do8单独写出，本源码我享有解释权，但不保证源码的安全，任何损失使用者自己承担，本源码仅仅限于在耕耘村(http://www.5do8.com)，蓝色理想(http://www.blueidea.com)和 缔客论坛(http://www.dw8.cn)站内交流。当然，不许抄袭。