zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    NGINX location 在配置中的优先级
    CentOS 系统启动流程
    微软输入法正则bug
    uniapp改变页面背景色
    路由Router
    vue-cli3替换默认的title和图标(区别脚手架vue-cli2版本)
    浏览器报错 Refused to apply style from 'http://******' because its MIME type ('text/html') is not a supported stylesheet MIME type, and strict MIME checking is enabled.
    禁止浏览器后退
    前端构建工具(webpack-gulp-grunt-rollup...)
    鼠标经过小箭头(状态伪类需求)
  • 原文地址:https://www.cnblogs.com/exit/p/1882149.html
Copyright © 2011-2022 走看看