Cómo crear un XML desde ASP
Un archivo XML puede ser creado
fácilmente desde cualquier editor de texto, hasta Notepad. Pero, ¿que hacemos cuando
necesitamos generarlo dinámicamente?
Si no necesitamos guardar una copia en
disco duro, podemos simplemente enviar el contenido XML desde nuestra página ASP,
estableciendo antes el tipo de contenido a enviar como XML, como en el siguiente ejemplo:
<%
Response.ContentType="text/xml"
Response.Write("<?xml version='1.0' ?>")
Response.Write("<nota>")
Response.Write("<de>Jorge</de>")
Response.Write("<a>Jose</a>")
Response.Write("<mensaje>Hola!</mensaje>")
Response.Write("</nota>")
%>
La razón mas común para generar un XML
dinámicamente es que necesitamos extraer datos desde una base de datos, como lo ilustra
el siguiente ejemplo:
<%
Response.ContentType = "text/xml"
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0;"
conn.open server.mappath("BaseDeDatos.mdb")
sql="select nombre, apellido from Clientes"
set rs = Conn.Execute(sql)
rs.MoveFirst()
response.write("<?xml version='1.0' ?>")
response.write("<clientes>")
while (not rs.EOF)
response.write("<cliente>")
response.write("<nombre>" & rs("nombre") &
"</nombre>")
response.write("<apellido>" & rs("apellido") &
"</apellido>")
response.write("</cliente>")
rs.MoveNext()
wend
rs.close()
conn.close()
response.write("</clientes>")
%>
Finalmente, si lo que necesitamos es
grabar el archivo XML en disco duro, podemos hacerlo con el objeto Microsoft.XMLDOM:
<%
Dim objDom
Dim objRaiz
Dim objHijo1
Dim objHijo2
Dim objCabecera
'instanciamos el XMLDOM
Set objDom = Server.CreateObject("Microsoft.XMLDOM")
'instanciamos el elemento raiz y lo agregamos al objeto XMLDOM
Set objRaiz = objDom.createElement("ElementoRaiz")
objDom.appendChild objRaiz
'instanciamos el elemento Hijo1 y lo agregamos al elemento raiz
Set objHijo1 = objDom.createElement("childElement1")
objRaiz.appendChild objHijo1
'instanciamos el elemento Hijo2 y lo agregamos al elemento raiz
Set objHijo2 = objDom.createElement("childElement2")
objRaiz.appendChild objHijo2
'instanciamos la cabecera
Set objCabecera =
objDom.createProcessingInstruction("xml","version='1.0'")
'agregamos la cabecera antes del elemento raiz
bjDom.insertBefore objCabecera, objDom.childNodes(0)
'finalmente grabamos el XML en disco duro
objDom.Save "c:\MiArchivoXML.xml"
%>
Así hemos revisado las distintas formas
de generar XML desde ASP. En próximas entregas veremos como manipular nodos con el objeto
XMLDOM.
|
