IDC资讯中心
<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>
