XSLT - Redigera XML

Data som lagras i XML-filer kan redigeras via en internetwebbläsare.

Öppna, redigera och spara XML

Nu kommer vi att visa hur du öppnar, redigerar och sparar XML-filer som lagras på servern.

Vi kommer att använda XSL för att konvertera XML-dokumentet till en HTML-formulär. Värdet på XML-elementet kommer att skrivas till HTML-inmatningsfältet i formuläret. Detta formulär är redigerbart. Efter redigering skickas data tillbaka till servern, och XML-filen uppdateras (denna del utförs av ASP).

XML-filer och XSL-filer

Först, titta på den XML-dokument som kommer att användas ("tool.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>

Visa XML-fil.

Sedan, titta på följande stilark("tool.xsl"):

<?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>Verktygsinformation (redigera):</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="Återställ" />
</form>
</body>
</html>
</xsl:template>
</xsl:stylesheet>

Visa XSL-fil.

Ovanstående XSL-fil kommer att genomgå element i XML-filen och skapa en inmatningsfält för varje XML "field"-element. Värdet för id-attributet i field-elementet läggs till i id- och name-attributen för varje HTML-inmatningsfält. Värdet för "value"-elementet läggs till i "value"-attributet för varje HTML-inmatningsfält. Resultatet är att man får en redigerbar HTML-formulär som innehåller värden från XML-filen.

Då har vi också en andra stilmall: "tool_updated.xsl". Denna XSL-fil kommer att användas för att visa uppdaterade XML-data. Denna stilmall skriver inte ut en redigerbar HTML-formulär, utan en statisk HTML-tabell:

<?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>Uppdaterad verktygsinformation:</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>

Visa XSL-fil.

ASP-fil

I filen "tool.xsl", värde för HTML-formulärets action-attribut är "edittool.asp" .

Sidan "edittool.asp" innehåller två funktioner: loadFile() laddar och konverterar XML-filer, updateFile() funktionen uppdaterar XML-filer:

<%
function loadFile(xmlfile,xslfile)
Dim xmlDoc,xslDoc
Ladda XML-filen
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
Ladda XSL-filen
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)
Konvertera filen
Response.Write(xmlDoc.transformNode(xslDoc))
end function
function updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i
Ladda XML-filen
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
Sätt rootEl till att vara roden
Set rootEl = xmlDoc.documentElement
Cykla igenom form-samlingen
for i = 1 To Request.Form.Count
   Ta bort elementen med knappar från formuläret
   if instr(1,Request.Form.Key(i),"btn_")=0 then
   selectSingleNode-metoden kan fråga efter en enskild nod i en XML-fil som matchar en viss fråga.
   Denna fråga kommer att begära value-elementet, vilket är ett underlement till field-elementet,
   Och detta field-element har ett id-attribut som kan matcha det aktuella key-värdet i formuläret.
   Om det finns en match, sätt text-attributet till värdet för den aktuella fältet i formuläret.
   set f = rootEl.selectSingleNode("field[@id='" & _
   Request.Form.Key(i) & "/value")
   f.Text = Request.Form(i)
   end if
next
Spara den ändrade XML-filen
xmlDoc.save xmlfile
Släpp alla objektreferenser
set xmlDoc=nothing
set rootEl=nothing
set f=nothing
Ladda en ändrad XML-fil via en stiltabell, så kan klienten se den redigerade informationen
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function
Om formuläret har skickats in, uppdatera XML-filen och visa resultaten, om det inte har skickats in, konvertera denna XML-fil för redigering
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
else
updateFile server.MapPath("tool.xml")
end if
%>

Tips:Om du inte känner till hur man skriver ASP, lär dig vårASP 教程》。

Kommentar:Vi konverterar och uppdaterar XML-filer som finns på servern. Detta är en plattformsoberoende lösning. Klienten kan endast få HTML som returneras från servern, och HTML kan köras i alla webbläsare.