XSLT éditent XML

Maintenant, nous montrerons comment s'ouvrir, économiser, et éditons le dossier de XML qui est stocké sur le serveur.

Pour transformer le document de XML en forme de HTML ici nous employant XSLT. Les valeurs des éléments de XML seront écrites aux champs d'entrée de HTML sous une forme de HTML. La forme de Web de HTML est editable. Après édition des données, les données vont être soumises de nouveau au serveur et le dossier de XML sera mis à jour qui est dine par asp.

Dossier de XML et dossier de XSL

Document « tools.xml » de XML

<?xml version="1.0" encoding="ISO-8859-1"?>
<tool>
<field id="prodName">
<value>HAMMER HG2606</value>
</field>
<field id="prodNo">
<value>32456240</value>
</field>
<field id="price">
<value>$30.00</value>
</field>
</tool>

Au-dessous de est la feuille « tool.xsl » de modèle

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"><xsl:template match="/">
<html>
<body>
<form method="post" action="edittool.asp">
<h2>Tool Information (edit):</h2>
<table border="0">
<xsl:for-each select="tool/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="value" />
</xsl:attribute>
</input>
</td>
</tr>
</xsl:for-each>
</table>
<br />
<input type="submit" id="btn_sub" name="btn_sub" value="Submit" />
<input type="reset" id="btn_res" name="btn_res" value="Reset" />
</form>
</body>
</html>
</xsl:template>
</xsl:stylesheet>

Le dossier ci-dessus de XSL fait une boucle par les éléments dans le dossier de XML et crée un champ entré pour chaque élément de « champ » de XML. La valeur de l'attribut de la « identification » de l'élément de « champ » de XML est ajoutée aux attributs de « nom » et de « identification » de chaque champ d'entrée de HTML. L'élément de « valeur » de XML est ajouté à l'attribut de « valeur » de chaque champ d'entrée de HTML. Le rendement est une forme editable de HTML qui contient les valeurs à partir du dossier de XML.

Ensuite que nous avons la deuxième feuille de modèle : « tool_updated.xsl ». Ce dossier de XSL sera employé pour montrer les données mises à jour de XML. Cette feuille de modèle seulement pour une table statique de HTML, pas résultat d'élasticité sous une forme editable de HTML

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"><xsl:template match="/">
<html>
<body>
<h2>Updated Tool Information:</h2>
<table border="1">
<xsl:for-each select="tool/field">
<tr>
<td><xsl:value-of select="@id" /></td>
<td><xsl:value-of select="value" /></td>
</tr>
</xsl:for-each>
</table>
</body>
</html>
</xsl:template></xsl:stylesheet>

Dossier d'asp

La forme de HTML dans le dossier de « tool.xsl » a un attribut d'action avec une valeur « edittool.asp ».

La page de « edittool.asp » contient deux fonctions :

() La fonction loadFile charge et transforme le dossier de XML pour l'affichage
() la fonction updateFile applique les changements au dossier de XML :

<%
function loadFile(xmlfile,xslfile)
Dim xmlDoc,xslDoc'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)'Load XSL file
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)'Transform file
Response.Write(xmlDoc.transformNode(xslDoc))
end functionfunction updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)'Set the rootEl variable equal to the root element
Set rootEl = xmlDoc.documentElement'Loop through the form collection
for i = 1 To Request.Form.Count
'Eliminate button elements in the form
if instr(1,Request.Form.Key(i),"btn_")=0 then
'The selectSingleNode method queries the XML file for a
'single node that matches a query. This query requests
'the value element that is the child of a field element
'that has an id attribute which matches the current key
'value in the Form Collection. When there is a match -
'set the text property equal to the value of the current
'field in the Form Collection.
set f = rootEl.selectSingleNode("field[@id='" & _
Request.Form.Key(i) & "']/value")
f.Text = Request.Form(i)
end if
next'Save the modified XML file
xmlDoc.save xmlfile'Release all object references
set xmlDoc=nothing
set rootEl=nothing
set f=nothing'Load the modified XML file with a style sheet that
'allows the client to see the edited information
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function'If the form has been submitted update the
'XML file and display result - if not,
'transform the XML file for editing
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
else
updateFile server.MapPath("tool.xml")
end if
%>

Note : ici nous faisons la transformation et s'appliquant les changements au XML introduisent sur le serveur. C'est une solution de croix-navigateur et le client récupérera seulement le HTML du serveur - qui fonctionnera dans n'importe quel navigateur.