ASP を使用して XSLT を処理し、XML を変換するのは比較的簡単です。その考え方は、XSLTemplate オブジェクトを作成し、次に XMLDOM オブジェクトを作成し、次に、Xml ファイルと XSLT ファイルを自宅で作成し、最後に、transform メソッドを使用してインクルードします。クラス内の具体的なコードは次のとおりです。
以下は引用スニペットです。
クラスCls_Xml_Transform
PrivateInput、XSLTテンプレート
プライベート p_Output
パブリック プロパティ Get Output()
出力 = p_出力
終了プロパティ
プライベート プロパティ Let Output(ByVal strInfo)
p_Output = strInfo
終了プロパティ
Public プロパティ Let Input(ByVal vNewValue)
IsObject(vNewValue) の場合は lInput=vNewValue を設定します
終了プロパティ
Public プロパティ Let XSLTemplatefile(ByVal vNewValue)
薄暗いスタイルシート
Dim vNewValue_
vNewValue_ = vNewValue
InStr(vNewValue,":") > 0 でない場合
vNewValue = Server.MapPath(vNewValue)
終了の場合
Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate")
Set StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
StyleSheet.load vNewValue
XSLTemplate.StyleSheet=スタイルシート
終了プロパティ
パブリック SubTransform()
ディムプロシージャ
proc = XSLTemplate.createProcessor() を設定します。
proc.input=linput
proc.transform()
出力=proc.output
proc=Nothing を設定します
エンドサブ
終了クラス
使用例:
以下は引用部分です。
XMLDOM を設定 = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
XMLDOM.async = false
XMLDOM.load(Server.MapPath("bi2.xml"))
o=new Cls_IO_Transform を設定します
o.XSLTemplatefile="bi2.xsl"
o.Input=XMLDOM
o.Transform()
response.write o.Output() は
XmlDom オブジェクトを直接処理し、必要に応じて柔軟に変更できます。