<%@ language=VBScript %>
<%
  '定義使用的變量
  dim xmldoc,xsldoc,result
  
  '創(chuàng)建DOMDocument對(duì)象實(shí)例xmldoc
  '將使用xmldoc來(lái)加載需要轉(zhuǎn)換的XML文檔
  set  xmldoc=Server.createObject("Microsoft.XMLDOM")
  
  '設(shè)置并不同步加載XML文檔
  xmldoc.async=false
  
  '加載XML文檔
  xmldoc.load(Server.MapPath("xmlsrc.xml"))
  
  '判斷加載的XML文檔是否有錯(cuò)，有則輸出錯(cuò)誤原因
  if (xmldoc.parseError.errorCode<>0) then
    Response.write("發(fā)生錯(cuò)誤："+xmldoc.parseError.reason)
	Response.End
  end if
 
  '創(chuàng)建DOMDocument對(duì)象實(shí)例xsldoc
  '將使用xsldoc來(lái)加載轉(zhuǎn)換XML文檔使用的樣式單
  set xsldoc=Server.createObject("Microsoft.XMLDOM")
  xsldoc.async=false
  
  '加載樣式單
  xsldoc.load(Server.MapPath("xslsrc.xsl"))
  
  '判斷樣式單中是否有錯(cuò)，有則輸出出錯(cuò)原因
  if(xsldoc.parseError.errorCode<>0) then
    Response.write("發(fā)生錯(cuò)誤："+xsldoc.parseError.reason)
	Response.End
  end if
  
  '使用樣式單轉(zhuǎn)換XML文檔
  result=xmldoc.transformNode(xsldoc)
  
  '輸出轉(zhuǎn)換結(jié)果
  Response.write(result)
 %>