test.asp

来自「《SVG开发实践》源代码」· ASP 代码 · 共 20 行

<%@ Language="VBScript"%>
<%

Response.Clear
Response.Buffer = true
Dim xmlDom, xslDom, strResult
Set xmlDom = Server.CreateObject("Msxml2.DOMDocument")
Set xslDom = Server.CreateObject("Msxml2.FreeThreadedDOMDocument")
xmlDom.async = False
xslDom.async = False

xmlDom.load Server.MapPath("Data.xml")
xslDom.load Server.MapPath("Bar.xsl")

Response.ContentType = "image/svg+xml"

strResult = xmlDom.transformNode(xslDom)
strResult = Replace(strResult,"UTF-16","UTF-8")
Response.Write strResult
%>