asp数字分页示例共三个

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(request(”page”))>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if

if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & “ ” & “….”
end if

for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & “ ” & “<B>[” & i & “]</B>”

else
pagetitle=pagetitle & “ ” & “[” & “<a href=userlist.asp?page=” & i & “>” & i & “<a>” & “]”
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & “ ” & “….”
end if
%>
您可以看到,有一个“pagetitle”的变量，您只要用
<%=pagetitle%>，就可以把它调用出来，实现您的效果。

 

 

 

另一个

 

 

 

<%
     sql="Select * from [table] order by id desc"
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.open sql,conn,1,1
     page=cint(request("page"))
     n=rs.RecordCount
     PageSize=10
     rs.pagesize=PageSize
     m=cint(rs.pagecount)
     if page="" then
     page=1
     elseif page<1 then
     page=1
     end if
     if cint(request("page"))>m then
     page=m
     end if
     page=cint(page)
     if not rs.eof then
     rs.absolutepage=page
     end if
    
     if m>page+3 then
     endpage=page+3
     else
     endpage=m
     end if
     if page>4 then
     pagetitle=pagetitle & " " & "...."
     end if
    
     for i=page-3 to endpage
     if not i<1 then
     if i = page then
     pagetitle=pagetitle & " " & "<B>[" & i & "]</B>"
    
     else
     pagetitle=pagetitle & " " & "[" & "<a href=default.asp?page=" & i & ">" & i & "<a>" & "]"
     end if
     end if
     next
     if page+3 < m then
     pagetitle=pagetitle & " " & "...."
     end if
     %>
     <%
       i=0
       j=0
       Do While Not rs.Eof And i<PageSize
       i = i + 1
       j=j+1
     %>
     <div>
       <a href="article.asp?id=<%=rs("id")%>"><%=rs("title")%></a> 作者:<%=rs("author")%> 日期:<%=rs

("posttime")%>
     </div>          
     <div><%=rs("content")%></div>
     <div>| <a href="article.asp?id=<%=rs("id")%>">评论<%=rs("commnums")%></a> |</div><br><br>      
     <%
       rs.MoveNext
       loop  
     %>

 

 

 

另一个

 

 

 

前几天有个朋友要做一数字分页导航，当时没有时间，就没有做，今天早上有时间，写了一个，拿来和大家分享。

'数字分页
'tblname 数据表
'whereword 查询条件
'pagelistnum 每页记录
'tnowpage 当前页号
'link 链接字符串
'pagestyle 最多显示几个页码
'conn 数据库链接
sub pagenav(dbname,conn,wherewords,pagelistnum,tnowpage,link,pagestyle)
sql="select count(*) as recnum from "&dbname
if wherewords<>"" then sql=sql & " where " & wherewords
set trst=Server.CreateObject("adodb.recordset")
trst.open sql,conn,1,1
sumrows=trst("recnum")
pagesum=sumrows/pagelistnum+1
if sumrows mod pagelistnum=0 then pagesum=sumrows/pagelistnum
tmphead="<a href="&link&"&page="
pagestart=(tnowpage/pagestyle)*pagestyle+1
if tnowpage mod pagestyle=0 then pagestart=((tnowpage/pagestyle)-1)*pagestyle+1
'输出上pagestyle页的分页
if tnowpage>pagestyle then
response.write(tmphead&(pagestart-pagestyle)&">&nbsp;上"&pagestyle&"页&nbsp;</a>")
end if
'输出上pagestyle页的分页
'输出上一页
if tnowpage>1 then
response.write(tmphead&(tnowpage-1)&">&nbsp;上一页&nbsp;</a>")
end if
'输出上一页
'输入页码字符串
if pagestart+(pagestyle-1)>=pagesum then
for i=pagestart to pagesum
response.write("&nbsp;"&tmphead&i&">"&i&"</a>&nbsp;")
next
else
for i=pagestart to pagestart+(pagestyle-1)
response.write("&nbsp;"&tmphead&i&">"&i&"</a>&nbsp;")
next
end if
'输出页码结束
'输出下一页
if cint(tnowpage)<cint(pagesum) then
response.write(tmphead&(tnowpage+1)&">下一页</a>")
end if
'输出下一页
'输出后pagestyle页的分页
if pagestart+(pagestyle-1)<pagesum then
response.write(tmphead&(pagestart+pagestyle)&">&nbsp;下"&pagestyle&"页&nbsp;</a>")
end if
'输出后pagestyle页的分页
'获取下拉框转向代码
selectcode="<script language='javascript'>function gopagenav(page){ location='"&link&"&page='+page; }</script><select name='selpage' id='selpage' onChange='javascript:gopagenav(this.value);'>"
for i=1 to pagesum
    selectcode=selectcode&"<option value='"&i&"'"
    if cInt(i)=cint(tnowpage) then selectcode=selectcode&" selected"
    selectcode=selectcode&">= "&i&" =</option>"
next
selectcode=selectcode&"</select>"
response.write(selectcode)
end sub