国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

ASP處理XSLT轉換XML的實現

2019-11-18 16:26:48
字體:
來源:轉載
供稿:網友

     使用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對象了,如果需要,靈活可以修改。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 广汉市| 临高县| 琼海市| 台东市| 道真| 怀集县| 莱阳市| 周口市| 诸暨市| 镇沅| 江安县| 双辽市| 寻甸| 榆树市| 如皋市| 廉江市| 九龙坡区| 新和县| 札达县| 布拖县| 新巴尔虎右旗| 如皋市| 崇州市| 逊克县| 黄陵县| 高安市| 德格县| 淳化县| 游戏| 长乐市| 息烽县| 五指山市| 凤山县| 共和县| 讷河市| 碌曲县| 龙泉市| 信阳市| 平和县| 广宁县| 屏山县|