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 HP
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