类似google的ASP分页代码[测试通过]

<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.style1 {font-size: 14px}
-->
</style>

<％
'敛接数据库
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("data/sqdsb.mdb")+";Persist Security Info=False"
set conn = Server.CreateObject("ADODB.Connection")
conn.open strConn
％>
内容显示>>><br><br>
<％
'内容循环前
set rs=server.createobject("adodb.recordset")
sql="select * from tb_article order by id desc"
rs.open sql,conn,1,3
page=1 ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
％>

<％=rs("title")％><br><br>

<％
rs.movenext
next '循环结束
％>
分页>>><br><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr align="center" valign="top">

<!--控制第一张图片，有没有上一页-->
<td width="68" align="center">
<％if page=1 or page<1 then％>
<img src="nav_first.gif">
<％end if％>
<％if page>1 then％>
<a href="?Page=<％=page-1％>"><img src="nav_previous.gif" width="68" height="26" border="0"><br><span class="style1">上一页</span></a>
<％end if％>
</td>
<!--//-->

<!--当前页面前，循环显示4页-->
<％
'1-4页要特殊对待
if page>1 then a=1
if page>2 then a=2
if page>3 then a=3
if page>4 then a=4
'当前页面前，循环显示4页
for i=page-a to page-1 ％>
<td width="16" align="center">
<a href="?Page=<％=i％>"><img src="nav_page.gif" width="16" height="26" border="0"><br><％=i％></a>
</td>
<％ next ％>

<!--当前所在页面-->
<td width="16" align="center">
<img src="nav_current.gif"><br><font color="#FF0000"><％=page％></font>
</td>
<!--//-->

<!--当前页面后，循环显示4页-->
<％
for i=page+1 to page+4
if i>rs.PageCount then exit for
％>
<td width="16" align="center">
<a href="?Page=<％=i％>"><img src="nav_page.gif" width="16" height="26" border="0"><br><％=i％></a>
</td>
<％
next
％>
<!--//-->

<!--控制最后一张图片，有没有下一页-->
<td width="100" align="center">
<％ if page=rs.PageCount or page>rs.PageCount then ％>
<img src="nav_last.gif">
<％ else ％><a href="?Page=<％=page+1％>"><img src="nav_next.gif" width="100" height="26" border="0"><br><span class="style1">下一页</span></a>
<％ end if ％>
</td>
<!--//-->

</tr>
</table>
<!--//分页程序-->