<%

'******************************

'函数：MultiPage(Numbers,Perpage,Curpage,Url_Add)

'参数：Numbers,总记录数；Perpage,每页记录数；Curpage,当前页；Url_Add,当前页其它参数如?action=list&

'作者：阿里西西

'日期：2007/7/15

'描述：ASP通用分页样式函数

'示例：MultiPage(100,10,2,"?action=list&")

'******************************

FunctionMultiPage(Numbers,Perpage,Curpage,Url_Add)

CurPage=Int(Curpage)

DimURL

URL=Request.ServerVariables("Script_Name")&Url_Add

MultiPage=""

DimPage,Offset,PageI

IfInt(Numbers)>Int(PerPage)Then

Page=10

Offset=2

DimPages,FromPage,ToPage

IfNumbersModCint(Perpage)=0Then

Pages=Int(Numbers/Perpage)

Else

Pages=Int(Numbers/Perpage)+1

EndIf

FromPage=Curpage-Offset

ToPage=Curpage+Page-Offset-1

IfPage>PagesThen

FromPage=1

ToPage=Pages

Else

IfFromPage<1Then

Topage=Curpage+1-FromPage

FromPage=1

If(ToPage-FromPage)<PageAnd(ToPage-FromPage)<PagesThenToPage=Page

ElseIFTopage>PagesThen

FromPage=Curpage-Pages+ToPage

ToPage=Pages

If(ToPage-FromPage)<PageAnd(ToPage-FromPage)<PagesThenFromPage=Pages-Page+1

EndIf

EndIf

MultiPage="<ahref='"&Url&"page=1'><<</a>"

ForPageI=FromPageTOToPage

IfPageI<>CurPageThen

MultiPage=MultiPage&"<ahref='"&Url&"page="&PageI&"'>["&PageI&"]</a>"

Else

MultiPage=MultiPage&"<b>["&PageI&"]</b>"

EndIf

Next

IfInt(Pages)>Int(Page)Then

MultiPage=MultiPage&"...<ahref='"&Url&"page="&Pages&"'>["&pages&"]>></a>"

Else

MultiPage=MultiPage&"<ahref='"&Url&"page="&Pages&"'>>></a>"

EndIf

EndIf

EndFunction%>