快捷導(dǎo)航

asp偽繼承初探_實(shí)例代碼

更新時(shí)間：2008年10月01日 00:18:56 作者：

在寫一個(gè)分頁類的時(shí)候，碰到一個(gè)很巧妙的類對(duì)象引用傳遞的問題，如果我這里解釋是怎么一回事可能大家很難看清楚，不如看代碼

其中使用到一個(gè)分頁類CPaging

Class CPaging 
Public RS ' RecordSet對(duì)象 
Public Mark ' 指針標(biāo)簽 
Private sSize ' 每頁顯示數(shù) 
Private sTotal ' 總記錄數(shù) 
Private sPage ' 當(dāng)前頁碼 
Private sCount ' 總頁碼 
Private Sub Class_Initialize 
sSize = 20 
sPage = 1 
sCount = 1 
End Sub 
Private Sub Class_Terminate 
Closeobj RS 
End Sub 
'每頁顯示數(shù) 
Property Let Size(Value) 
sSize = Value 
End Property 
Property Get Size 
Size = sSize 
End Property 
'當(dāng)前頁碼 
Property Let Page(Value) 
If Not IsNumeric(Value) Then 
sPage = 1 
Else 
sPage = Value 
End If 
End Property 
Property Get Page 
If (sPage - 1) * sSize > sTotal Then 
If sTotal Mod sSize = 0 Then 
Page = Total \ sSize 
Else 
Page = Total \ sSize +1 
End If 
ElseIf sPage < 1 Then 
Page = 1 
Else 
Page = sPage 
End If 
End Property 
'總頁碼 
Property Get Count 
If sTotal Mod sSize = 0 Then 
Count = sTotal \ sSize 
Else 
Count = sTotal \ sSize + 1 
End If 
End Property 
'總記錄數(shù) 
Property Get Total() 
Total = sTotal 
End Property 
Public Function Open(Byval SQLString) 
Try DB.Openquery(RS,SQLString) 
sTotal = RS.RecordCount 
End Function 
End Class 

以下是調(diào)用頁

復(fù)制代碼代碼如下:

Dim Products 
Set Products = New CPaging 
With Products 
.Size = 15 '每頁顯示數(shù) 
.Page = PageNum '當(dāng)前頁 
End With 
Try Products.Open(ListSQL) 
If Products.RS.Bof and Products.RS.Eof then 
Response.Write("<TR><TD colspan=8>查找無記錄</TD></TR>") 
Else 
Dim i 
i = 0 
Products.RS.Move (Products.Page - 1) * Products.Size 
Do While Not Products.RS.Eof 
Response.Write("<TR onmouseup=MouseUp(this); onmousedown=MouseDown(this); onmouseover=MouseOver(this); onclick=Click(this); onmouseout=MouseOut(this);>"&vbCrLf) 
Response.Write("<TD align=middle nowrap>" & Products.RS("ProductsClassName") & "</TD>"&vbCrLf) 
Response.Write("<TD align=left nowrap>" & Products.RS("ProductsName") & " </TD>"&vbCrLf) 
Response.Write("</TR>"&vbCrLf) 
i=i+1 
If i >= Products.Size Then Exit Do 
Products.RS.MoveNext 
Loop 
End If