XML/XSL请求

Posted 2021-02-27

<%
	dim xslDoc, xmlDoc
 
	set xmlDoc=server.CreateObject("Msxml2.FreeThreadedDOMDocument.3.0")
	set xslDoc=server.CreateObject("Msxml2.FreeThreadedDOMDocument.3.0")
 
	xmldoc.async = false
	xslDoc.async = false
 
	xmlDoc.load server.mapPath("unimac_models.xml")
	xslDoc.load server.mapPath(strXSLFile)
 
	Set template = Server.CreateObject("MSXML2.XSLTemplate.3.0") 
	Set template.stylesheet = xslDoc
	Set proc = template.createProcessor  
 
	proc.input = xmlDoc 
 
	proc.addParameter "modelid", strModel  
	proc.addParameter "seriesid", strSeries    
 
	response.Charset = "UTF-8"
	proc.output = response
	proc.transform 
%>