在寫乙個分頁類的時候,碰到乙個很巧妙的類物件引用傳遞的問題,如果我這裡解釋是怎麼一回事可能大家很難看清楚,不如看**
其中使用到乙個分頁類cpaging
class cpaging
public rs ' recordset物件
public mark ' 指標標籤
private ssize ' 每頁顯示數
private stotal ' 總記錄數
private spage ' 當前頁碼
private scount ' 總頁碼
private
sub class_initialize
ssize = 20
spage = 1
scount = 1
endsub
private
sub class_terminate
closeobj rs
endsub
'每頁顯示數
property
let size(value)
ssize = value
endproperty
property
get size
size = ssize
endproperty
'當前頁碼
property
let page(value)
ifnot isnumeric(value) then
spage = 1
else
spage = value
endif
endproperty
property
get page
if (spage - 1) * ssize > stotal then
if stotal mod ssize = 0 then
page = total / ssize
else
page = total / ssize +1
endif
elseif spage < 1 then
page = 1
else
page = spage
endif
endproperty
'總頁碼
property
get count
if stotal mod ssize = 0 then
count = stotal / ssize
else
count = stotal / ssize + 1
endif
endproperty
'總記錄數
property
get total()
total = stotal
endproperty
public
function open(byval sqlstring)
try db.openquery(rs,sqlstring)
stotal = rs.recordcount
endfunction
endclass
以下是呼叫頁
dim products
set products = new cpaging
with products
.size = 15 '每頁顯示數
.page = pagenum '當前頁
endwith
try products.open(listsql)
if products.rs.bof and products.rs.eof then
response.write("查詢無記錄
")else
dim i
i = 0
products.rs.move (products.page - 1) * products.size
dowhile
not products.rs.eof
response.write(""&vbcrlf)
response.write("" & products.rs("productsclassname") & ""&vbcrlf)
response.write("" & products.rs("productsname") & " "&vbcrlf)
response.write(""&vbcrlf)
i=i+1
if i >= products.size then
exit
doproducts.rs.movenext
loop
endif
當看到第8行的時候,似乎窺到了.net的影子--命名空間?
十二 初探繼承
1 繼承概念 物件導向中的繼承指類之間的父子關係 示例 class parent void print class child parent 繼承自父類,預設為private繼承 注意 繼承時的訪問級別設定會影響到成員的訪問級別 2 c 中的訪問級別與繼承 private繼承 protected繼承...
ASP生成偽引數程式設計技巧
前兩天在做乙個站內版的企搜引擎,發現某些站點可以鏈結站點內容。奇怪之下看了看,原來是按照資料庫id的自動編號規律進行鏈結的 閒暇之餘弄了下面這個東東,希望對大家在以後的編寫asp程式中有所幫助!生成指定位數的隨機數字 也可以用guidy寫的ixuer rnd str函式,自帶15種樣式,可以偽md5...
Typescript初探 類與繼承
類 類的關鍵字 clss可以聲名乙個類,類可以從字面上理解,類裡面有很多態別的資料或者方法,類可以被子類或者介面繼承。class greeter greet let greeter newgreeter world 上面是乙個類的使用,可見類裡面可以囊括多種資料介面。我們一般這樣說 這個類有3個成員...