XSLT editam XML

Agora, n�s mostraremos como abrir, excepto, e editamos a lima de XML que � armazenada no usu�rio.

Para transformar aqui o original de XML em um formul�rio do HTML n�s que usamos XSLT. Os valores de elementos de XML ser�o escritos aos campos da entrada do HTML em um formul�rio do HTML. O formul�rio da correia fotorreceptora do HTML � editable. Ap�s ter editado os dados, os dados est�o indo ser submetidos para tr�s ao usu�rio e a lima de XML ser� updated que � janta pelo ASP.

Lima de XML e lima de XSL

Original �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>

Abaixo est� a folha �tool.xsl� do estilo

<?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>

A lima acima de XSL d� la�os atrav�s dos elementos na lima de XML e cr�a um campo input para cada elemento do �campo� de XML. O valor do atributo da �identifica��o� do elemento do �campo� de XML � adicionado aos atributos do �nome� e da �identifica��o� de cada campo da entrada do HTML. O elemento do �valor� de XML � adicionado ao atributo do �valor� de cada campo da entrada do HTML. A sa�da � um formul�rio editable do HTML que contenha os valores da lima de XML.

Em seguida que n�s temos a segunda folha do estilo: �tool_updated.xsl�. Esta lima de XSL ser� usada indicar os dados updated de XML. Esta folha do estilo somente para uma tabela de est�tica do HTML, n�o resultado da elasticidade em um formul�rio editable do 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>

Lima do ASP

O formul�rio do HTML na lima de �tool.xsl� tem um atributo da a��o com um valor �edittool.asp�.

A p�gina de �edittool.asp� contem duas fun��es:

() A fun��o loadFile carrega e transforma a lima de XML para a exposi��o
() a fun��o updateFile aplica as mudan�as � lima 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
%>

Nota: aqui n�s estamos fazendo a transforma��o e aplicando-se as mudan�as ao XML arquivam no usu�rio. Esta � uma solu��o do cruz-browser e o cliente come�ar� somente o HTML para tr�s do usu�rio - que trabalhar� em todo o browser.