[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 bpoint500 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

控制读取数据库信息的类：
参考源码：

''''名称：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("strong style=''''color:red''''>关闭conn连接/strong>...hr/>")
End sub
''''-----------------------------------------------------------------
Private Sub closers()
rs.close
Set rs=Nothing
response.write("strong style=''''color:#085420''''>关闭数据库RS/strong>.......
")

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("h5>总数获得了:")
response.write("b> "iRows+1"/b>条信息/h5>hr/>ul style=''''width:100%;''''>")
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 ("li style=''''padding:4px 0;''''>a href=?k=readrowid="irowloop+1">"data(1, iRowLoop)  " /a>span style=''''padding:4px 0 4px 10px;background-color:#ccc; ''''>较慢，不推荐点击-->a href=?k=listid="data(0,irowloop)">更新/a>/span>/li>")
Next
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>):"
if Start > 0 then
  Response.Write "A HREF=""?k=readStart="  iStart-ipageno "pageno="  ipageno  """>Previous/A>"
end if
if iStop  iRows then
Response.Write " A HREF=""?k=readStart="  iStart+ipageno "pageno="  ipageno  """>Next/A>"
end If

response.write"/div>"

Else
rowid=litter_in(rowid-1,iRows)
response.write("div style=''''width:85%''''>h4 style=''''text-align:center''''>a href=?k=readpageno="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))"")
response.write("div >")
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()
%>
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;">
  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>

  h5 style="border-top:1px solid #000;padding:5px 0"> 操作:input name="k" type="submit" value="view" />/h5>

/form> %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("h5>a href=default.asp>返回默认模式/a>/h5>")
    response.write"下面显示具体信息:hr/>"
   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"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>"
  pagesize=killint(request("pageno"),5,5)
arrstart=killint(request("start"),0,0)
rowid=killint(request("rowid"),0,0)
Set cs=new ado_5do8
cs.havese="shi"
cs.readarraysession  arrstart,pagesize,rowid

End sub

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
%>

说明：

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

标签：通辽凉山上海南京邢台赤峰清远楚雄

巨人网络通讯声明：本文标题《[ASP]使用类，实现模块化》，本文关键词 ASP,使用,类,实现,模块化,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。