使用javascript+xml技术实现分页浏览
来源:互联网 发布时间:2008-05-29 13:49:00
基于web的技术中,分页是一个老的不能再老的,但大家津津乐道的问题,随着xml技术的日渐应用,把xml应用到分页当中,也是一种可能,当然网上的教程很多,当我都是看得稀里糊涂,索性自己写一个,与大家分享、指正。
共有两个文件tmh.htm & tt.xml
源代码如下:
tmh.htm
___________________________________________________
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link rel="stylesheet" href="../website.css" type="text/css">
</HEAD>
<BODY>
<script language="javascript">
//****************变量相关定义**************
//* author:海仔 *
//* Email:rautinee@21cn.com *
//*本程序可自由传播使用,但请务必保留此信息*
//****************************************
var pagenum=4; //每页显示几条信息
var page=0 ;
var contpage ;
var BodyText="";
var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
var mode="member";
var toolBar;
xmlDoc.async="false"
xmlDoc.load("tt.xml")
//***************这个地方是你根据实际取得的字段名称来改了
header="<TABLE border=1><tr><td>姓名</td><td>图标</td><td>IP地址</td><td>email</td><td></td><td>日期</td><td></td><td></td></tr>";
//检索的记录数
maxNum = xmlDoc.getElementsByTagName(mode).length
//每条记录的列数
column=xmlDoc.getElementsByTagName(mode).item(0).childNodes
//每条记录的列数
colNum=column.length
//页数
pagesNumber=Math.ceil(maxNum/pagenum)-1;
pagesNumber2=Math.ceil(maxNum/pagenum);
//上一个页面
function UpPage(page)
{
thePage="前一页";
if(page+1>1) thePage="<A HREF='#' onclick='Javascript:return UpPageGo()'>前一页</A>";
return thePage;
}
function NextPage(page)
{
thePage="后一页";
if(page<pagesNumber) thePage="<A HREF='#' onclick='Javascript:return NextPageGo()'>后一页</A>";
return thePage;
}
function UpPageGo(){
if(page>0) page--;
getContent();
BodyText="";
}
//当前的页数
function currentPage()
{
var cp;
cp="当前是第 "+(page+1)+" 页";
return cp;
}
//总共的页数
function allPage()
{
var ap;
ap='总共 '+(pagesNumber+1)+' 页';
return ap
}
function NextPageGo()
{
if (page<pagesNumber) page++;
getContent();
BodyText="";
}
//显示分页状态栏
function pageBar(page)
{
var pb;
pb=UpPage(page)+" "+NextPage(page)+" "+currentPage()+" "+allPage()+selectPage();
return pb;
}
function changePage(tpage)
{
page=tpage
if(page>=0) page--;
if (page<pagesNumber) page++;
getContent();
BodyText="";
}
function selectPage()
{
var sp;
sp="<select name='hehe' onChange='javascript:changePage(this.options[this.selectedIndex].value)'>";
//sp="<select name='hehe' onChange='alert(this.options[this.selectedIndex].value)'>";
sp=sp+"<option value=''></option>";
for (t=0;t<=pagesNumber;t++)
{
sp=sp+"<option value='"+t+"'>"+(t+1)+"</option>";
}
sp=sp+"</select>"
return sp;
}
function getContent()
{
if (!page) page=0;
n=page*pagenum;
endNum=(page+1)*pagenum;
if (endNum>maxNum) endNum=maxNum;
BodyText=header+BodyText;
for (;n<endNum;n++)
{
BodyText=BodyText+"<TR>";
for (m=0;m<=colNum-1;m++)
{
mName=column.item(m).tagName;
BodyText=BodyText+("<TD>"+xmlDoc.getElementsByTagName(mName).item(n).text+"</TD>");
}
BodyText=BodyText+"</TR>"
mm="";
}
showhtml.innerHTML=BodyText+"</table>"+pageBar(page);
BodyText=""
}
</script>
<div id="showhtml"></div>
<script>
if (maxNum==0)
{
document.write("没有检索到合适的人才信息")
}
else
{
getContent()
}
</script>
</BODY>
</HTML>
猜你喜欢
- 以下测试用于去除任何字符串中连线的分隔符 代码如下:--去除字符串中连续的分隔符 declare @str nvarchar(200) de
- 代码如下:'===================================== '获得文件后缀 '=====
- 即使MyISAM表格式非常可靠(SQL语句对表做的所有改变在语句返回之前被写下),如果下列任何事件发生,你依然可以获得损坏的表:&m
- 1. 什么是XSLT 大家可能听说过XSL(eXtensible Stylesheet Language),XSL和我们这里说的XSLT从狭
- MySql5.0以后均支持存储过程,最近有空,研究了一下这个格式:CREATE PROCEDURE 过程名 ([过程参数[,...]])[特
- <% &nbs
- 大部分时候我们讲导航,讲的是导航对内容和结构的一种表现。就是说我们在讨论导航的时候,更多的去关注怎么与之交互,以及视觉上是怎么好看。但是导航
- 《页面表达常用方式》是整个“web交互设计方法”中的一部分:设计师在设计页面时,应该在页面上建立许多视觉层次,引导用户的视觉焦点。把用户的注
- 代码如下:<% Randomize Do While Len(pass)<12 
- 通常,你需要获得当前日期和计算一些其他的日期,例如,你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割
- 在本身比较复杂的页面里,再突出信息,往往是把几种方法叠加起来使用,比如加粗加大、加粗加色等,区别在于使用的类别和程度。导致的结果是呈现越来越
- 有朋友问,在数据库中如何查询数据所在的行,一般我们建议一个自增字段就可以了.但是有时却会删除数据,那么那个自增字段也不正确了先不管朋友们为什
- Delphi连接MySQL真麻烦,研究了一天,从网上找了无数文章,下载了无数插件都没解决。最后返璞归真,老老实实用ADO来连接,发现也不是很
- 这是为了实现一个效果,而提前作的测试代码!看起来很简单的一个东西,到这会,大约四个小时过去了。不知道是IE6的BUG;还是我自已的BUG!有
- 一、首先你要确认你的鉴别模式:WIN NT鉴别模式呢还是混合模式,其中混合模式包括WIN NT鉴别模式和SQL SERVER 鉴别模式实施鉴
- 好久没有写ASP代码了,今天在做一个简单的留言本时,出现了一下错误: Microsoft Office Access Database En
- 比较简单的一个页面,类似csdn论坛在ns下的左边列表 描述: 1. 数据名:tree.mdb 表名:tree 表结构:id(自编)&nbs
- 需要在两个文件中实现:首先,在talker.asp(在线名单)中做如下处理:<%p1=trim(application("v
- 调用bianli()函数,这里是遍历F:盘,bianli("F:\")'这里设置文件夹路径,你可以改为其它文件夹
- 如何用通过Web访问OLAP数据? <% Set Conn=Server.CreateObject(″A