非常实用且好用的分页函数

<%
Dim Conn
Set Conn = Server.createobject("adodb.connection")
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("您的数据库路径")
'response.Write("<p>数据库连接状态：" & Conn.state & "</p>")
%>
<%
dim i,intPage,page,pre,last,filepath'定义变量
set rs = server.CreateObject("adodb.recordset")'创建对象
'sql="select * from user order by user_ID desc"'定义您的SQL语句
rs.PageSize = 20 '这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))'变量是跳转页面时的值

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>

<%'循环体开始：
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>

要循环的内容

<%
rs.movenext
next
'循环体结束
%>
<!--下面分页数据部分-->
<table width="80%" border="1" align="center" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs.pagecount > 0 then%>
<td width="13%" align="left">总共<font color="#FF0000"><%=rs.PageCount%></font>页<font color="#FF0000"><%=rs.recordcount%></font>条信息，每页<font color="#FF0000"><%=rs.pagesize%></font>条信息，当前第<font color="#FF0000"><%=intpage%></font>页 (<%=intpage%>/<%=rs.PageCount%>)</td>
<%else%>
<td width="41%" align="left">当前页0/0</td><%end if%>
<td width="46%" align="right"> <a href="?page=1">首页</a>|
<%if pre then%>
<a href="?page=<%=intpage -1%>">上页</a>| <%end if%>
<%if last then%>
<a href="?page=<%=intpage +1%>">下页</a> |<%end if%>
<a href="?page=<%=rs.PageCount%>">尾页</a>|转到第
<select name="sel_page" >
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页
<script language="VBScript">
sub sel_page_onchange()

location.href=sel_page.value

end sub
</script>

<!--<form action="">
<input TYPE="TEXT" Name="Page" SIZE="3">
<input type="submit" name="Submit" value="提交" />
</form>-->
</td>
</tr>
</table>