请问谁有这样的分页函数呢？就是< 1 2 3 4 5 6 7 8 9 >这样的＜＞代表上一页下一页．是函数哦！

[yurui]

请问谁有呢？能贡献下吗？

[笨笨兔兔兔兔兔]

function showpagenext() '显示分页的东西
pageshow="<table></tr>"
if page=1 then
pageshow=pageshow & "<td>第一页</td><td>上一页</td>"
if page<Count then
pageshow=pageshow & "<td><a href='picdisplay.asp?Page=" & page+1 & "&foldernum=" & foldernum &"'>下一页</a></td><td><a href='picdisplay.asp?Page=" & Count & "&foldernum=" & foldernum & "'>最后一页</a></td>"
else
pageshow=pageshow & "<td>下一页</td><td>最后一页</td>"
end if
else
if page<Count then
pageshow=pageshow & "<td><a href='picdisplay.asp?Page=1&foldernum=" & foldernum & "'>第一页</a></td><td><a href='picdisplay.asp?Page=" & page-1 & "&foldernum=" & foldernum & "'>上一页</a></td><td><a href='picdisplay.asp?Page=" & page+1 & "&foldernum=" & foldernum &"'>下一页</a></td><td><a href='picdisplay.asp?Page=" & Count & "&foldernum=" & foldernum &"'>最后一页</a></td>"
else
pageshow=pageshow & "<td><a href='picdisplay.asp?Page=1&foldernum=" & foldernum & "'>第一页</a></td><td><a href='picdisplay.asp?Page=" & page-1 & "&foldernum=" & foldernum & "'>上一页</a></td><td>下一页</td><td>最后一页</td>"
end if
end if
pageshow=pageshow & "</tr></table>"
showpagenext=pageshow
end function

这个是类似的函数，跟你的要求有所差距，如果修要可以小改一下的

[sfply]

偶自己的烂分页过程
三个参数分别是当前页，总页数，连接地址
MyCurrpage:User selected page, MyTotalPage:System MAX page, URL:Other params needed, such as "index.asp?action=input&something=other"

sub page(MyCurrpage,MyTotalPage,URL)
if not isnumeric(MyCurrpage) or not isnumeric(MyTotalPage) then exit sub
dim i,right,left
if MyTotalPage > 10 then
if MyCurrPage <=2 then
right = 10
left = 1
else
if MyCurrPage < MyTotalPage - 7 then
right = MyCurrPage + 7
left = MyCurrPage - 2
else
right = MyTotalPage
left = MyTotalPage - 9
end if
end if
else
right = MyTotalPage
left = 1
end if
if MyTotalPage > 10 then response.write "<a class=nav href="&URL&"&page=1>«</a>"
for i = left to right
if i <> cint(MyCurrPage) then
response.write " <a href="&URL&"&page="&i&">["& i &"]</a>"
else
response.write " <b>["& i &"]</b>"
end if
next
if MyTotalPage > 10 then response.write " ... <a href="&URL&"&page="&MyTotalPage&">["& MyTotalPage &"]</a><a class=nav href="&URL&"&page="&MyTotalPage&">»</a>"
end sub

出来的结果就是那个叫dis...什么的著名的php论坛的分页效果

[sfply]

比如
<%
call page(5,20,"index.asp?action=search")
%>
结果如下（5是当前页无连接，其他有连接）
« [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] ... [20]»

[yurui]

有谁有速度快的呢？

[shuayang]

动网就有

[yurui]

希望大家帮忙啊！

[xxw365]

'动网的函数
<% Function Pagination(PageCount)

Dim WzPage,WzPageCount,PageNum


If Len(Request("Page"))<>0 Then
WzPage = Clng(Request("Page"))
Else
WzPage =1
End If

If WzPage <= 0 Then WzPage =1

PageNum = (WzPage \ 10)*10+1

If WzPage Mod 10 = 0 Then PageNum = (WzPage \ 10)*10-9
Response.Write ("<font face=""Webdings"">")
Response.Write ("<a href=""?Page=1"" title=""首页"">9</a>")
Response.Write ("<a href=""?Page="& PageNum-1 &""" title=""前十页"">7</a>")
Response.Write ("</font>")
For PageNum = PageNum TO PageNum + 9
If PageNum = WzPage Then
Response.Write ("<font color=""#FF0000"">")
Response.Write (" ["& PageNum &"] ")
Response.Write ("</font>")
Else
Response.Write (" <a href=""?Page="& PageNum &""">")
Response.Write ("["& PageNum &"]")
Response.Write ("</a> ")
End If
If PageNum >= PageCount Then Exit For
Next
Response.Write ("<font face=""Webdings"">")
Response.Write ("<a href=""?Page="& PageNum &""" title=""后十页"">8</a>")
Response.Write ("<a href=""?Page="& PageCount &""" title=""末页"">:</a>")
Response.Write ("</font>")
End Function %>

[jzywh]

最好做成js

-------------------------------

function GetPageNavi(Page,PageNum)
{
document.write("共" + PageNum + "页");
document.write("  ");
document.write("当前第" + Page + "页");
document.write("  ");
if(PageNum>1)
{
if(Page==1)
{
document.write("<a>首页</a>");
document.write("  ");
document.write("<a>上页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + (Page+1) + ")\">下页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + PageNum + ")\">末页</a>");
document.write("  ");
}
else if(Page<PageNum)
{
document.write("<a href=\"javascript:JumpPage(1)\">首页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + (Page-1) + ")\">上页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + (Page+1) + ")\">下页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + PageNum + ")\">末页</a>");
document.write("  ");
}
else
{
document.write("<a href=\"javascript:JumpPage(1)\">首页</a>");
document.write("  ");
document.write("<a href=\"javascript:JumpPage(" + (Page-1) + ")\">上页</a>");
document.write("  ");
document.write("<a>下页</a>");
document.write("  ");
document.write("<a>末页</a>");
document.write("  ");
}

}
document.write("  ");
if(PageNum<10)
{
for(i=1;i<=PageNum;i++)
{
if(Page==i)
{
document.write(i);
document.write("  ");
}
else
{
document.write("<a href=\"javascript:JumpPage(" + i + ")\">[" + i + "]</a>");
document.write("  ");
}
}
}
}

function JumpPage(pageindex)
{
document.all("pageform").page.value = pageindex;
document.all("pageform").submit();
}

function SetOrder(orderindex)
{
document.all("pageform").order.value = orderindex
document.all("pageform").submit();
}

[jzywh]

程序不够完善，希望大家点评一下

这种程序用js还是好些，减轻服务其负担

[jzywh]

GetPageNavi(Page,PageNum)


Page 当前页数， PageNum 总页数

[yuwenwu_xhs]

我有个 100 w 高速分页的函数。
且分页也非常舒服：

根据用户选择的数据页自动罗列挨近的 10 页（自然含第一页和最后页的按钮）
留下邮箱，我发个给你吧

[yb2008]

效果为
60条记录,每页6条，分页[1/10]:[<<] [<] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [>] [>>]

Function GetPageList(curpage,rscount,pagesize,pagelistnum,otherpr)
'当前页curpage
'总页数rscount
'分页记录pagesize
'分页显示数pagelistnum
'其它参数otherpr,没有可以留空串

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

'获取总页数
if rscount = 0 or rscount < pagesize then
pgcount = 1
lastpage = 0
else
pgcount=int(rscount / pagesize)
lastpage=rscount mod pagesize
end if

if lastpage>0 then
pgcount=pgcount+1
end if

if otherpr <> empty then
otherpr = "&" & otherpr
end if

'判断页数是否超出
if clng(curpage)>clng(pgcount) or curpage=empty 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_no="&curpage-pagelistnum&otherpr&"'><<</a>] "
else
firststr="[<<] "
end if
'计算前一页
if clng(curpage)>1 and clng(pgcount)>1 then
firststr=firststr & "[<a href='?page_no="&curpage-1&otherpr&"'><</a>] "
else
firststr=firststr & "[<] "
end if

'计算后一页
if clng(curpage)<clng(pgcount) and clng(pgcount)>1 then
endstr="[<a href='?page_no="&curpage+1&otherpr&"'>></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_no="&curpage+addpage&otherpr&"'>>></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_no="&i&otherpr&"'>"&i&"</a>] "
end if
next
GetPageList=""&rscount&"条记录,每页"&pagesize&"条，分页"&curpage&"/"&pgcount&"]:" & firststr & pagelist & endstr
End Function


'楼主要给分我哦...

[shuayang]

'我的分页代码开始
if (page-1) mod PageNum = 0 then
p = (page-1) /PageNum
else
p = (((page-1)-(page-1) mod PageNum)/PageNum)
end if
if rst.RecordCount mod PageSize = 0 then
n = rst.RecordCount/PageSize
else
n = (rst.RecordCount-rst.RecordCount mod PageSize)/PageSize+1
end if
strHtml=strHtml & "总记录数:<b>" & rst.RecordCount & "</b>  分页："
if page = 1 then
strHtml=strHtml & "<font face=webdings color=red>9</font>"
else
strHtml=strHtml & "<a title=首页 href="&thisPageName&"?page=1><font face=webdings>9</font></a>"
end if
if p*PageNum > 0 then
strHtml=strHtml & "<a href="&thisPageName&"?page="&p*PageNum&" title=""上"&PageNum&"页""><font face=webdings>7</font></a>"
end if
'strHtml=strHtml & "<b>"
for i=p*PageNum+1 To p*PageNum+PageNum
if i=page then
strHtml=strHtml & " <font color=red>"&i&"</font>"
else
strHtml=strHtml & " <a href="&thisPageName&"?page="&i&" title=""第"&i&"页"">"&i&"</a>"
'strHtml=strHtml & " <a href=""#"" onclick=pageopen("&i&")>"&i&"</a>"
end if
if i=n then Exit For
next
'response.write "page="&page&"<br>"
'response.write "rst.RecordCount="&rst.RecordCount&"<br>"
'response.write "PageSize="&PageSize&"<br>"
'response.write "p="&p&"<br>"
'response.write "n="&n&"<br>"
'response.write "i="&i&"<br>"
'strHtml=strHtml & "</b>"
strHtml=strHtml & " "
if i<n then
strHtml=strHtml & "<a href="&thisPageName&"?page="&i&" title=""下"&PageNum&"页""><font face=webdings>8</font></a>"
end if
if page=n then
strHtml=strHtml & "<Font face=webdings color=red>:</font>"
else
strHtml=strHtml & "<a href="&thisPageName&"?page="&n&" title=""尾页""><font face=webdings>:</font></a>"
end if
'我的分页代码结束

[skangming]

to：yuwenwu_xhs(主席夸我帅)

我要，谢谢[e-mail]

[shuayang]

看看这个:
http://218.19.67.43:8080/html/DataGrid/computer.asp

[yurui]

[e-mail]

[yurui]

那可不好找阿！

[yurui]

我在调用函数的时候出现了问题！
1。 page_no 要如何获得是否为request.Form("page_no")
2。怎么分页后不能正常显示呢？例如有20条分页，每页显示5条，可是每一页显示的都是和第一页一样的，这个要怎么处理呢？