HtMl

http://activedeveloper.dk/aspdigital/kapitel6/remove_html.asp

svar :-)

kig her: http://www.php.net/manual/en/function.htmlentities.php

svar :-)

Du kan replace dit felt med:

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



Ralle

nak-m prøv at kigge på kategorien

Server.HTMLEncode("chattext som skal ha fjernet <html>")

Du kan vælge virus's metode og derved forsvinder <tags> HELT.
Eller du kan bruge min og derved bliver de men fx. <b>Ko</b> vil ikke give
(med fed skrift) Ko men <b>Ko</b>, altså det samme som han skrev.

jeg prøver begge metoder og så får en af jer pointene .. Tak for hjælpen...

exp-ralle: Hvad er det for noget vrøvl? Server.HTMLEncode() fjerner ikke HTML tags, men encoder tegn som f.eks. < og > (ja, de erstattes på samme måde som du selv gør vha. Replace funktionen), så browseren ikke tolker dem som værende HTML tags.

Hvis du vil havde et script som helt fjerne HTML kode om som kan opsættes til at tillade de tags du vælger så her jeg et script.

Sorry det troede jeg bare magik...

eagleeye --
D vil j gerne bare snd d til: Postmaster@chatsniksnak.dk

Dette er functionen.

TAGLIST bestemmer hvilke HTML tags som skal fjernes. Hvis du ønsker at man eks. vis kan bruge fed skrift <b> tagen kan du fjerne B; fra TAGLIST.



Function RemoveHTML( strInputText )

  TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
    "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
    "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
    "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
    "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
    "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
    "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
    "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;" 

  Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"
   
  Dim nPos1, nPos2, nPos3
  Dim strResult, strTagName, bRemove, bSearchForBlock
 
  Dim runNo, AttackLimit, strRef
 
  runNo = 1
  AttackLimit = 5
 
  strResult = strInputText
  do
    runNo = runNo + 1
    strRef = strResult
    strText = strRef
    strResult = ""
   
    nPos1 = InStr(strText, "<")
    Do While nPos1 > 0
      nPos2 = InStr(nPos1 + 1, strText, ">")
      If nPos2 > 0 Then
        strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
        strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
        nPos3 = InStr(strTagName, " ")
        If nPos3 > 0 Then
          strTagName = Left(strTagName, nPos3 - 1)
        End If
        If Left(strTagName, 1) = "/" Then
          strTagName = Mid(strTagName, 2)
          bSearchForBlock = False
        Else
          bSearchForBlock = True
        End If   
        If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
          bRemove = True
          If bSearchForBlock Then
            If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
              nPos2 = Len(strText)
              nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
              If nPos3 > 0 Then
                nPos3 = InStr(nPos3 + 1, strText, ">")
              End If
              If nPos3 > 0 Then
                nPos2 = nPos3
              End If
            End If
          End If
        Else
          bRemove = False
        End If
        If bRemove Then
          strResult = strResult & Left(strText, nPos1 - 1)
          strText = Mid(strText, nPos2 + 1)
        Else
          strResult = strResult & Left(strText, nPos1)
          strText = Mid(strText, nPos1 + 1)
        End If
      Else
        strResult = strResult & strText
        strText = ""
      End If
      nPos1 = InStr(strText, "<")
    Loop
    strResult = strResult & strText
 
  loop until (strRef = strResult) OR (runNo = AttackLimit)
 
  if (runNo >= AttackLimit) then
    strResult = "...text removed..."
  end if
  RemoveHTML = strResult
End Function

lukker spørgsmålet da egeeye ikke svare

Hmmm han du ikke se mit svar ??

03/09-2002 17:08:41

nåå sorry hvad så med dine points???

Hvis du kan bruge det så kan du oprette et nyt spørgsmål med points.. og henvise til dette.

jamen j skal ikke bruge det da j er gået i gang med noget andet ......

Hvis ikke d r i orden så skriv d lige...

Princippet er jeg imod det.. Hvis man opretter et spørgsmål så må man give points hvis man får korekte svar, også selvom man ikke skal bruge det eller selv løser det på samme tid.

kig her:  http://www.eksperten.dk/spm/261550

Når det går nu nok.... Det er bare til en anden gang.