面向对象的asp编程之七--分页对象(vbscript版)

时间：2022-06-30 11:22:13 编辑：袖梨来源：一聚教程网

T LANGUAGE=VBScript RUNAT=Server>
' ************************************************************************
' Script Compont Object Model
' Design for Active Server Pages
'
' Copyright 2004 Version 2.0
' Made by 尹曙光
' ************************************************************************
function CreateCPageNavbar()
set CreateCPageNavbar=new CPageNavbar
end function
Class CPageNavbar
Public SplitSize '分页显示的容量
public PnWidth
public PnAlign
public PlWidth '表格宽度
public PlAlign ' 表格的对齐方式
private PageSize
private RecordCount '总记录数]
private PageCount '总页数
private CurrentPage '当前的页码
private SplitCount '分页的显示的总页数
private CurrentSplit '当前的分页的分页码
'===============================================================
Private Sub Class_Initialize ' Setup Initialize event.
SplitSize=10
Pn
PnAlign="right"
Pl //表格宽度
PlAlign="right" // 表格的对齐方式
PageSize=0
RecordCount=0
CurrentPage=1
PageCount=1
SplitCount=1
CurrentSplit=1
End Sub
Private Sub Class_Terminate ' Setup Terminate event.
End Sub

public sub InitPageNavbar(byval iPageSize,byval iRecordCount)
PageSize=cint(iPageSize)
RecordCount=clng(iRecordCount)
PageCount=fix(RecordCount/PageSize)+1
SplitCount=fix(PageCount/SplitSize)+1
end sub
public function GetCurrentPage()
'on error resume next
dim pageNo
pageNo =trim(Request.QueryString ("_Page_No_"))
'如果没有选择第几页，则默认显示第一页；
if ( (not IsNumeric(pageNo)) or pageNo="") then

推荐专题

最新下载

热门教程

面向对象的asp编程之七--分页对象(vbscript版)

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程