在服务器端将XML转换成HTML

以下是在服务器上转换XML文件所需要的简单源代码：

 <%
    'Load the XML
    set xml = Server.CreateObject("Microsoft.XMLDOM")
    xml.async = false
    xml.load(Server.MapPath("cd_catalog.xml"))
    'Load the XSL
    set xsl = Server.CreateObject("Microsoft.XMLDOM")
    xsl.async = false
    xsl.load(Server.MapPath("cd_catalog.xsl"))
    'Transform the file
    Response.Write(xml.transformNode(xsl))
    %>

代码的第一块创建Microsoft XML解析器(XMLDOM)的一个例示，并将XML文件装载到内存中。代码的第二块创建解析器的另一个例示，并将XSL文档装载到内存。代码的最后一行用XSL文档转换XML文档，并将结果返回浏览器。