面向對象是現今編程語言的潮流,不過,ASP對面向對象的支持可是寒磣地很.現在感覺ASP的類也不過是一堆函數而已.

不過,在學校時沒有學過面向對象的語言,我對面向對象的認識仍然是從ASP開始的.

記下我所寫的第一個ASP類,權做紀念

若有ASP初學者也可以做個參考

?1?<%
?2?class?show_p_n
?3?'***********************************************************************************************
?4?'顯示新聞（文章）上一篇下一篇的類
?5?'其實，有點小題大作，只是練練手而已。我才學會寫類，還太不熟練。
?6?'還沒有對輸入的數據類型做檢測，如果輸入錯誤就會出錯（似乎還應該加上出錯處理、容錯）
?7?'^^^^^歸去來^^^^^
?8?'2004-10-29?9:13
?9?'***********************************************************************************************
10?'*********************以下為應用舉例，非常簡單，就不多說什么了**********************************
11?'**********dim?zyt
12?'**********set?zyt=new?show_p_n???'新建一個對象實例
13?'**********zyt.getconn=conn　???'輸入數據庫的連接對象conn
14?'**********zyt.presentid=new_id???'輸入當前新聞（文章）的編號
15?'**********zyt.tablename="apec_news"??'新聞（文章）所在的表名
16?'**********zyt.fieldname="new_id"??'唯一標識新聞（文章）的字段名
17?'**********zyt.getrs?????'取得結果
18?'**********response.write("上一篇的標題："&?zyt.rsprev("new_title")&"<br>")?'輸出上一篇的標題
19?'**********response.write("下一篇的標題："&?zyt.rsnext("new_title")&"<br>")?'輸出下一篇的標題
20?'**********set?zyt=nothing????'銷毀對象實例
21?'***********************************************************************************************
22?private?zytpresentid????'當前文章（新聞）的id
23?private?zk_conn?????'連接數據庫的conn
24?private?tablen?????'要查詢的表名
25?private?fieldn?????'唯一標識新聞（文章）的字段名
26?
27?private?sqlprev?????'查詢下一篇的SQL語句
28?private?sqlnext?????'查詢上一篇的SQL語句
29?
30?public?rsprev?????'顯示上一篇的rs
31?public?rsnext?????'顯示下一篇的rs
32?':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
33?Private?Sub?Class_Initialize()???'類初始化事件
34?End?Sub
35?
36?Private?Sub?Class_Terminate()???'類結束事件
37?rsPrev.close
38?set?rsPrev=nothing
39?rsNext.close
40?set?rsNext=nothing
41?End?Sub
42?':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
43?':::::::::::::::::::::::::定義類的輸入屬性::::::::::::::::::::::::::::::::::::::::
44?public?property?let?getconn(obj_Conn)??'連接數據庫的conn
45?Set?zk_conn=obj_Conn
46?end?property
47?
48?public?property?let?presentid(byval?vpid)?'當前文章（新聞）的id，數字類型
49?zytpresentid=vpid
50?end?property
51?
52?public?property?let?tablename(byval?vtablename)?'要查詢的表名
53?tablen=vtablename
54?end?property
55?
56?public?property?let?fieldname(byval?vfieldname)?'唯一標識新聞（文章）的字段名
57?fieldn=vfieldname
58?end?property
59?'*******************************************************************************************************
60?public?sub?getrs()????'取得結果
61?sqlprev="select?top?1?*?from?"&tablen&"?where?"?&?fieldn?&?"?<?"?&?zytpresentid?&?"?order?by?"&fieldn&"?desc"
62?sqlnext="select?top?1?*?from?"&tablen&"?where?"?&?fieldn?&?"?>?"?&?zytpresentid?&?"?order?by?"&fieldn
63?set?rsprev=zk_conn.execute(sqlprev)
64?set?rsnext=zk_conn.execute(sqlnext)
65?end?sub
66?'*******************************************************************************************************
67?end?class
68?%>

轉載于:https://www.cnblogs.com/cime63/archive/2007/03/08/668081.html

總結

以上是生活随笔為你收集整理的我的第一个ASP类(显示止一篇下一篇文章)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。