Jrbaggio’s Blog

createNode asp – ASP e DOM

Neste exemplo básico trabalhando com DOM e ASP 3, adicionando nós dinamicamente com “DOM” e setamos valores para os “nó”s. Uma maneira geral de como utilizar os principais DOM: createNode,setAttribute,appendChild

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Criar Nós Dinamicamente com ASP
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Declaração de variáveis
Dim objXMLDoc
Dim objNODE
Dim objROOT
'Setando Objecto para manipulação XML
Set objXMLDoc = CreateObject("Msxml2.DOMDocument.3.0")
' Cria Elementos no XML
Set objROOT = objXMLDoc.createNode("element", "ROOT", ""& vbCrLf)
Set objCLIE = objXMLDoc.createNode("element", "CLIENTE", ""& vbCrLf)
Set objNODE = objXMLDoc.createNode("element", "DADOS", ""& vbCrLf)
' Cria atributo
objNODE.setAttribute "NIVELCMMI", "3"
objNODE.setAttribute "EMPRESA", "BAGGIO SOLUTIONS"
objNODE.setAttribute "ENDERECO", "RUA TAL, 9000"
objNODE.setAttribute "CIDADE", "LONDRINA"
objNODE.setAttribute "ESTADO", "PARANA"
objNODE.setAttribute "SITE", "http://www.homemdocampo.com.br"
' Cria atributo para objCLIE
objCLIE.setAttribute "CODIGO","123456"
' Atribui Nós
'observe na última linha que o objROOT recebeu seus filhos agora será incluido no objeto: objXMLDoc
'objROOT recebe appendChild objCLIE (e) objCLIE recebe appendChild objNODE

objROOT.appendChild(objCLIE)
objCLIE.appendChild(objNODE)
objXMLDoc.appendChild(objROOT)
'cabecalho
cabecalho = "<!--?xml version=""1.0"" encoding=""iso-8859-1"" ?-->"
'Se precisar visualizar como ficou a criação dos Nós.
Response.Write("<textarea style="width: 80%; height: 200px; background: ffffcc;">"& cabecalho & vbCrLf& objXMLDoc.xml &"</textarea>")
'Destrói objetos
Set objROOT = Nothing
Set objXMLDoc = Nothing
Set objNODE = Nothing

%>