Spær for html font i formularfelter

Er det kun <FONT..> du vil have blokeret ?

Ja font og farver

Dvs. ikke alle html koder ?

Hm, jo måske er det det bedste, hvad er nemmest?

Noget nær, ved udtræk fra db:

besked = Replace(besked, "<font", "&lt;font")

Så blir font i hvert fald ikke udskrevet

Kan man fjerner alle html koder og samtidig lave linieskift ved return?

Ellers kan du bare sige:

besked = Replace(besked, "<", "&lt;")

"<" åbner jo en html kode, men da den blir erstattet af &lt; som er hmtl-koden for <, ja, så er det ikke længere nogen html-koden.. Forvirret :D ?

Linjeskift:

besked = Replace(besked, vbCrLf, "<BR>")

okay :-) gider du forklare mig hvordan koden skal læses/virker?

og hvordan sættes koden ind i udtrækket?

rs("besked") = besked = Replace(besked, vbCrLf, "<BR>")    eller??

Når du udtrækker fra databasen, så får du fx rs("besked").

Dernæst starter du med at sige:
besked = rs("besked")

Så erstatter du linjeskift i db til htmlkoden <br>
besked = Replace(besked, vbCrLf, "<BR>")

og gør så man ikke kan bruge HMTL koder, ved at ændre HTML-kodernes start-tag:
besked = Replace(besked, "<", "&lt;")

Dette:  besked = Replace(besked, "<", "&lt;")
Fjerne ikke HTML tages det disabler dem bare så kommer de til at stå i browseren som læsbare tags. Eks hvis man skriver <b>fed</b> vil det også stå i browseren. Hvis det er det man ønsker kan man i princippet også bruge funktionen Server.HTMLencode:

besked = Server.HTMLencode(besked)


I dette spørgsmål er en funktion som fjerne tags fra teksten så der kun er teksten tilage:
http://www.eksperten.dk/spm/290551

Eagleeye, You're The Man ;)

Tak for svarene, men faktisk er det nok bare at disable dem, så besked = Server.HTMLencode(besked) er nok det?

Hvordan så bruge:
besked = Server.HTMLencode(besked) og linieskift?

Linjeskift ska du bare bruge:
besked = Replace(besked, vbCrLf, "<BR>")

Jo husk vbCrLf replaces efter <br> eller laves disables <br> og vises som teskt :)

koden vil blive:

beksed = "bla bla bla bla.." 'evt. fra database eler form felt
besked = Server.HTMLencode(besked)
besked = Replace(besked, vbCrLf, "<BR>")

hmm jeg ville skriv: husk at replace <br> til vbCrLf efter Server.HTMLencode ....

Okay rigtig mange tak for hjælpen :)

Nå min bror var logget ind. så prøver igen, mange tak for hjælpen :)

Vedr. linieskift, gør jeg således:

beskrivelse = rs("beskrivelse")
beskrivelse = replace(beskrivelse, vbCrLf, "<BR>")
response.write Server.HTMLencode("" & beskrivelse & "")

Det virker bare ikke, hvad kan der være galt?

Husk at bruger HTMLencode før du laver linie skift ellers disables <br> også :)

beskrivelse = rs("beskrivelse")
beskrivelse = Server.HTMLencode(beskrivelse)
beskrivelse = replace(beskrivelse, vbCrLf, "<BR>")
response.write beskrivelse

Arh okay prøver :-)

og har du nogle "<br>" i teksten som skal være linie skift i browseren er du nød til at konvertere dem til vbCrLf inden HTMLencode, også tilbage til "<br>" igen :)

Hvis man laver alm. linieskift i et formularfelt, genereres så ikke vbCrLf automatisk?

Jo

Tak for hjælpen :-)

Svar = points