asp 分页代码 可以显示<<12345678>>形式的分页

Answer 1

是你想要的。
<%
'这里写查询语句
page=request("page")
if page="" then
page=1
else
page=Cint(page)
end if

Section=request("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=5 '每页显示记录数
intSectionSize=5 '多少页为一段，5表示，12345为一段。
PrevSectionText="<FONT face=webdings>7</FONT>" '上一段的链接文字
NextSectionText="<FONT face=webdings>8</FONT>" '下一段的链接文字
PrevPageText="<FONT face=webdings>3</FONT>" '上页的链接文字
NextPageText="<FONT face=webdings>4</FONT>" '下页的链接文字

strPageUrl="?t=t"

rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
end if

'循环输出
for i=1 to intPageSize
if rs.eof then exit For
%>

共有<%=intPageCount%>页 <%=intCount%>条记录 (<%=intPageSize%>条/页) 当前页<%=Page%>  
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "' class=list>" & PrevSectionText & "</a> ")
end if

'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion=" & Section & "' class=list>[" & p & "]</a> ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section+1 & "' class=list>" & NextSectionText & "</a> ")
end if
%>

Answer 2

我给你整段代码啊，一目了然,还有不明白的可以问我，QQ是332418288。

<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from product order by id desc"
rs.open sqlstr,conn,3,3
rs.pagesize=6 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
'----------------------------
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
'--------------------------
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
'--------------------------------
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
'-------------------------------
%>
<%do while not rs.eof%>
<div class="listitem">
<p><h3>产品名称：</h3><h4><a href="product_detail.asp?id=<%=rs("id")%>" target="_self"><%=rs("p_name")%></a></h4></p>
</div><hr />
<%i=i+1
if i>=rs.pagesize then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<div id="next">
<%if nowpage<>1 then%>
<a href="product.asp?page=<%=1%>">首页</a>
<%else%>
<%end if%>
<%if nowpage>1 then%>
<a href="product.asp?page=<%=nowpage-1%>">上页</a>
<%else%>
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="product.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="product.asp?page=<%=nowpage+1%>">下页</a>
<%else%>
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="product.asp?page=<%=tatalpages%>">尾页</a>
<%else%>
<%end if%>
6/<%=tatalrecord%>个产品
</div>