<%set rs=server.createobject("adodb.recordset")rs.open "select * from sightn where 1=1 "&tj1&" "&tj2&" and 1=1 order by toporder,id",conn,1,1if rs.recordcount=0 then elsers.PageSize =24 '每頁記錄條數(shù)iCount=rs.RecordCount '記錄總數(shù)iPageSize=rs.PageSizemaxpage=rs.PageCount page=request("page")if Not IsNumeric(page) or page="" thenpage=1elsepage=cint(page)end ifif page<1 thenpage=1elseif page>maxpage thenpage=maxpageend ifrs2news.AbsolutePage=Pageif page=maxpage thenx=iCount-(maxpage-1)*iPageSizeelsex=iPageSizeend ifFor i=1 To x<% call PageControl(iCount,maxpage,page,"border=0 align=right","")rs2news.closeset rs2news=nothingSub PageControl(iCount,pagecount,page,table_style,font_style)'生成上一頁下一頁鏈接Dim query, a, x, tempaction = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")query = Split(Request.ServerVariables("QUERY_STRING"), "&")For Each x In querya = Split(x, "=")If StrComp(a(0), "page", vbTextCompare) <> 0 Thentemp = temp & a(0) & "=" & a(1) & "&"End IfNextif page<=1 then Response.Write "<li>|<上一頁</li> " else Response.Write"<li><A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">|<上一頁</A></li> " end iffor ii=1 to pageCountif page=ii thenResponse.Write"<li class='now'>"&ii&"</a></li>"elseResponse.Write"<li><A HREF=" & action & "?" & temp & "Page=" & (ii) & ">"&ii&"</a></li>"end ifnextif page>=pagecount thenResponse.Write "<li>下頁>|</li> " elseResponse.Write "<li><A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下頁>|</A></li> " end if%></ul>共計<%=iCount%>條，共<%=pageCount%>頁，每頁<%=iPageSize%>
1 回答
當年話下
TA貢獻1890條經(jīng)驗 獲得超9個贊
這個是最好的ASP ACCESS的分頁。
set rs = conn.execute("select count(m_id) as HH_sum_vote_log from HH_say "&HS_haveid2&"")
HH_sum_vote_log = rs("HH_sum_vote_log")
rs.close
set rs = nothing
if HH_sum_vote_log>0 then
HH_sum_page_result=Round(HH_sum_vote_log/HH_pagesize,2)
HH_sum_page=cint(HH_sum_vote_log/HH_pagesize)
if HH_sum_page<HH_sum_page_result then
HH_sum_page=HH_sum_page+1
end if
else
HH_sum_page=1
end if
if isnumeric(HH_admpg) = false then
echo ("頁碼有誤，將為您轉(zhuǎn)向第一頁！")
end if
if HH_admpg="" or HH_admpg<1 then
page = 1
else
page = cint(HH_admpg)
end if
if page < 1 or page > HH_sum_page then
echo ("頁碼有誤，將為您轉(zhuǎn)向第一頁！")
end if
HH_sumpagemax="desc"
if page=HH_sum_page and page<>1 and HH_sum_page<>1 then
HH_pagesize_no=(HH_pagesize*HH_sum_page)-HH_sum_vote_log
if not HH_pagesize_no=0 then
HH_pagesize=HH_pagesize-HH_pagesize_no
HH_sumpagemax="asc"
end if
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from (select top "&HH_pagesize&" * from (select top "&page*HH_pagesize&" * from HH_say "&HS_haveid&" order by Val([m_id]) "&HH_sumpagemax&") order by Val([m_id])) order by Val([m_id]) desc"
rs.open sql,conn,1,1
if rs.eof then
echo ("<script language='javascript'>alert('本項目沒有訪客留言，請返回！');window.history.go(-1);</script>")
rs.close
set rs=nothing
exit sub
end if
do while not rs.eof
rs.movenext
loop
<div id="H_page">第<%=page%>/<%=HH_sum_page%>頁 共<%=HH_sum_vote_log%>條記錄<%
if page=1 then%>
首頁
<%else%>
<a href="?class=<%=HH_admclass%><%=HH_idshow%>&pg=1" id="lianjie" class="zw">首頁</a>
<%end if
if page<>1 then
%>
<a href="?class=<%=HH_admclass%><%=HH_idshow%>&pg=<%=page-1%>" id="lianjie" class="zw">上一頁</a>..
<%else%>
上一頁
<%end if
pg_px_top=page-5
pg_px_botton=page+5
for i=pg_px_top to pg_px_botton
if i<1 or i>HH_sum_page then
else
if i=page then
response.write i
else%>
<a href="?class=<%=HH_admclass%><%=HH_idshow%>&pg=<%=i%>"><%=i%></a>
<% end if
end if
next
if page<>HH_sum_page then
%>
..<a href="?class=<%=HH_admclass%><%=HH_idshow%>&pg=<%=page+1%>" id="lianjie" class="zw">下一頁</a>
<%else%>
下一頁
<%end if
if page<>HH_sum_page then%>
<a href="?class=<%=HH_admclass%><%=HH_idshow%>&pg=<%=HH_sum_page%>" id="lianjie" class="zw">尾頁</a>
<%else%>
尾頁
<%end if
echo ("</div>")
rs.close
set rs=nothing
%>
目前最好的ASP ACCESS分頁法，無償奉獻