利用 Xml Literal 功能复制一段 Xml

     Function  CopyXml( ByVal  element  As  XElement)
         Dim  xml  =   << % =  element.Name % >   < % =  element.Attributes % >>
                       < % =  From x  In  element.Nodes _
                          Where x.NodeType  <>  System.Xml.XmlNodeType.Element _
                           Select  x % >
                       < % =  From x  In  element.Elements % >
                   </>
         Return  xml
     End Function

这个例子的目的是练习如何进行 Xml 文档转换，以替代以前 xslt 的功能。
在 <%= %> 中可以嵌入递归调用，这样就能做任意层次的文档转换，xslt 可以完全扔掉了。