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

新客网 XKER.COM 2004-08-12 来源： 收藏本文

<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
pageNo =1
end if
CurrentPage=clng(pageNo)
if (CurrentPage<1) then
CurrentPage=1
end if
if (CurrentPage>PageCount) then
CurrentPage=PageCount
end if
CurrentSplit=fix(CurrentPage/SplitSize)+1
GetCurrentPage=CurrentPage
end function

public function plDisplay()
dim strBuilder,p,itmp
strBuilder=""
'首组为第0族
strBuilder=strBuilder+"<table border='0' cellpadding='0' cellspacing='0' "
strBuilder=strBuilder+" width='"&PlWidth&"' align='"&PlAlign&"'>"
strBuilder=strBuilder+" <tr> "
strBuilder=strBuilder+" <td valign='middle' align='right'>分页："
if (CurrentSplit=1) then
strBuilder=strBuilder+"<font face='webdings' color='#ff0000'>9</font> "
strBuilder=strBuilder+"<font face='webdings' color='#ff0000'>7</font>"
else
strBuilder=strBuilder+"<a href='?_Page_No_=1' title='首页'><font face='webdings'>9</font></a> "
strBuilder=strBuilder+"<a href='?_Page_No_="&cstr((CurrentSplit-2)*SplitSize)&"' title='上"&cstr(SplitSize)&"页'><font face='webdings'>7</font></a> "
end if
strBuilder=strBuilder+"<b>"
'分页列表
itmp=(CurrentSplit-1)*SplitSize+1
for i=itmp to (itmp+SplitSize-1)
if (i=CurrentPage) then
strBuilder=strBuilder+"<font color='#000000'>"&cstr(i)&"</font> "
else
strBuilder=strBuilder+"<a href=?_Page_No_="&cstr(i)&" title='转到: 第"&cstr(i)&"页'>"&cstr(i)&"</a> "
end if
if (i>=PageCount) then
exit for
end if
next
strBuilder=strBuilder+"</b>"
'显示下十页
if (CurrentSplit<SplitCount) then
strBuilder=strBuilder+"<a href='?_Page_No_="&cstr((CurrentSplit)*SplitSize)&"' title='下十页'><font face='webdings'>8</font></a> "
strBuilder=strBuilder+"<a href=?_Page_No_="&cstr(PageCount)&" title='尾页'><font face='webdings'>:</font></a> "
else
strBuilder=strBuilder+"<font face='webdings' color='#ff0000'>8</font>"
strBuilder=strBuilder+"<font face='webdings' color='#ff0000'>:</font>"
end if
strBuilder=strBuilder+"</td></tr></table>"
Response.Write(strBuilder)
end function

public function pnDisplay()
dim strBuilder,nextPageNo
strBuilder=""
strBuilder=strBuilder+"<table border='0' cellpadding='0' cellspacing='0' "
strBuilder=strBuilder+" width='"&PnWidth&"' align='"&PnAlign&"'>"
strBuilder=strBuilder+"<tr>"
strBuilder=strBuilder+"<td valign='middle'>页次：[<b>"&cstr(CurrentPage)&"</b>/<b>"&cstr(PageCount)&"</b>]页 每页[<b>"&cstr(PageSize)&"</b>]条 总记录数：[<b>"&cstr(RecordCount)&"</b>]条</td>"
strBuilder=strBuilder+"<td align='right'>"
if (cint(CurrentPage)>1) then
nextPageNo=cint(CurrentPage)-1
strBuilder=strBuilder+"[<a href=?_Page_No_="&cstr(nextPageNo)&" title='转到上一页'>上一页</a>]"
end if
if (cint(CurrentPage)<cint(PageCount)) then
nextPageNo=cint(CurrentPage)+1
strBuilder=strBuilder+"[<a href=?_Page_No_="&cstr(nextPageNo)&" title='转到下一页'>下一页</a>]"
end if
strBuilder=strBuilder+"</td></tr></table>"
Response.Write(strBuilder)
end function
End Class

</SCRIPT>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件