設為首頁 - 加入收藏 福州站長網(0591zz.Com) - 專業為廣大站長們打造最新最全的網絡創業交流平臺!
熱搜: a Android 6
當前位置: 首頁 > 教程 > 正文

ASP處理XSLT轉換XML的實現 - ASP教程

發布時間:2016-04-21 02:36 所屬欄目:[教程] 來源:網絡整理
導讀:使用ASP處理XSLT轉換XML比較簡單,思路如下:創建一個XSLTemplate的對象,再創建一個XMLDOM對象,然后在家Xml文件和XSLT文件,最后使用方法transform即可,包含
使用ASP處理XSLT轉換XML比較簡單,思路如下:創建一個XSLTemplate的對象,再創建一個XMLDOM對象,然后在家Xml文件和XSLT文件,最后使用方法transform即可,包含到類里面,具體代碼如下:

以下是引用片段:

Class Cls_Xml_Transform
  Private lInput,XSLTemplate
  Private p_Output
  Public Property Get Output()
    Output = p_Output
  End Property
  Private Property Let Output(ByVal strInfo)
    p_Output = strInfo
  End Property
  Public Property Let Input(ByVal vNewValue)
    If IsObject(vNewValue) Then Set lInput=vNewValue
  End Property
  Public Property Let XSLTemplatefile(ByVal vNewValue)
    Dim StyleSheet
    Dim vNewValue_
    vNewValue_ = vNewValue
    If Not InStr(vNewValue,":\") > 0 Then
      vNewValue = Server.MapPath(vNewValue)
    End If
    Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate")
    Set StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
    StyleSheet.load vNewValue
    XSLTemplate.StyleSheet=StyleSheet
  End Property
  Public Sub Transform()
    Dim proc
    Set proc = XSLTemplate.createProcessor()
    proc.input=linput
    proc.transform()
    Output=proc.output
    Set proc=Nothing
  End Sub
End Class

使用范例:

以下是引用片段:

Set XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
XMLDOM.async = false
XMLDOM.load(Server.MapPath("bi2.xml"))
Set o=new Cls_IO_Transform
o.XSLTemplatefile="bi2.xsl"
o.Input=XMLDOM
o.Transform()
response.write o.Output()

這里處理的直接是XmlDom對象了,如果需要,靈活可以修改。

(編輯:福州站長網 0591Zz.Com)

網友評論
推薦文章
隨機內容
大乐透中大奖绝招