asp偽繼承初探

2021-04-20 09:46:17 字數 2437 閱讀 3440

在寫乙個分頁類的時候,碰到乙個很巧妙的類物件引用傳遞的問題,如果我這裡解釋是怎麼一回事可能大家很難看清楚,不如看**

其中使用到乙個分頁類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個成員...