校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > asp偽繼承初探_實例代碼

asp偽繼承初探_實例代碼

熱門標簽:外呼系統怎么話費 無營業執照地圖標注教學 硅基電話機器人加盟 地圖標注還可以做嗎 友邦互聯電銷機器人違法嗎 高質量的電銷外呼系統 電銷機器人采購 滴滴地圖標注上車點 宿州防封外呼系統平臺
其中使用到一個分頁類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
End Sub
Private Sub Class_Terminate
Closeobj RS
End Sub
'每頁顯示數
Property Let Size(Value)
sSize = Value
End Property
Property Get Size
Size = sSize
End Property
'當前頁碼
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
'總記錄數
Property Get Total()
Total = sTotal
End Property
Public Function Open(Byval SQLString)
Try DB.Openquery(RS,SQLString)
sTotal = RS.RecordCount
End Function
End Class

以下是調用頁 
復制代碼 代碼如下:

Dim Products
Set Products = New CPaging
With Products
.Size = 15 '每頁顯示數
.Page = PageNum '當前頁
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

當看到第8行的時候,似乎窺到了.net的影子--命名空間?

標簽:宣城 錫林郭勒盟 廣元 七臺河 新余 儋州 雅安 江門

巨人網絡通訊聲明:本文標題《asp偽繼承初探_實例代碼》,本文關鍵詞  asp,偽,繼承,初探,實例,代碼,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp偽繼承初探_實例代碼》相關的同類信息!
  • 本頁收集關于asp偽繼承初探_實例代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 云浮市| 湘潭县| 且末县| 七台河市| 河间市| 清镇市| 博白县| 马关县| 怀柔区| 东宁县| 建德市| 张家港市| 黎平县| 惠来县| 阿勒泰市| 济宁市| 兴宁市| 张家口市| 湄潭县| 信阳市| 利津县| 湘潭县| 墨脱县| 务川| 彭阳县| 格尔木市| 宽城| 桑植县| 石门县| 玉田县| 沁水县| 丘北县| 德庆县| 浦北县| 民县| 仪征市| 江安县| 通海县| 乃东县| 林州市| 锡林郭勒盟|