ASP通用分頁(yè)樣式函數(shù)代碼
更新時(shí)間：2007年08月08日 12:10:11 作者：
<%
'******************************
'函數(shù)：MultiPage(Numbers,Perpage,Curpage,Url_Add)
'參數(shù)：Numbers,總記錄數(shù)；Perpage,每頁(yè)記錄數(shù)；Curpage,當(dāng)前頁(yè)；Url_Add,當(dāng)前頁(yè)其它參數(shù)如?action=list&
'作者：阿里西西
'日期：2007/7/15
'描述：ASP通用分頁(yè)樣式函數(shù)
'示例：MultiPage(100,10,2,"?action=list&")
'******************************
Function MultiPage(Numbers,Perpage,Curpage,Url_Add)
CurPage=Int(Curpage)
Dim URL
URL=Request.ServerVariables("Script_Name")&Url_Add
MultiPage=""
Dim Page,Offset,PageI
If Int(Numbers)>Int(PerPage) Then
Page=10
Offset=2
Dim Pages,FromPage,ToPage
If Numbers Mod Cint(Perpage)=0 Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
End If
FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
If Page>Pages Then
FromPage=1
ToPage=Pages
Else
If FromPage<1 Then
Topage=Curpage+1-FromPage
FromPage=1
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page
ElseIF Topage>Pages Then
FromPage =Curpage-Pages +ToPage
ToPage=Pages
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1
End If
End If
MultiPage="<a href='"&Url&"page=1'><<</a> "
For PageI=FromPage TO ToPage
If PageI<>CurPage Then
MultiPage=MultiPage&"<a href='"&Url&"page="&PageI&"'>["&PageI&"]</a> "
Else
MultiPage=MultiPage&"<b>["&PageI&"]</b> "
End If
Next
If Int(Pages)>Int(Page) Then
MultiPage=MultiPage&" ... <a href='"&Url&"page="&Pages&"'> ["&pages&"] >></a>"
Else
MultiPage=MultiPage&"<a href='"&Url&"page="&Pages&"'>>></a>"
End If
End If
End Function%>
'******************************
'函數(shù)：MultiPage(Numbers,Perpage,Curpage,Url_Add)
'參數(shù)：Numbers,總記錄數(shù)；Perpage,每頁(yè)記錄數(shù)；Curpage,當(dāng)前頁(yè)；Url_Add,當(dāng)前頁(yè)其它參數(shù)如?action=list&
'作者：阿里西西
'日期：2007/7/15
'描述：ASP通用分頁(yè)樣式函數(shù)
'示例：MultiPage(100,10,2,"?action=list&")
'******************************
Function MultiPage(Numbers,Perpage,Curpage,Url_Add)
CurPage=Int(Curpage)
Dim URL
URL=Request.ServerVariables("Script_Name")&Url_Add
MultiPage=""
Dim Page,Offset,PageI
If Int(Numbers)>Int(PerPage) Then
Page=10
Offset=2
Dim Pages,FromPage,ToPage
If Numbers Mod Cint(Perpage)=0 Then
Pages=Int(Numbers/Perpage)
Else
Pages=Int(Numbers/Perpage)+1
End If
FromPage=Curpage-Offset
ToPage=Curpage+Page-Offset-1
If Page>Pages Then
FromPage=1
ToPage=Pages
Else
If FromPage<1 Then
Topage=Curpage+1-FromPage
FromPage=1
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page
ElseIF Topage>Pages Then
FromPage =Curpage-Pages +ToPage
ToPage=Pages
If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1
End If
End If
MultiPage="<a href='"&Url&"page=1'><<</a> "
For PageI=FromPage TO ToPage
If PageI<>CurPage Then
MultiPage=MultiPage&"<a href='"&Url&"page="&PageI&"'>["&PageI&"]</a> "
Else
MultiPage=MultiPage&"<b>["&PageI&"]</b> "
End If
Next
If Int(Pages)>Int(Page) Then
MultiPage=MultiPage&" ... <a href='"&Url&"page="&Pages&"'> ["&pages&"] >></a>"
Else
MultiPage=MultiPage&"<a href='"&Url&"page="&Pages&"'>>></a>"
End If
End If
End Function%>
相關(guān)文章
用ASP做的DNS LOOKUP程序...2007-03-03
asp 多關(guān)鍵詞搜索的簡(jiǎn)單實(shí)現(xiàn)方法
asp搜索兩個(gè)以上的詞的實(shí)現(xiàn)方法，簡(jiǎn)單的就是利用split，其它的可以參考本站之前更新的文章2008-11-11
經(jīng)常使用游標(biāo)，但一些具體的說(shuō)明不是很清楚，書(shū)上的東西太乏味2008-11-11
asp通過(guò)JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)
asp通過(guò)JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)...2007-08-08
asp實(shí)現(xiàn)取得數(shù)組中的最大值的代碼
asp實(shí)現(xiàn)取得數(shù)組中的最大值的代碼...2007-08-08
ASP + Serv-u 實(shí)現(xiàn)FTP的代碼
ASP + Serv-u 實(shí)現(xiàn)FTP的代碼...2006-10-10
ASP+XML留言板介紹...2006-11-11
能不能在flash動(dòng)畫(huà)中給asp傳遞變量？
能不能在flash動(dòng)畫(huà)中給asp傳遞變量？...2006-08-08
asp中讓function同時(shí)返回多個(gè)值的代碼
asp中讓function同時(shí)返回多個(gè)值的代碼，需要的朋友可以參考下。2011-02-02
ASP 多關(guān)鍵詞查詢(xún)實(shí)例代碼
在web開(kāi)發(fā)中經(jīng)常遇到多關(guān)鍵詞對(duì)對(duì)單個(gè)字段查詢(xún)，我一般是通過(guò)動(dòng)態(tài)數(shù)組來(lái)實(shí)現(xiàn)的。當(dāng)然多個(gè)關(guān)鍵詞的一般是用空格或,隔開(kāi)，我這幾假設(shè)多個(gè)關(guān)鍵詞用空格隔開(kāi),關(guān)鍵字字符串為keyStr，具體代碼為。2008-11-11