计算机科学论坛--欢迎高手！

<HTML>
<Head>
<META http=equiv="Content-Type" Content="text/html;charset=gb2312">
<STYLE>
body { font-family:宋体; font-size:11pt;}
th { font-family:宋体; font-size:11pt; font-weight:bold;}
</STYLE>
<Script language="vbscript">
Option Explicit

Dim intRecordsPerPage '每个页面显示的记录数
intRecordsPerPage = 6 '每个页面显示的记录数，默认设定为6

' 更新显示页面的函数
Function window_onload()

     ' 显示设定的记录数
     Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).Value = "./*[position() < " & intRecordsPerPage + 1 & " and position() > 0]"
     transform()
     setPageCount()

End Function

' 进行XML-XSLT转换，并显示当前记录的一些信息
Function transform()
  temp.loadXML (Data.transformNode(SortData.DocumentElement))

     DisplayArea.innerHTML = temp.transformNode(Style.DocumentElement)
     RecordsPerPage.Value = intRecordsPerPage

End Function

' 重新转换XML，并显示一个状态信息
Function redisplay(intPage)

  Dim strDisplay
  Dim intPageCount
  Dim intRecordCount

     ' 保存状态信息
     intPageCount = PageCount.innerHTML
     intRecordCount = RecordCount.innerHTML
     transform()
     ' 显示状态信息
     PageCount.innerHTML = intPageCount
     RecordCount.innerHTML = intRecordCount
     CurrentPage.innerHTML = intPage

End Function

' 重新排序和显示
Function Sort(strField)

  Dim sortField
  Dim sortOrderAttribute
     ' 得到排序属性值
     Set sortField = SortData.XMLDocument.selectSingleNode("//xsl:sort/@select")
     Set sortOrderAttribute = SortData.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

     redisplay (CurrentPage.innerHTML)

End Function

' 重新设置每页的记录数
Function setRecordsPerPage()

     If IsNumeric(RecordsPerPage.Value) Then
         intRecordsPerPage = CInt(RecordsPerPage.Value)
         window_onload
     End If

End Function

' 显示页数信息
Function setPageCount()

  Dim intTotalRecords

     PageCount.innerHTML = getNumberOfPages(intTotalRecords)
     RecordCount.innerHTML = intTotalRecords
     CurrentPage.innerHTML = 1

End Function

' 计算总页数和总记录数
Function getNumberOfPages(intTotalRecords)

  Dim intPages

     intTotalRecords = Data.XMLDocument.selectNodes("/*/*").length
     intPages = intTotalRecords / intRecordsPerPage
     If InStr(intPages, ".") > 0 Then
         intPages = CInt(Left(intPages, InStr(intPages, "."))) + 1
     End If

     getNumberOfPages = intPages

End Function

' “下一页”的处理
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

' 处理“上一页”
Function previousPage(intPage)

  Dim strDisplay
  Dim strDateRange

     If intPage > 1 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

' “第一页”的处理
Function FirstPage()

     Style.XMLDocument.selectNodes("//@OnClick")(1).Value = "previousPage(1)"
     Style.XMLDocument.selectNodes("//@OnClick")(2).Value = "nextPage(1)"
     Style.XMLDocument.selectNodes("//xsl:for-each/@select")(1).Value = "./*[position() < " & intRecordsPerPage + 1 & " and position() > 0]"
     transform()
     setPageCount()

End Function

' “最末页”的处理
Function LastPage()

  Dim intTotalPages
  Dim intTotalRecords

     intTotalPages = getNumberOfPages(intTotalRecords)
     nextPage (intTotalPages - 1)

End Function
</Script>
</Head>
<body>
<h1>对xml+xsl实现分页排序的改进，使支持对所有数据进行排序</h1>
以往见过的利用xml+xsl来实现分页排序的基本都只能本页内排序，究其原因，简单分析如下：<p>
xml+xsl分页原理：在xsl中，遍历节点的时候，可以获取当前节点的位置，而且还能限制显示特定位置的节点，例如有18条记录，可以在xsl中设置只显示第1-6条，也可以设置只显示第7-12条，再配合客户端脚本，就可以动态改变xsl文档中控制显示指定位置节点的属性，从而实现分页（具体见代码）。不过这个有一点就是在xsl中获取的这个位置信息是xml文档中的节点位置，而不是排序后的位置；<p>
同样xml+xsl实现排序原理：xsl可以按照节点的属性来排序，我们可以通过动态改变xsl的相关属性值来达到动态排序的目的。
如果两个合起来用，却只能对当前页进行排序。<p>
参考例子：<br />
http://www.gaofan.com/web/sailflying/version2/learn/pages.xml<br />
http://www.gaofan.com/web/sailflying/version2/learn/pages.xsl<br />
http://www.gaofan.com/web/sailflying/version2/learn/paixu.xml<br />
http://www.gaofan.com/web/sailflying/version2/learn/paixu.xsl<br />
http://lucky.myrice.com/xml/xpath.html
<p>

我不知道有没有方法可以在xsl中先排序然后判断位置，不过我倒是由此想到了一个解决方法——xsl不仅可以和xml生成html，同样，也可以利用xml+xsl来生成新的xml，所以直接用一个单独的xsl来实现排序，然后和原来的xml生成一个新的排序后的xml，再利用这个排序xml来分页，就可以实现对全部数据进行排序而非当前页内的数据排序。

<p>懒得重头写，直接把<a href="http://lucky.myrice.com/xml/xpath.html" target="_blank">孟宪会之精彩世界上的一个分页例子</a>拿来一改就OK了。<br />注：ID为SortData的数据岛即为xml排序的xsl，ID为temp的数据岛为排序后的新xml。</p>

<p align="center" style="font-weight:bold;font-size:12pt;color:#0000FF;border-bottom:3px double red;padding-bottom:5px">客户关系表</p>
<XML id='Data'>
<客户关系表 xmlns:dt="urn:schemas-microsoft-com:datatypes">
  <客户><序号 dt:dt="int">01</序号><姓名>dotey</姓名><电子邮件>http://www.webuc.net</电子邮件></客户>
  <客户><序号 dt:dt="int">02</序号><姓名>孟子E章</姓名><电子邮件>mengxianhui@21cn.com</电子邮件></客户>
  <客户><序号 dt:dt="int">03</序号><姓名>宝玉</姓名><电子邮件>junminliu@msn.com</电子邮件></客户>
  <客户><序号 dt:dt="int">04</序号><姓名>http://lucky.myrice.com</姓名><电子邮件>Karry@163.net</电子邮件></客户>
  <客户><序号 dt:dt="int">05</序号><姓名>http://colorweb.go.163.com</姓名><电子邮件>vivki@sina.com</电子邮件></客户>
  <客户><序号 dt:dt="int">06</序号><姓名>Frank</姓名><电子邮件>net_lover@mengxianhui.com.cn</电子邮件></客户>
  <客户><序号 dt:dt="int">07</序号><姓名>Greg</姓名><电子邮件>meng@mengxianhui.com</电子邮件></客户>
  <客户><序号 dt:dt="int">08</序号><姓名>Harry</姓名><电子邮件>sunny@xianhui.net</电子邮件></客户>
  <客户><序号 dt:dt="int">09</序号><姓名>Ingrid</姓名><电子邮件>cathy@hotmail.com</电子邮件></客户>
  <客户><序号 dt:dt="int">10</序号><姓名>Jeff</姓名><电子邮件>your@mxh.com</电子邮件></客户>
  <客户><序号 dt:dt="int">11</序号><姓名>Kelly</姓名><电子邮件>Iloveyou@mengxianhui.com</电子邮件></客户>
  <客户><序号 dt:dt="int">12</序号><姓名>Larry</姓名><电子邮件>smilling@mengxianhui.com</电子邮件></客户>
  <客户><序号 dt:dt="int">13</序号><姓名>Mark</姓名><电子邮件>money@21cn.com</电子邮件></客户>
  <客户><序号 dt:dt="int">14</序号><姓名>Nancy</姓名><电子邮件>www@yahoo.com</电子邮件></客户>
  <客户><序号 dt:dt="int">15</序号><姓名>Peter</姓名><电子邮件>dotnet@aol.com</电子邮件></客户>
  <客户><序号 dt:dt="int">16</序号><姓名>Rachel</姓名><电子邮件>billgates@microsoft.com</电子邮件></客户>
  <客户><序号 dt:dt="int">17</序号><姓名>Seth</姓名><电子邮件>flying@yous.net</电子邮件></客户>
  <客户><序号 dt:dt="int">18</序号><姓名>Tim</姓名><电子邮件>agooyboy@lovegirl.com</电子邮件></客户>
</客户关系表>
</XML>
<XML id='SortData'>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

<xsl:template match="客户关系表">
<?xml version="1.0" encoding="GB2312"?>
<客户关系表>
<xsl:for-each select="客户">
<xsl:sort select="姓名" order="ascending"/>
<客户>
  <序号><xsl:value-of select="序号" /></序号>
  <姓名><xsl:value-of select="姓名" /></姓名>
  <电子邮件><xsl:value-of select="电子邮件" /></电子邮件>
</客户>
</xsl:for-each>
</客户关系表>
</xsl:template>

</xsl:stylesheet>
</XML>
<XML id='Style'>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="http://lucky.myrice.com" version="1.0">
  <msxsl:script language="VBScript" implements-prefix="user">
   <![CDATA[
       Function getName(node)
           getName = node.Item(0).nodeName
       End Function
   ]]>
  </msxsl:script>

  <xsl:template match="/">
   <xsl:apply-templates select="/*"/>
  </xsl:template>

  <xsl:template match="/*">
  <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>
   <Table WIDTH="100%" BORDER="0" cellpadding="0" cellspacing="1" style="font-size:11pt" bgcolor="#0099ff">
    <tr bgcolor="#FF6600" style="cursor: hand;padding:5px">
     <xsl:for-each select="./*[1]/*">
      <td align="center">
       <xsl:attribute name="onclick">
        Sort('<xsl:value-of select="user:getName(.)"/>')
       </xsl:attribute>
       <font color="#EEEEEE"><b><u><xsl:value-of select="user:getName(.)"/></u></b></font>
      </td>
     </xsl:for-each>
    </tr>
    <xsl:for-each select="./*[position() < 6 and position() > 0]">
     <tr bgcolor="#FFCCFF">
      <xsl:for-each select="./*">
       <td> <xsl:value-of select="."/></td>
      </xsl:for-each>
     </tr>
    </xsl:for-each>
   </Table>
  </xsl:template>
</xsl:stylesheet>
</XML>
<XML id="temp"/>
<div id="DisplayArea"></div>
<table border="0" width="100%" style="font-size:11pt;">
<tr>
<td align="right">【<a href="http://www.webuc.net/dotey">宝玉@webuc.net</a>】修改自：【<a href="http://lucky.myrice.com">孟宪会之精彩世界</a>】</td>
</tr>
</table>
</body>
</HTML>

要在显示出来的每一行加一个复选框，value＝序号，在邮件列加上链接，该怎么做


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	78.125ms