|
<SCRIPT 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 PnWidth="100%" PnAlign="right" PlWidth="100%" //表格宽度 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 |