<%@LANGUAGE="VBSCRIPT"%>
<%
dim xmldoc,xsldoc,result
'创建DOMDocument对象实例xmldoc
'将使用xmldoc来加载需要转换的XML文档
set xmldoc=Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(Server.MapPath("test.xml")
'创建DOMDocument对象实例xsldoc
'将使用xsldoc来加载转换XML文档使用的样式单
set xsldoc=Server.CreateObject("Microsoft.XMLDOM")
xsldoc.async=false
xsldoc.load(Server.MapPath("test.xsl")