用XML创建可排序、分页的数据显示页面(2)
来源:孟宪会之精彩世界 时间:2008-04-22 18:25:00
第二步:实现客户端排序的功能
我们先设定一个默认的排序字段,这里选择“序号”作为默认的排序关键字,并且是按递增的顺序排列,在XSLT里加入sort标记:
<xsl:for-each select="客户">
<xsl:sort select="序号" order="descending" data-type="number"/>
</xsl:for-each>
接下来,我们为样式表增加排序的功能,以便可以响应用户的操作,我们在表头的每个列上添加onClick事件,该事件调用sort()函数,允许用户通过单击该表头来进行对该列的排序。
<td onClick="sort(‘序号‘)">序号</td>
Sort()函数的语句如下所示:
Function Sort(strField)
Dim sortField
Dim sortOrderAttribute
‘ 得到原来排序字段的属性值
Set sortField = Style.XMLDocument.selectSingleNode("//xsl:sort/@select")
‘ 得到原来排序的顺序属性值
Set sortOrderAttribute = Style.XMLDocument.selectSingleNode("//xsl:sort/@order")
‘ 如果我们已经按所点击的列的字段排序,我们必须改变排序的顺序;
‘ 否则,我们只需要按新所点击的列字段按默认的顺序进行排序
If sortField.Value = strField Or sortField.Value = "./*[0]" Then
If sortOrderAttribute.Value = "descending" Then
sortOrderAttribute.Value = "ascending"
Else
sortOrderAttribute.Value = "descending"
End If
Else
sortField.Value = strField
sortOrderAttribute.Value = "ascending"
End If
Set sortField = Nothing
Set sortOrderAttribute = Nothing
‘ 输出排序后的结果
DisplayArea.innerHTML = Data.transformNode(Style.DocumentElement)
End Function
下面,我们实现每页面显示的记录数和设定前页、后页的功能。使用span标记显示目前显示的是第几页、共多少页和记录的总数。我们默认每页显示6条记录,用变量intRecordsPerPage保存该值:
<table width="100%" border="0" style="font-size:9pt">
<tr>
<td align="left"><b>第 <span id="CurrentPage"></span> 页 总 <span id="PageCount"></span> 页 共有 <span id="RecordCount"></span> 条记录</b></td>
<td align="right"><b>每页记录数:<input onblur="setRecordsPerPage()" id="RecordsPerPage" style="vertical-align:middle;height:15pt;width:30px"/></b></td>
<td align="right">
<span id="Paging">
<input type="button" OnClick="FirstPage()" value="第一页"/>
<input type="button" OnClick="previousPage(1)" value="上一页"/>
<input type="button" OnClick="nextPage(1)" value="下一页"/>
<input type="button" OnClick="LastPage()" value="最末页"/>
</span>
</td>
</tr>
</table>
下面以“下一页”按钮执行的操作为例子,说明转换不同页面的处理过程。该函数根据参数intPage来决定要显示的记录的条数和相应的页面,每个按钮Value值的变化是通过动态改变XSL DOM的内容来实现的:
Function nextPage(intPage)
Dim strDisplay
Dim strDateRange
If CInt(CStr(intPage) * intRecordsPerPage) < _
Data.selectNodes("/客户关系表/客户").length Then
intPage = CInt(intPage) + 1
Style.XMLDocument.selectNodes("//@OnClick") _
(1).Value = "previousPage(" & intPage & ")"
Style.XMLDocument.selectNodes("//@OnClick") _
(2).Value = "nextPage(" & intPage & ")"
Style.XMLDocument.selectNodes _
("//xsl:for-each/@select")(1).Value = _
"./客户[position() <= " & (CStr(intPage) _
* intRecordsPerPage) & " and position() > " _
& (CInt(intPage) - 1) * intRecordsPerPage & _
"]"
redisplay (intPage)
End If
End Function
下面,我们来看看设置每个页面记录条数的函数setRecordsPerPage(),该函数通过动态修改xsl:for-each的select属性值来实现的,使用XPath来遍历那些符合节点位置大于0并且节点位置小于每页记录数加1的那些节点。其中主要的语句是下面的一行:
Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1). _
value = "./客户[position() < " & intRecordsPerPage + 1 & " and "& " position() > 0]"
到目前为止,我们的页面既可以实现排序,也实现动态改变每页显示记录条数的功能了,为了实现可重用的要求,我们还可以进行进一步的改进。XPath是进行XML/XSLT应用开发的一个强有力的工具,XPath中可以使用通配符,使XSLT样式单文件完全不依赖于你的数据节点名称。因此,我们在改变XML数据的时候,只要不改变节点的层次关系,可以不必改动XSLT就可以直接使用。比如:在本例中,你可以添加或者删除某些字段、或添加删除一些记录,直接使用本例中的XSLT,不但可以在表格里正常显示出数据,而且还能正常排序和分页。
标签:xml,排序,数据
0
投稿
猜你喜欢
Javascript 回调和事件(翻译)
2009-03-28 11:47:00
SQL Server数据库管理常用SQL和T-SQL语句
2009-05-07 14:01:00
(X)HTML的文档结构
2008-06-30 12:25:00
一个不错的js+css二级分类菜单代码
2007-12-28 21:22:00
互联网产品设计师自我介绍
2009-04-16 12:45:00
不用Global.asa也能实现统计在线人数吗?
2009-10-29 12:28:00
浏览器 cookie 限制
2008-05-23 13:09:00
用画为5.12地震受灾同胞们祈福 Ⅱ
2008-05-31 07:37:00
安装SQL Server 2005时出现计数器错误
2008-11-28 14:19:00
iPhone应用设计趋势[译]
2009-11-27 19:52:00
大写锁定提醒
2009-06-11 13:12:00
SQL Server 安全检查列表全攻略
2008-01-29 13:31:00
一个div层打开显示效果 js
2008-05-19 12:35:00
论坛首页效果图设计
2009-03-19 13:46:00
实际应用:MySQL5存储过程编写
2008-11-11 12:25:00
SQL 字母数字混合型字段 按里面的数字排序
2010-04-23 18:18:00
ASP 使用Filter函数来检索数组
2011-04-30 16:49:00
如何用ASP发送HTML格式的邮件?
2010-06-11 19:41:00
XHTML中用途相似的标签
2008-03-24 19:33:00
asp dictionary对象的用法
2011-04-14 11:09:00