<%
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)&"> 上"&pagestyle&"页 </a>")
end if
'输出上pagestyle页的分页
'输出上一页
if tnowpage>1 then
response.write(tmphead&(tnowpage-1)&"> 上一页 </a>")
end if
'输出上一页
'输入页码字符串
if pagestart+(pagestyle-1)>=pagesum then
for i=pagestart to pagesum
response.write(" "&tmphead&i&">"&i&"</a> ")
next
else
for i=pagestart to pagestart+(pagestyle-1)
response.write(" "&tmphead&i&">"&i&"</a> ")
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)&"> 下"&pagestyle&"页 </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
