<%
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>
分享到:
相关推荐
自己写的一个比较实用的php分页函数,个人觉得还可以,值得一看,老鸟飘过。
一个非常好的sql2005分页函数,简单实用,希望对你有所帮助
asp分页函数-简单实用的分页
非常实用的PHP分页函数,有外观样式接口
非常好用的分页类,很容易定制各种风格,可以与网上流行的 《24款超实用的Web 2.0风格翻页页码css代码》 完美无缝连接。你所做的,就是改个div的名字而已。另外懂点儿CSS的朋友甚至可以轻松实现仿Google的翻页样式。至...
比较实用的分页函数用asp+vbscript,重用性极强。
一个简单实用的PHP分页函数,显示方式采用百度模式那样的。
Pagination.js是一款简单实用且功能齐全的jQuery分页插件。该jQuery分页插件提供多种数据源方式,众多的配置参数,回调函数,显示控制等,还提供了5套内置的分页条皮肤。
本文主要是给大家分享了一段PHP的封装好的分页函数,可以实现文本分页和数字分页两种形式,非常的实用,有需要的朋友可以参考下
看者要顶啊 /*—————————————————————// * 函数说明:分页函数 page($sql,$pagesize=”30″) * $sql 查询语句(除limit外,可带排序或者条件限制) * 如 select * from stu where ...
Pagination.js是一款简单实用且功能齐全的jQuery分页插件。该jQuery分页插件提供多种数据源方式,众多的配置参数,回调函数,显示控制等,还提供了5套内置的分页条皮肤。
Pagination是一款简洁实用的jQuery分页插件代码,提供多种数据源方式,众多的配置参数,回调函数,显示控制等,还提供了5套内置的分页条皮肤。
简单又实用的 存储过程分页 真正的实现分页技术 可不是一锅端的分页 用存储过程实现的 好用到 2005 新特性ROW_NUMBER() 这个函数
PHP分页函数代码(简单实用型),学习php分页的朋友可以参考下。
主要介绍了PHP基于数组实现的分页函数实例,是非常实用的一个技巧,需要的朋友可以参考下
直接导入后 对DAO在spring注入sessionFactory,然后在Action中可以进行简单的调用,测试测试例子都在代码main函数写好了,希望对大家有帮助
分页控件:能够很好的解决分页的问题,只需要在后台页面添加一个函数即可,用户还可以根据自己的喜好对控件进行修改
主要为大家介绍了wordpress上一页下一页无插件分页函数,讲述了两个不同的分页函数实例,可适用于不同的应用场合,非常具有实用价值,需要的朋友可以参考下
一个简单实用的分页js,包括 上一页,下一页,转到 等操作 只需简单的调用个js函数页面上就能出现分页。js代码也是简单明了方便读取。
主要介绍了一个自己封装的Codeigniter(CI)框架的分页函数以及Codeigniter(CI)框架分页类的使用心得,非常简单实用,希望对大家能有所帮助