通用Asp分页函数

[mendel]

<%
function GetPageList(curpage,rscount,pagesize,pagelistnum)

'#####################版权声明#############################
'版权所有：遨天网络 http://www.allting.net
'作者：风逍遥(mendel) [e-mail]
'您可以随意转摘或使用本函数，但必须保留本版权信息
'##########################################################

'=====================参数说明=============================
'curpage当前页
'rscount总记录数
'pagesize显示数据条数
'pagelistnum显示几个分页链接
'==========================================================

'声明函数
dim pgcount,firstpage,endpage,lastpage,firststr,endstr,pagelist,pgcount1,addpage

'获取总页数
pgcount1=split((rscount/pagesize),".")
pgcount=pgcount1(0)
lastpage=rscount mod pagesize
if lastpage>0 then
pgcount=pgcount+1
end if

'判断页数是否超出
if clng(curpage)>clng(pgcount) then
curpage=1
end if

'计算第一页
if len(curpage)>1 then
if clng(curpage mod pagelistnum)=0 then
firstpage=clng(left(curpage,len(curpage)-1))*pagelistnum-pagelistnum+1
else
firstpage=clng(left(curpage,len(curpage)-1))*pagelistnum+1
end if
else
firstpage=1
end if

'计算最后页
endpage=firstpage+pagelistnum-1
if clng(endpage)>clng(pgcount) then
endpage=pgcount
end if

'计算前一个pagelistnum
if clng(curpage)>clng(pagelistnum) then

firststr="<a href='page.asp?page="&curpage-pagelistnum&"'><<</a> "
else
firststr="<< "
end if
'计算前一页
if clng(curpage)>1 and clng(pgcount)>1 then
firststr=firststr & "<a href='page.asp?page="&curpage-1&"'><</a> "
else
firststr=firststr & "< "
end if

'计算后一页
if clng(curpage)<clng(pgcount) and clng(pgcount)>1 then
endstr="<a href='page.asp?page="&curpage+1&"'>></a> "
else
endstr="> "
end if

'计算后一个pagelistnum
if clng(pgcount)-clng(endpage)>0 then
if clng(curpage)-clng(pgcount)>clng(pagelistnum) then
addpage=pagelistnum
else
addpage=clng(pgcount)-clng(endpage)
end if
endstr=endstr &"<a href='page.asp?page="&curpage+addpage&"'>>></a>"
else
endstr=endstr&">>"
end if

'获得循环页数
for i=firstpage to endpage
if clng(i)=clng(curpage) then
pagelist=pagelist&"<font color=red><b>"&i&"</b></font> "
else
pagelist=pagelist & "<a href='page.asp?page="&i&"'>"&i&"</a> "
end if
next

'返回函数值
GetPageList="<table width='100%'><tr><td width='50%'>共有"&rscount&"条记录/"&pgcount&"页　当前页："&curpage&"/"&pagelistnum&"条记录每页</td><td width='50%' align='right'>"&firststr & pagelist & endstr&"</td></tr></table>"
end function

page=request.querystring("page")
if not isnumeric(page) or page="" then
page=1
end if
response.write GetPageList(page,0,20,10)

%>



希望大家能够用得上，呵呵

[zhuifengxiaozi]

谢谢


怎么结帖呀

[mendel]

我自己结啊