asp通用分页样式功能代码

<
******************************
功能：MultiPage（号，Perpage，curpage，url_add）
参数：数量、总记录数；perpage，每页记录数；Curpage，当前页面；url_add，当前页面的其他参数，如动作=列表
作者：Ali Cici
日期：2007 7 15
asp通用分页样式功能
的例子：MultiPage（100,10,2，行动列表）
******************************
功能多页（数字、Perpage、curpage，url_add）
curpage = int（curpage）
昏暗的URL
url = request.servervariables（ｓｃｒｉｐｔ_name ）url_add
多页=
昏暗的页面，偏移，PageI
如果Int（数字）> Int（perpage）然后
页= 10
偏移量= 2
昏暗的页，页，ToPage
如果数字mod Cint（perpage）= 0
页= int（数字/ perpage）
其他的
页= int（数字/ perpage）+ 1
最后如果
页= curpage偏移
页= curpage + page-offset-1
如果页面>那么
页= 1
页页=
其他的
如果FromPage＜1
页= curpage + 1-frompage
页= 1
如果（ToPage FromPage）和（ToPage FromPage）< <页页页页然后=
页>页面然后
页= curpage页+页
页页=
如果（ToPage FromPage）和（ToPage FromPage）< <页页页页页+ 1 =然后
最后如果
最后如果
多页=
因为我=页到页
如果PageI <> CurPage
多页=多页{我}
其他的
多页=多页{我}
最后如果
下一个
如果Int（页）> Int（页）
多页=多页…{页
其他的
多页=多页> >
最后如果
最后如果
结束函数% >