18. juni 2002 - 09:44
Der er
13 kommentarer og 2 løsninger
Indsæt HTML/ASP-kode i <textarea></textarea>
Jeg har en del problemer med at kunne poste indlæg, som indeholder HTML -eller ASP-kode i et textarea. Jeg har prøvet at sætte dette ind allernederst under </html>: <% Function EscHTML(str) NewStr = str If Not IsNull(str) Then NewStr = Replace(NewStr,"&","&") NewStr = Replace(NewStr,"<","<") NewStr = Replace(NewStr,">",">") NewStr = Replace(NewStr,Chr(34),""") End If EscHTML = NewStr End Function %> - for derefter at udskrive det med denne her: Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & EscHTML(RS("kommentar")) & "</span></td></tr>" Hvis jeg laver en test: <html> <head> <title></title> </head> <body> Test </body> </html> Får jeg udskrevet dette: Test Gode idéer ønskes :o/
Annonceindlæg fra DE-CIX
Edge computing: behandling ved kilden
Edge computing revolutionerer den måde, data behandles på, ved at bringe kapacitet og ydeevne tættere på dér, hvor der er behov for det.
15. april 2025
Du kan enten indsætte i eks. <PRE></PRE> tags eller anvende Server.HTMLEncode
Hvis jeg sætter det ind mellem <pre></pre>: Response.Write "<tr><td><span class=""tekst11""><p align=""justify""><pre>" & kommentar & "</pre></p></span></td></tr>" og skriver dette: <html> <head> <title></title> </head> <body> Test </body> </html> - så forrykker alle tabeller sig, hele siden forrykker sig....
tmceu: Server.HTMLEncode?
Server.HTMLEncode "oversætter" alle HTML tags. Eksempelvis: Response.Write Server.HTMLEncode("<BODY>Test</BODY>") Viser det i browseren som: <BODY>Test</BODY> Bliver til denne HTML kode: <BODY>Test</BODY>
Ok. Hvordan skal det f.eks. sættes ind i min Response.Write: Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>" Alt, hvad der bliver skrevet i <textarea></textarea>, skal jo kunne vises, også selvom det er HTML/ASP-kode, der bliver lagt ind.
18. juni 2002 - 13:25
#10
Jeg har prøvet med denne, men det fjerner bare alt: Response.Write "<tr><td><span class=""tekst11""><p align=""justify"">" & server.HTMLEncode(RS("kommentar")&"") & "</span></td></tr>"
18. juni 2002 - 13:49
#11
Ved disse fire linier: kommentar = RS("kommentar")&"" kommentar = server.HtmlEncode(kommentar) kommentar = replace( RS("kommentar"),vbcrLF,"<br>") Response.Write "<tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>" får jeg denne fejl, fordi replace ikke kan tage null: Microsoft VBScript runtime error '800a005e' Invalid use of Null: 'Replace' /members/debat/debatemne.asp, line 143 Linie 143: kommentar = replace( RS("kommentar"),vbcrLF,"<br>") Hvorfor sker det?
18. juni 2002 - 14:27
#12
tmceu, kan du ikke lige lægge en besked, hvis du står over, så jeg ikke venter svar fra dig?
18. juni 2002 - 14:28
#13
Forgæves venter, skulle der stå :o)
18. juni 2002 - 22:26
#14
Jeg lukker. Men ellers tak for hjælpen :o)
19. juni 2002 - 05:15
#15
Sorry er ikke på i "døgndrift" p.t. :-)
Kurser inden for grundlæggende programmering