xml|問題|xml xmlfile = "http://myserver/catalog.xml"
xslfile = "catalog.xsl"
' 建立相關對象
Set xslDoc = server.CreateObject("MSXML2.FreeThreadedDOMDocument")
Set xmlDoc = server.CreateObject("MSXML2.DOMDocument")
' 讀取xsl檔案
xsldoc.async = False
xsldoc.resolveExternals = True
xsldoc.load server.MapPath(xslfile)
' 讀取xml檔案
xmldoc.setProperty "ServerHTTPRequest",True ' 設定ServerHTTPRequest 屬性為 True 為了通過http協議載入xml文檔
xmldoc.async = False ' 設定 async屬性為 False 關閉非同步呼叫
xmldoc.resolveExternals = True ' 設定 resolveExternals 為 True 開啟外部DTD分析
xmldoc.validateOnParse = False ' 設定 validateOnParse 為 False 允許文檔驗證
xmldoc.load xmlfile ' 讀取xml文檔
Do While (xmldoc.ReadyState < 4) ' 檢查ReadyState狀態值是否為4 ' 具體數值定義參見msxml sdk document
xmldoc.waitForResponse 10 ' 通過waitForResponse方法等待文檔完全讀取完畢 ' 如果為讀取完成，系統暫停10毫秒
Loop
' 轉換xml -> html 並輸出文檔
xmldoc.transformNodeToObject xsldoc,Response
' 清Null 物件
Set xslt = Nothing
Set xsldoc = Nothing
Set xmldoc = Nothing
