Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal !
Estou precisando com urgência de um fonte, ajudar, pedaço de código qualquer coisa que me ensine como fazer para inserir código html no xml.
Estou usando o seguinte código:
<%@Language=VBScript%>
<html><body>
<%
function ntag(str)
'ntag = replace(str, "<", "<")
'ntag = replace(ntag, ">", ">")
ntag = Server.HTMLDecode(str)Private Function HTMLDecode(byVal encodedstring)
Dim tmp, i
tmp = encodedstring
tmp = Replace( tmp, "%20", " " )
tmp = Replace( tmp, "%22","""" )
tmp = Replace( tmp, """, chr(34) )
tmp = Replace( tmp, "<" , chr(60) )
tmp = Replace( tmp, ">" , chr(62) )
tmp = Replace( tmp, "&" , chr(38) )
tmp = Replace( tmp, " ", chr(32) )
For i = 1 to 255
tmp = Replace( tmp, "" & i & ";", chr( i ) )
Next
HTMLDecode = tmp
End Function
data=request.form("dtNoticia1")
resumo=request.form("resumoNoticia1")
set doc=server.createobject("microsoft.xmldom")
doc.load(server.mappath("teste.xml"))
set raiz=doc.documentElement
set registro=doc.createelement("noticia")
raiz.appendchild(registro)
set campo=doc.createelement("data")
campo.text=data
registro.appendchild(campo)
set campo=doc.createelement("resumo")
campo.text=resumo
registro.appendchild(campo)
doc.save(server.mappath("teste.xml"))
response.write "&status=" & data & "&"
%><br>
</body></html><?xml version="1.0" encoding="ISO-8859-1"?>
<noticias>
<noticia>
<data><p align="left"><font face="Tahoma" size="11" color="#333333" letterSpacing="0.000000" kerning="0"><b>23/10/2007</b></font></p></data>
<resumo><p align="justify"></p></resumo>
</noticia>
</noticias>quando é gravado no xml ele troca os simbolos < por < e > por >As funcões que estão no código são alguns testes que fiz, porém descobri que é quando é gravado no xml q ele troca os síbolos < e >O que estou fazendo é testando como gravar no xml, mas meu objetivo final é criar uma ferramenta de inclusão, alteração e exclusão de conteúdo que está inserido no xml, se alguém tiver um fonte ou algo que possa me ajudar, agradeço muito !
Meu email é matheusmelo@yahoo.com.br
Agradeço desde já a atenção de todos !
Carregando comentários...