把XML的数据转换成多列表格形式

本文通过实际的例子来说明如何在XSL中实现对xml数据转换成完美的多列表格。
  
  在利用XSL对xml进行转换时，有时候需要把xml转换成多列的Table元素，这个问题经常会困扰许多人，如果不生成Table的话，只需要对循环中的节点进行位置取模后判断，然后用<br/>换行即可。但有时候为了用户需要和界面的美观，需要生成多行多列的Table，常用的方法是采用following-sibling进行判断，比如下面的代码：
  
  <?xml version="1.0" encoding="UTF-8"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <xsl:template match="/">
   <table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange"
   style="font-size:9pt">
   <xsl:for-each select="/Items/Item[position() mod 3 = 1]">
   <tr>
   <td width="33%" align="center" valign="middle">
   <xsl:apply-templates select="."/>
   </td>
   <td width="34%" align="center" valign="middle">
   <xsl:apply-templates select="following-sibling::Item[position() = 1]"/>
   </td>
   <td width="33%" align="center" valign="middle">
   <xsl:apply-templates select="following-sibling::Item[position() = 2]"/>
   </td>
   </tr>
   </xsl:for-each>
   </table>
   </xsl:template>
   <xsl:template match="/Items/Item">
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </xsl:template>
  </xsl:stylesheet>
  转换结果如下图所示：
  
  但是，从上面的结果图可以看出，如果数据记录不是表格列数的整数倍的时候，最后一行的最后几列不会生成出来，即在HTML里缺少<td></td>标记。
  
  要解决上面的不足，我们必须先计算要转换的记录的总数，然后计算出相差的记录数，再进行补齐。下面就对这一过程的解释。
  
  在进行这个功能之前，首先了解一个如何在XSL中实现类似for(i=0;i<n;i++)的循环，下面就是实现这一个功能的例子：
  
  <?xml version="1.0" encoding="GB2312"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <!-- 下面的三个变量可以由xml中取得，做为例子，这里直接定义了初始值 -->
   <!-- 定义初始值 -->
   <xsl:variable name="varStart" select="0"/>
   <!-- 定义结束值 -->
   <xsl:variable name="varEnd" select="35"/>
   <!-- 定义循环步长 -->
   <xsl:variable name="varStep" select="2"/>
   <xsl:template match="/">
   <xsl:call-template name="MyLoopFun">
   <xsl:with-param name="varStart" select="$varStart">
   </xsl:with-param>
   </xsl:call-template>
   </xsl:template>
   <xsl:template name="MyLoopFun">
   <xsl:param name="varStart"/>
   <xsl:if test="$varStart < $varEnd">
   <!-- 输出格式定义 -->
   <a target="_blank" href="http://xml.sz.luohuedu.net/?">
   <xsl:attribute name="title"><xsl:value-of select="$varStart"/></xsl:attribute>
   <xsl:value-of select="$varStart"/>
   </a>
   <xsl:if test="$varStart < ($varEnd - $varStep)"> , </xsl:if>
   <xsl:call-template name="MyLoopFun">
   <xsl:with-param name="varStart">
   <xsl:value-of select="$varStart + $varStep"/>
   </xsl:with-param>
   </xsl:call-template>
   </xsl:if>
   </xsl:template>
  </xsl:stylesheet>
  理解了上面的原理之后，下面就是我们最后的代码，程序已经做了注释：
  
  <?xml version="1.0" encoding="UTF-8"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <xsl:template match="/">
   <!-- 定义常量 -->
   <xsl:variable name="strTrLeft" select="'<tr>'"/>
   <xsl:variable name="strTrRight" select="'</tr>'"/>
   <!-- 计算总记录数 -->
   <xsl:variable name="nTotal" select="count(/Items/Item)"/>
   <!-- 定义列数 -->
   <xsl:variable name="nCols" select="3"/>
   <!-- 计算需要的补齐的列数 -->
   <xsl:variable name="nLefted" select="$nCols - ($nTotal mod $nCols)"/>
   <!-- 计算不需要补齐的行数 -->
   <xsl:variable name="nNotProcessedRow" select="$nTotal - ($nTotal mod $nCols)"/>
   <table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange"
   style="font-size:9pt">
   <!-- 对于不需要补齐的行数，直接输出 -->
   <xsl:for-each select="/Items/Item[position() < $nNotProcessedRow +1]">
   <xsl:if test="position() mod $nCols = 1">
   <xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/>
   </xsl:if>
   <td>
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </td>
   <xsl:if test="position() mod $nCols = 0">
   <xsl:value-of select="$strTrRight" disable-output-escaping="yes"/>
   </xsl:if>
   </xsl:for-each>
   <!-- 转换除去不需要补齐的记录的剩余记录 -->
   <xsl:if test="$nLefted != 0 and $nLefted != $nCols">
   <xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/>
   <xsl:for-each select="/Items/Item[position() >$nNotProcessedRow]">
   <td>
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </td>
   </xsl:for-each>

<!--
   如果nLefted不等于0和列数，则需要进行补齐，这里进行递归调用，需要传递的参数有两个：
   nLefted：要补齐的列数；
   nCols：表格的列数。
   -->
   <xsl:call-template name="MyFun">
   <xsl:with-param name="nLefted" select="$nLefted"/>
   <xsl:with-param name="nCols" select="$nCols"/>
   </xsl:call-template>
   <xsl:value-of select="$strTrRight" disable-output-escaping="yes"/>
   </xsl:if>
   </table>
   <p>共有<xsl:value-of select="$nTotal"/>条数据。</p>
   </xsl:template>
   <xsl:template name="MyFun">
   <xsl:param name="nLefted"/>
   <xsl:param name="nCols"/>
   <xsl:if test=" $nLefted != 0 and $nLefted != $nCols">
   <td>
   <xsl:text disable-output-escaping="yes">&nbsp;</xsl:text>
   </td>
   <xsl:call-template name="MyFun">
   <xsl:with-param name="nLefted" select="$nLefted - 1"/>
   <xsl:with-param name="nCols" select="$nCols"/>
   </xsl:call-template>
   </xsl:if>
   </xsl:template>
  </xsl:stylesheet>
  由于http://www.w3.org/1999/XSL/Transform名称控件只有IE5.5＋才支持，为了使我们的代码具有通用性，我们在服务器端进行转换，首先建立GoodLoop.aspx如下：
  
  <%@ Page Language="vb" AutoEventWireup="false" Codebehind="GoodLoop.aspx.vb"
   Inherits="aspxWeb.mengxianhui.com.GoodLoop"%>
  <%@ Import NameSpace = "System" %>
  <%@ Import NameSpace = "System.xml" %>
  <%@ Import NameSpace = "system.xml.Xsl" %>
  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  <HTML>
   <HEAD>
   <title>GoodLoop</title>
   <meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
   <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
   <meta content="JavaScript" name="vs_defaultClientScript">
   <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
   <script runat=Server>
   Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs)
   Try
   Dim xmldom As New xmlDocument()
   xmldom.Load(Server.MapPath("GoodLoop.xml"))
   Dim trans As XslTransform = New XslTransform()
   trans.Load(Server.MapPath("GoodLoop.xsl"))
   xml1.Document = xmldom
   xml1.Transform = trans
   Catch er As xmlException
   Label1.Text = er.Message
   End Try
   End Sub
   </script>
   </HEAD>
   <body MS_POSITIONING="GridLayout">
   <form id="Form1" method="post" runat="server">
   <asp:label id="Label1" runat="server"></asp:label>
   <asp:xml id="xml1" runat="server"></asp:xml></form>
   </body>
  </HTML>
  本文中所使用的xml数据样式为：GoodLoop.xml
  
  <?xml version="1.0" encoding="UTF-8"?>
  <?xml-stylesheet type="text/xsl" href="GoodLoop1.xsl"?>
  <Items>
   <Item>
   <Url>http://xml.sz.luohuedu.net</Url>
   <Title>【孟宪会之精彩世界】</Title>
   </Item>
   <Item>
   <Url>http://lucky.myrice.com/</Url>
   <Title>【孟宪会之精彩世界】</Title>
   </Item>
  ...............................
  </Items>
  转换结果如下：