华为mate9出厂价:请问谁有类似google或者baidu的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("db1.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 表1"
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("内容")%><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="google.asp?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="google.asp?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="google.asp?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="google.asp?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>
<!--//分页程序-->

加我的QQ吧284581306