程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> [ASP]使用類,實現模塊化

[ASP]使用類,實現模塊化

編輯:關於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("<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
''''聯系:[email protected]
''''更新: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=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>")
 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=read&Start=" & iStart-ipageno &"&pageno=" & ipageno & """>Previous</A>"
 end if 
 if iStop < iRows then
 Response.Write " <A HREF=""?k=read&Start=" & 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=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))&"")
 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)站內交流。當然,不許抄襲。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved