Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gamefe

Mostrar html inserido no Mysql

Por , em ASP Clássico

Recommended Posts

gamefe    0

gamefe
Postado

Pessoal, tenho um campo que se chama "corpo" que podem ou não conter códigos em HTML. Só que quando recupero as informações de tal campo inserido no bd com o comando <%=objRS("corpo")%>, o html aparece como texto normal, inclusive com os <p></p>...

 

Agora minha dúvida é como conseguir mostrar este código html como html mesmo e não como texto?

 

Agradecido pela ajuda!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Após ler o registro, acesse o código fonte da página e veja como está sendo gravado.

 

Por exemplo, se você estiver substituindo os caracteres <> por HTML Enties, quando ler o registro, eles não serão convertidos em <> para html, no caso <p> será <p> e será considerado parte do texto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode criar seu código HTML no próprio ASP. ou também dar um replace nas tags HTML, para srrem substituidas ,quando gravar ou exibir na tela:

 

<%
AbrindoASP = chr(60) & "%"
FechandoASP = "%" & chr(62)
Abreaspas = chr(34) 
Fechaaspas = chr(148)
' criamos o objecto para lidar com os ficheiros
set fso = CreateObject ("Scripting.FileSystemObject")
' criamos o objecto que vai ser usado para a criação dos ficheiros
set f = fso.CreateTextFile(Server.Mappath ("eventos" &"\" &"exemplo2.asp"), True)
' agora vamos meter algo lá dento

f.WriteLine ( "<html> <head> </head> <body>")
f.WriteLine AbrindoASP & "DIM FSO, strCaminho, strPrincipal, strArquivos, xx"
f.WriteLine ("strCaminho = "  & Abreaspas&   "imagens/" & Abreaspas)
f.WriteLine "Set FSO = Server.CreateObject" & "("  & Abreaspas & "Scripting.FileSystemObject"  & 

abreaspas & ")"
f.WriteLine "Set strPrincipal = FSO.GetFolder(server.mappath(strCaminho))"
f.WriteLine "Set strArquivos = strprincipal.Files"
f.WriteLine "IF strArquivos.count=0 then" & FechandoASP
f.WriteLine "Não existem imagens disponiveis"
f.WriteLine  AbrindoASP & "else" & FechandoASP
f.WriteLine "<%DIM strArq"
f.WriteLine "FOR EACH strArq IN strArquivos "
f.WriteLine "if strArq.name=" & Abreaspas & "Thumbs.db" & Abreaspas &  "then" & FechandoASP 
f.WriteLine  AbrindoASP & "else" & FechandoASP
f.WriteLine "<img src=" & Abreaspas & AbrindoASP & "=strCaminho&strArq.name"& FechandoASP 

& Abreaspas & ">" & "<br>"
f.WriteLine AbrindoASP & "end if" & FechandoASP
f.WriteLine AbrindoASP & "NEXT" & FechandoASP
f.WriteLine AbrindoASP & "end if" & FechandoASP
f.WriteLine "</body> </html>"
' fechamos o ficheiro

f.close

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito