Undgå HTML koder i dit forum mm.

Fundet her på exp.dk

function removeTags(s)
    dim check, start
    check = true
    s = trim(s)
    ' fjerner alle html tags
  do while check
      start = Instr(1, s , "<")
        if start >= 1 then
            if Instr(start+1, s, ">") = 0 then
            s = s & ">"
            end if
            slut = Instr(start+1, s, ">")
        ' response.write("#slut"&slut&"#"&vbCrLf)

          s = left(s, start-1) & right(s, len(s)-slut)
      else
          check = false
      end If
    loop
    removeTags = s
end function

Brug den sådanne her:

<%
function removeTags(s)
    dim check, start
    check = true
    s = trim(s)
    ' fjerner alle html tags
  do while check
      start = Instr(1, s , "<")
        if start >= 1 then
            if Instr(start+1, s, ">") = 0 then
            s = s & ">"
            end if
            slut = Instr(start+1, s, ">")
        ' response.write("#slut"&slut&"#"&vbCrLf)

          s = left(s, start-1) & right(s, len(s)-slut)
      else
          check = false
      end If
    loop
    removeTags = s
end function

' her er string variablen
strT="<br>hej Kim </td>"

'udskriver efter strT har været igennem function removeTags(s)
response.write removeTags(strT)
%>

Server objektet i ASP har en inbygget metode, der hedder HTMLEncode. Den Erstatter alt i teksten med tilsvarende HTML-entities, altså erstatter den < med &lt; & med &amp; osv...

Prøv se om du ikke bare kan nøjes med den.

Eksempel:

tekst = Server.HTMLEncode( Request.Form("artikel") )

hvilken side skal jeg indsætte den kode gizmos ? i den side hvor man udfylder tingene eller den side man kommer til for at føre det til databasen?

hvis du indsætter den på siden med databasen. Så kan du jo gøre dette:
<%
strT = request.form("din_text")

function removeTags(s)
    dim check, start
    check = true
    s = trim(s)
    ' fjerner alle html tags
  do while check
      start = Instr(1, s , "<")
        if start >= 1 then
            if Instr(start+1, s, ">") = 0 then
            s = s & ">"
            end if
            slut = Instr(start+1, s, ">")
        ' response.write("#slut"&slut&"#"&vbCrLf)

          s = left(s, start-1) & right(s, len(s)-slut)
      else
          check = false
      end If
    loop
    removeTags = s
end function

'og så køre function bagefter   
strTny = removeTags(strT)

' connect til db
' insert til db
' luk db

Det er 'strTny' det så skal ned i din DB

hvad skal jeg erstatte "din_text" med ??

og skal jeg ændre i noget?

Du kan jo også bare bruge "replace"
Eks.:
Du udskriver sikkert beskeden i forumet som: <% =rs("besked") %>.
Så kan du bare skrive:
<%
besked = rs("besked")

besked = Replace(besked, "<", "&lt;")
besked = Replace(besked, ">", "&gt;")
%>

Ups, det var et svar.

Du skal huske, at det skal stå efter:

  Do While Not rs.EOF

cyberkox > okey men hvad hvis der er mere end <% =rs("besked") %> og der også er <% =rs("afsender") %> og <% =rs("Email") %>.

kan jeg så ikke sammensætte det på en smart måde?

Dine burger skal jo skrive det de vil i et eller andet tekst felt i en form som de så sende til den side hvor teksten skal skrives ned i din databasen!
"din_text" = med det multiline tekst felt fra din form!! Ellere det brugeren har skrevet...

Skal jeg lave et eksempel?

http://www.gizom.com/remove_tag/

3355264 ->
Ja, det kan du:

<%
besked = rs("besked")
Email = rs("Email")
afsender =rs("afsender")

besked = Replace(besked, "<", "&lt;")
besked = Replace(besked, ">", "&gt;")
Email = Replace(Email, "<", "&lt;")
Email = Replace(Email, ">", "&gt;")
afsender = Replace(afsender "<", "&lt;")
afsender = Replace(afsender, ">", "&gt;")
%>

Og der virker. Jeg bruger det på:
www.friserverplads.dk/cyberkox/Tag

Prøv at skrive noget HTML kode i beskeden...

det giver ingen virkning på min database...

hvad giver ingen virkning på din database??????????????

Nej nej, det er klart.

"Replacen" finder først sted, på den side, hvor du vil udskrive beskeden, email'en og afsender'en.

<%
besked = rs("besked")
Email = rs("Email")
afsender =rs("afsender")

besked = Replace(besked, "<", "&lt;")
besked = Replace(besked, ">", "&gt;")
Email = Replace(Email, "<", "&lt;")
Email = Replace(Email, ">", "&gt;")
afsender = Replace(afsender "<", "&lt;")
afsender = Replace(afsender, ">", "&gt;")
%>

Skal stå altså stå på den side, hvor det hele udskrives...

Hallo...

Er du der ?

ICQ: 150953273

3355264 :> hvad med at svare? Vi prøver jo kun på at hjælpe dig!!!

Hallo, hvorfor svarer du ikk ?

lukker

Må jeg spørger hvorfor du lukker det.

Hold kæft hvor er du fej. Der her bliver du anmeldt for...

3355264:> Har du overhoved fattet hvad Eksperten er til for?
Jeg kan godt forstå at cyberkox melder dig! du har fået løsninger så det batter, både fra mig og så fra cyberkox.