利用 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 可以完全扔掉了。