div + ajax + 分页函数
发布时间:2009-10-18 11:28:00
list.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>ajax 分页 - aspxhome.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
*
{
margin:0;
padding:0;
}
#contain
{
width:770px;
margin:10px auto;
}
#header
{
width:768px;
border:1px solid #eeaaee;
margin-bottom:10px;
height:100px;
}
#main
{
width:770px;
margin-bottom:10px;
}
#main_L
{
width:148px;
border:1px solid #eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_M
{
width:348px;
border:1px solid #eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_R
{
width:248px;
border:1px solid #eeaaee;
float:left;
height:300px;
}
#footer
{
width:768px;
border:1px solid #eeaaee;
height:40px;
}
</style>
</head>
<body onLoad="FF()">
<div id="contain">
<div id="header">rr</div>
<div id="main">
<div id="main_L">rr</div>
<div id="main_M"></div>
<div id="main_R">rr</div>
<br style="clear:both">
</div>
<div id="footer">rr</div>
</div>
<script type="text/javascript">
function FF(y) {
if (!y) {
y=1;
}
var xmlhttp;
if (window.ActiveXObject) {
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}else if(window.XMLHttpRequest) {
xmlhttp=new XMLHttpRequest();
}
if (xmlhttp) {
xmlhttp.onreadystatechange=function () {
if(xmlhttp.readyState==4) {
if(xmlhttp.status==200) {
var yy=unescape(xmlhttp.responseText);
show(yy);
}else {
alert("error");
}
}
}
xmlhttp.open("get","page.asp?page="+y);
xmlhttp.send(null);
}
}
function show(text) {
document.getElementById("main_M").innerHTML=text;
}
</script>
</body>
</html>
page.asp
<%
dim conn,rs
dim connstr,sqlcmd
set conn=server.CreateObject("ADODB.connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("mydata.mdb")
conn.open connstr
sqlcmd="select id,name,tel from contact"
set rs=server.CreateObject("ADODB.recordset")
rs.open sqlcmd,conn,1,1
rs.pagesize=6
page=clng(request.QueryString("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
response.Write("<table width='300px' border='1'>")
for i=1 to rs.pagesize
response.Write("<tr>")
response.Write("<td>"&rs(0)&"</td>")
response.Write("<td>"&escape(rs(1))&"</td>")
response.Write("<td>"&rs(2)&"</td>")
response.Write("</tr>")
rs.movenext
if rs.EOF then exit for
next
response.Write("</table>")
if page=1 then
response.write(escape("首页 上一页"))
response.write("<a href='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<a href='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
elseif page=rs.pagecount then
response.write("<a href='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<a href='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write(escape("下一页 末页"))
else
response.write("<a href='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<a href='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write("<a href='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<a href='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
end if
%>
注:数据库为mydata.mdb 表名:contact 字段:id,name,tel
猜你喜欢
- 最近论坛里总有人问幻灯片怎么从数据库里取数据,花了几分钟简单的写了下。用到的人可以自己在细化<%dim rs,sqlset&
- 由于众所周知的原因,ACCESS在大型站点应用中都靠不上边,主要问题就是数据量大了以后几乎无法索引。当ACCESS里数据过万后,明显可以感觉
- JavaScript 循环中,i++ 与 i– 那个比较快?相信有不少朋友看过相关的讨论文章,比如这篇。文章解释了开启优化选项后,i– 的
- 你用过css么?当然,我是指你喜欢做网页的话,用过?很好,那你用过它的特效么?没有?那请跟我来。让我先
- 本文主要介绍了一个获得当前数据库对象依赖关系的实用算法,具体示例请大家参考下文:create function&nb
- chat.html <html> <head><title>asp之家-简单聊天&l
- 1、shutdown normal 正常方式关闭数据库。 2、shutdown imme
- 在设计网页时,没有比页面的外观更重要的了。所以,如果发现设计人员十分关注字体及字体大小,我并不感到惊奇。使用CSS来编辑字体有各种各样的方法
- FCKeditor的样式设置涉及到了两个文件,一个是你定义好的样式表文件.css,另一个是告诉fck样式表如何使用的xml文件,两个文件确一
- 1、使用索引来更快地遍历表。缺省情况下建立的索引是非群集索引,但有时它并不是最佳的。在非群集索引下,数据在物理上随机存放在数据页上。合理的索
- 2007年1月,国务院 * 了中央“一号文件”,文件中对加快农业信息化建设有了更明确的部署,为新农村建
- 代码如下: var params = new Enumerator(Request.QueryString); while (!params
- 又发现一个IE不标准的地方,unshift方法会返回新数组的长度,但IE6与IE7则返回undefined。var a = [3,2,1,4
- 在ASP.NET中,如何连接 SQLServer数据库?连接数据库:<%@ Import Namespace=&q
- MySQL中模式就是数据库SHOW DATABASES;show databases;罗列所有数据库名称CREATE DATABASE &l
- 可怜我的C盘本来只有8.XG,所以不得不卸载掉它。卸载掉本身没啥问题,只是昨晚突然发现 Sql Server 2008 R2 Managem
- 最近看到N多介绍CSS框架,前些天我说过一句话:“在我有限的视野里,还没见到可以真正可以称得上css框架的东东~”,当然也可能是我的视野太小
- 很早以前就有很多关于用CSS制作的相册,今天突然想看又找不到,反正也无聊,自己做了一下,结果做一下发现自己温习了一些东西。还行,
- strIn 为 输入的Email地址字符串变量 返回为true或falsereturn Regex.IsMatch(strIn, @&quo
- 半透明效果有时候会给页面增加不少色彩,特别是Vista盛行之后,半透明效果更加受推崇。在诸多可用于Web浏览的图片格式中,只有PNG格式和G