国产探花免费观看_亚洲丰满少妇自慰呻吟_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對象了,如果需要,靈活可以修改。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 邢台县| 西峡县| 化隆| 绥中县| 金堂县| 如东县| 阿荣旗| 广安市| 昌邑市| 民丰县| 获嘉县| 六枝特区| 云和县| 班玛县| 永济市| 义马市| 财经| 湖北省| 泸州市| 南丹县| 武威市| 宁德市| 淮阳县| 兴安县| 石首市| 龙江县| 永嘉县| 当涂县| 淮安市| 云南省| 浠水县| 静乐县| 榆林市| 临武县| 安新县| 昭平县| 浪卡子县| 余姚市| 遂川县| 岐山县| 黄骅市|