利用XSL和ASP在线编辑XML文档
生活随笔
收集整理的這篇文章主要介紹了
利用XSL和ASP在线编辑XML文档
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
本文通過(guò)一個(gè)詳細(xì)的例子，來(lái)闡述了在線編輯XML文檔數(shù)據(jù)的方法。由于Netscape對(duì)XML的支持比較弱，因此，要實(shí)現(xiàn)跨平臺(tái)的數(shù)據(jù)交換，數(shù)據(jù)的處理必須在服務(wù)器端進(jìn)行。要編輯XML文檔，首先要做的事情就是怎樣把這些數(shù)據(jù)提取并顯示給訪問(wèn)者，XSL為我們顯示XML文件提供了一個(gè)很好的解決方案。下面的例子就是利用XSL樣式單把XML文檔顯示出來(lái)，供用戶進(jìn)行編輯，然后再把編輯后的數(shù)據(jù)提交到服務(wù)器，在服務(wù)器端進(jìn)行數(shù)據(jù)的更新。這里采用ASP（Active Server Pages）來(lái)完成我們的任務(wù)。
首先，載入我們要進(jìn)行編輯的XML文檔，利用微軟的文檔對(duì)象模型（Microsoft XMLDOM Object）和XSL，XML文檔就可以在服務(wù)器端轉(zhuǎn)換成可以在客戶端顯示的HTML文件內(nèi)容。下面先看看我們使用的XML和XSL文件是什么樣子的。
XML文件：UserData.xml
<?xml?version="1.0"?encoding="gb2312"?>
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<UserInfo>
????<Field?ID="Name"?TabOrder="1">
????????<FieldValue>Dicky</FieldValue>
????</Field>
????<Field?ID="Sex"?TabOrder="2">
????????<FieldValue>Male</FieldValue>
????</Field>
????<Field?ID="UnitName"?TabOrder="3">
????????<FieldValue>ShangHai?Ateam?Company</FieldValue>
????</Field>
????<Field?ID="Address"?TabOrder="4">
????????<FieldValue>ShangHai,ZhongShan?West?Road?1800#,Room?26A</FieldValue>
????</Field>
????<Field?ID="Tel"?TabOrder="5">
????????<FieldValue>13800138000</FieldValue>
????</Field>
????<Field?ID="EMail"?TabOrder="6">
????????<FieldValue>AppleBBS@GMail.Com</FieldValue>
????</Field>
</UserInfo>
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<xsl:stylesheet?xmlns:xsl="http://www.w3.org/TR/WD-xsl">
????<xsl:template?match="/">
????????<html>
????????????<meta?http-equiv="Content-Type"?content="text/html;?charset=gb2312"/>
????????????<body>
????????????????<form?method="post"?action="EditUserData.asp">
????????????????????<h1>Edit?UserInfo：</h1>
????????????????????<table?border="1"?cellpadding="2">
????????????????????????<xsl:for-each?select="UserInfo/Field">
????????????????????????????<tr>
????????????????????????????????<td>
????????????????????????????????????<xsl:value-of?select="@ID"/>
????????????????????????????????</td>
????????????????????????????????<td>
????????????????????????????????????<input?type="text">
????????????????????????????????????????<xsl:attribute?name="ID"><xsl:value-of?select="@ID"/></xsl:attribute>
????????????????????????????????????????<xsl:attribute?name="Name"><xsl:value-of?select="@ID"/></xsl:attribute>
????????????????????????????????????????<xsl:attribute?name="Value"><xsl:value-of?select="FieldValue"/></xsl:attribute>
????????????????????????????????????</input>
????????????????????????????????</td>
????????????????????????????</tr>
????????????????????????</xsl:for-each>
????????????????????</table>
????????????????????<br/>
????????????????????<input?type="submit"?id="btnSubmit"?name="btnSubmit"?value="Edit"/>
????????????????</form>
????????????</body>
????????</html>
????</xsl:template>
</xsl:stylesheet>
'-----------------------------------------------------------?
'定義函數(shù)?LoadXMLFile(),接收二個(gè)參數(shù)：?
'strXMLFile?-?XML?文件的路徑和文件名字?
'strXSLFilee?-?XSL?文件的路徑和文件名字?
'-----------------------------------------------------------??
Function?LoadXMLFile(strXMLFile,?strXSLFile)?
????'Declare?local?variables?
????Dim?objXML?
????Dim?objXSL?
????'實(shí)例化?XMLDOM?對(duì)象，以便載入?XML?文件。?
????Set?objXML?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objXML.Async?=?False?
????'載入?XML?文件！?
????objXML.Load(strXMLFile)?
????'實(shí)例化?XMLDOM?對(duì)象，以便載入?XSL?文件。?
????Set?objXSL?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objXSL.Async?=?False?
????'載入?XSL?文件！?
????objXSL.Load(strXSLFile)?
????'利用?XMLDOM?的?transformNode?方法，把?XSL?樣式表應(yīng)用到?XML?文檔，然后輸出到客戶端。?
????Response.Write(objXML.TransFormNode(objXSL))?
End?Function?
'------------------------------------------------------------------?
'函數(shù)?updateXML()?接收一個(gè)參數(shù)：strXMLFile?-?XML?文件的路徑和文件名。?
'------------------------------------------------------------------?
Function?UpdateXML(strXMLFile)?
????'聲明局部變量。?
????Dim?objDom?
????Dim?objRoot?
????Dim?objField?
????Dim?x?
????'實(shí)例化?XMLDOM?對(duì)象。?
????Set?objDOM?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objDom.Async?=?False?
????'載入?XML?文件。?
????objDom.Load?strXMLFile?
????'設(shè)定根元素。?
????Set?objRoot?=?objDom.DocumentElement?
????'遍歷?FORM?集合，并把提交的數(shù)據(jù)寫入?XML?文件。?
????For?x?=?1?To?Request.Form.Count?
????'檢查提交的數(shù)據(jù)是否包含按鈕。如果是，忽略此數(shù)據(jù)。?
????????If?Instr(1,Request.Form.Key(x),"btn")?=?0?Then?
????????'按照?XSL?查詢模式，建立?objField?變量，把表單的元素對(duì)應(yīng)到?XML?文檔里的相應(yīng)元素[field_value]。?
????????????Set?objField?=?objRoot.SelectSingleNode("Field[@ID='"?&?Request.Form.Key(x)?&?"']/FieldValue")?
????????????'把表單提交的數(shù)據(jù)和?XML?文檔里的節(jié)點(diǎn)值對(duì)應(yīng)起來(lái)。?
????????????objField.Text?=?Request.Form(x)?
????????End?If?
????Next?
????'保存編輯過(guò)的?XML?文件。?
????objDom.Save?strXMLFile?
????'釋放所有對(duì)對(duì)象的引用。?
????Set?objDom?=?Nothing?
????Set?objRoot?=?Nothing?
????Set?objField?=?Nothing?
????'調(diào)用?LoadXMLFile?函數(shù)，把新編輯后的?XML?文件用?UpdatedUserData.xsl?樣式單顯示到客戶端。?
????LoadXMLFile?strXMLFile,Server.MapPath("UpdatedUserData.xsl")?
End?Function?
'檢查表單是否成功提交，如提交，更新?XML?文件；否則，轉(zhuǎn)到編輯狀態(tài)。?
If?Request.Form("btnSubmit")?=?""?Then?
????LoadXMLFile?Server.MapPath("UserData.xml"),Server.MapPath("UserData.xsl")?
Else?
????UpdateXML?Server.MapPath("UserData.xml")?
End?If
%>
當(dāng)表單提交成功后，我們用UpdatedUserData.xsl來(lái)顯示我們剛剛編輯的數(shù)據(jù)。
UpdatedUserData.xsl如下:
<?xml?version="1.0"?encoding="gb2312"?>
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<xsl:stylesheet?xmlns:xsl="http://www.w3.org/TR/WD-xsl">
????<xsl:template?match="/">
????????<html>
????????????<meta?http-equiv="Content-Type"?content="text/html;?charset=gb2312"/>
????????????<body>
????????????????<h1>Updated?UserInfo：</h1>
????????????????<table?border="1"?cellpadding="2">
????????????????????<xsl:for-each?select="UserInfo/Field">
????????????????????????<tr>
????????????????????????????<td>
????????????????????????????????<xsl:value-of?select="@ID"/>
????????????????????????????</td>
????????????????????????????<td>
????????????????????????????????<xsl:value-of?select="FieldValue"/>
????????????????????????????</td>
????????????????????????</tr>
????????????????????</xsl:for-each>
????????????????</table>
????????????????<form>
????????????????????<input?type="button"?value="Go?Back"?onclick="history.go(-1)"/>
????????????????</form>
????????????</body>
????????</html>
????</xsl:template>
</xsl:stylesheet>
以上只是XML跨平臺(tái)應(yīng)用的一個(gè)簡(jiǎn)單的例子，結(jié)合具體的需求，我們可以編寫功能更強(qiáng)大的程序來(lái)完成我們更負(fù)雜的工作。所有程序在Windows 2003 En+IIS 6.0+IE6.0+MSXML3.Dll環(huán)境下調(diào)試通過(guò)。
首先，載入我們要進(jìn)行編輯的XML文檔，利用微軟的文檔對(duì)象模型（Microsoft XMLDOM Object）和XSL，XML文檔就可以在服務(wù)器端轉(zhuǎn)換成可以在客戶端顯示的HTML文件內(nèi)容。下面先看看我們使用的XML和XSL文件是什么樣子的。
XML文件：UserData.xml
<?xml?version="1.0"?encoding="gb2312"?>
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<UserInfo>
????<Field?ID="Name"?TabOrder="1">
????????<FieldValue>Dicky</FieldValue>
????</Field>
????<Field?ID="Sex"?TabOrder="2">
????????<FieldValue>Male</FieldValue>
????</Field>
????<Field?ID="UnitName"?TabOrder="3">
????????<FieldValue>ShangHai?Ateam?Company</FieldValue>
????</Field>
????<Field?ID="Address"?TabOrder="4">
????????<FieldValue>ShangHai,ZhongShan?West?Road?1800#,Room?26A</FieldValue>
????</Field>
????<Field?ID="Tel"?TabOrder="5">
????????<FieldValue>13800138000</FieldValue>
????</Field>
????<Field?ID="EMail"?TabOrder="6">
????????<FieldValue>AppleBBS@GMail.Com</FieldValue>
????</Field>
</UserInfo>
XSL文件：UserData.xsl
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<xsl:stylesheet?xmlns:xsl="http://www.w3.org/TR/WD-xsl">
????<xsl:template?match="/">
????????<html>
????????????<meta?http-equiv="Content-Type"?content="text/html;?charset=gb2312"/>
????????????<body>
????????????????<form?method="post"?action="EditUserData.asp">
????????????????????<h1>Edit?UserInfo：</h1>
????????????????????<table?border="1"?cellpadding="2">
????????????????????????<xsl:for-each?select="UserInfo/Field">
????????????????????????????<tr>
????????????????????????????????<td>
????????????????????????????????????<xsl:value-of?select="@ID"/>
????????????????????????????????</td>
????????????????????????????????<td>
????????????????????????????????????<input?type="text">
????????????????????????????????????????<xsl:attribute?name="ID"><xsl:value-of?select="@ID"/></xsl:attribute>
????????????????????????????????????????<xsl:attribute?name="Name"><xsl:value-of?select="@ID"/></xsl:attribute>
????????????????????????????????????????<xsl:attribute?name="Value"><xsl:value-of?select="FieldValue"/></xsl:attribute>
????????????????????????????????????</input>
????????????????????????????????</td>
????????????????????????????</tr>
????????????????????????</xsl:for-each>
????????????????????</table>
????????????????????<br/>
????????????????????<input?type="submit"?id="btnSubmit"?name="btnSubmit"?value="Edit"/>
????????????????</form>
????????????</body>
????????</html>
????</xsl:template>
</xsl:stylesheet>
XSL文件使用了XSL：for-each元素的來(lái)遍歷整個(gè)XML文件，XML文件里每個(gè)“field”元素的“id”屬性和HTML表單的文本輸入框的“id”和“name”相對(duì)應(yīng)。這樣，HTML表單的文本輸入框就顯示出了XML文件的元素值。此文件負(fù)責(zé)XML文檔在服務(wù)器端的轉(zhuǎn)換，以便能在各種瀏覽器上顯示。
下面是關(guān)鍵的程序，它實(shí)現(xiàn)打開和更新XML文檔的功能，并根據(jù)表單的提交與否，來(lái)決定是否進(jìn)行更新。它包含了兩個(gè)函數(shù)，loadXMLFile負(fù)責(zé)載入和轉(zhuǎn)換要顯示的XML文件；updateXML函數(shù)負(fù)責(zé)更新XML文件。
EditUserData.asp程序如下:
'-----------------------------------------------------------?
'定義函數(shù)?LoadXMLFile(),接收二個(gè)參數(shù)：?
'strXMLFile?-?XML?文件的路徑和文件名字?
'strXSLFilee?-?XSL?文件的路徑和文件名字?
'-----------------------------------------------------------??
Function?LoadXMLFile(strXMLFile,?strXSLFile)?
????'Declare?local?variables?
????Dim?objXML?
????Dim?objXSL?
????'實(shí)例化?XMLDOM?對(duì)象，以便載入?XML?文件。?
????Set?objXML?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objXML.Async?=?False?
????'載入?XML?文件！?
????objXML.Load(strXMLFile)?
????'實(shí)例化?XMLDOM?對(duì)象，以便載入?XSL?文件。?
????Set?objXSL?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objXSL.Async?=?False?
????'載入?XSL?文件！?
????objXSL.Load(strXSLFile)?
????'利用?XMLDOM?的?transformNode?方法，把?XSL?樣式表應(yīng)用到?XML?文檔，然后輸出到客戶端。?
????Response.Write(objXML.TransFormNode(objXSL))?
End?Function?
'------------------------------------------------------------------?
'函數(shù)?updateXML()?接收一個(gè)參數(shù)：strXMLFile?-?XML?文件的路徑和文件名。?
'------------------------------------------------------------------?
Function?UpdateXML(strXMLFile)?
????'聲明局部變量。?
????Dim?objDom?
????Dim?objRoot?
????Dim?objField?
????Dim?x?
????'實(shí)例化?XMLDOM?對(duì)象。?
????Set?objDOM?=?Server.CreateObject("Microsoft.XMLDOM")?
????'關(guān)掉文件異步載入模式。?
????objDom.Async?=?False?
????'載入?XML?文件。?
????objDom.Load?strXMLFile?
????'設(shè)定根元素。?
????Set?objRoot?=?objDom.DocumentElement?
????'遍歷?FORM?集合，并把提交的數(shù)據(jù)寫入?XML?文件。?
????For?x?=?1?To?Request.Form.Count?
????'檢查提交的數(shù)據(jù)是否包含按鈕。如果是，忽略此數(shù)據(jù)。?
????????If?Instr(1,Request.Form.Key(x),"btn")?=?0?Then?
????????'按照?XSL?查詢模式，建立?objField?變量，把表單的元素對(duì)應(yīng)到?XML?文檔里的相應(yīng)元素[field_value]。?
????????????Set?objField?=?objRoot.SelectSingleNode("Field[@ID='"?&?Request.Form.Key(x)?&?"']/FieldValue")?
????????????'把表單提交的數(shù)據(jù)和?XML?文檔里的節(jié)點(diǎn)值對(duì)應(yīng)起來(lái)。?
????????????objField.Text?=?Request.Form(x)?
????????End?If?
????Next?
????'保存編輯過(guò)的?XML?文件。?
????objDom.Save?strXMLFile?
????'釋放所有對(duì)對(duì)象的引用。?
????Set?objDom?=?Nothing?
????Set?objRoot?=?Nothing?
????Set?objField?=?Nothing?
????'調(diào)用?LoadXMLFile?函數(shù)，把新編輯后的?XML?文件用?UpdatedUserData.xsl?樣式單顯示到客戶端。?
????LoadXMLFile?strXMLFile,Server.MapPath("UpdatedUserData.xsl")?
End?Function?
'檢查表單是否成功提交，如提交，更新?XML?文件；否則，轉(zhuǎn)到編輯狀態(tài)。?
If?Request.Form("btnSubmit")?=?""?Then?
????LoadXMLFile?Server.MapPath("UserData.xml"),Server.MapPath("UserData.xsl")?
Else?
????UpdateXML?Server.MapPath("UserData.xml")?
End?If
%>
當(dāng)表單提交成功后，我們用UpdatedUserData.xsl來(lái)顯示我們剛剛編輯的數(shù)據(jù)。
UpdatedUserData.xsl如下:
<?xml?version="1.0"?encoding="gb2312"?>
<!--?edited?with?XMLSPY?v2004?rel.?4?U?(http://www.xmlspy.com)?by?Dicky?(Apple'S?Eden)?-->
<xsl:stylesheet?xmlns:xsl="http://www.w3.org/TR/WD-xsl">
????<xsl:template?match="/">
????????<html>
????????????<meta?http-equiv="Content-Type"?content="text/html;?charset=gb2312"/>
????????????<body>
????????????????<h1>Updated?UserInfo：</h1>
????????????????<table?border="1"?cellpadding="2">
????????????????????<xsl:for-each?select="UserInfo/Field">
????????????????????????<tr>
????????????????????????????<td>
????????????????????????????????<xsl:value-of?select="@ID"/>
????????????????????????????</td>
????????????????????????????<td>
????????????????????????????????<xsl:value-of?select="FieldValue"/>
????????????????????????????</td>
????????????????????????</tr>
????????????????????</xsl:for-each>
????????????????</table>
????????????????<form>
????????????????????<input?type="button"?value="Go?Back"?onclick="history.go(-1)"/>
????????????????</form>
????????????</body>
????????</html>
????</xsl:template>
</xsl:stylesheet>
以上只是XML跨平臺(tái)應(yīng)用的一個(gè)簡(jiǎn)單的例子，結(jié)合具體的需求，我們可以編寫功能更強(qiáng)大的程序來(lái)完成我們更負(fù)雜的工作。所有程序在Windows 2003 En+IIS 6.0+IE6.0+MSXML3.Dll環(huán)境下調(diào)試通過(guò)。
轉(zhuǎn)載于:https://www.cnblogs.com/Dicky/archive/2005/03/24/125173.html
總結(jié)
以上是生活随笔為你收集整理的利用XSL和ASP在线编辑XML文档的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： React + webpack 开发单页
- 下一篇： python之scrapy：攻克技术点A