以下是在服务器上转换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文档，并将结果返回浏览器。