繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP基础 >> ASP实现将XSLT转换XML实例源代码

ASP实现将XSLT转换XML实例源代码

2005-11-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:ASP实现将XSLT转换XML实例源代码:创建一个XSLTemplate的对象,再创建一个XMLDOM对象,然后在家Xml文件和XSLT文件,最后使用方法transform即可,包含到类里面,具体代码如下: 以下是引用片段: Class Cls_Xml_T...

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对象了,如果需要,灵活可以修改。

责任编辑:admin
相关文章