Fjerne tags ved insert i asp

Set re = New RegExp
re.Global = True
re.Pattern = "<[^>]*>"

output1 = re.Replace(input1, "")
output2 = re.Replace(input2, "")
...

Hvis du gerne vil have det vist, men ikke fortolket, kan du bruge HTMLEncode
output1 = Server.HTMLEncode(input1)
output2 = Server.HTMLEncode(input2)

Prøv evt. med denne stump kode:

function stripTags(strText)
  iPosEnd = 1
  iPos = instr(iPosEnd, strText, "<")
  do while iPos > 0
    iPosEnd = instr(iPos, strText, ">")
   
    if iPos > 1 then
      strLText = left(strText, iPos-1)
    else
      strLText = ""
    end if
   
    if len(strText) - iPosEnd > 0 then
      strRText = right(strText, len(strText) - iPosEnd)
    else
      strRText = ""
    end if
   
    strText = strLText & strRText
    iPos = instr(iPos, strText, "<")
  loop

  stripTags = strText
end function

...men regular expressions er jo altid smartere (og ganske givet hurtigere) :)

softspot:
Dvs. jeg skal bruge denne kode når jeg indsætter teksten fra db ind på siden? og ikke når den bliver lagt ind på db?

Polle007:
Jeg har svært ved at forstå hvad jeg skal gøre med den tekst, hvori skal den indsætte i min asp tekst, der indsætter i db?

Funktionen fjerner bare tags, om du vælger at gøre det før du lægger teksten i databasen eller når du henter data er op til dig. Jeg vil dog anbefale at du fjerner tags når du lægger data i databasen, hvis du ikke skal bruge dem på noget tidspunkt fremover...

Hm har gjort sådan:

strComment = Request.Form("comment")
function stripTags(strComment)
  iPosEnd = 1
  iPos = instr(iPosEnd, strComment, "<")
  do while iPos > 0
    iPosEnd = instr(iPos, strComment, ">")
   
    if iPos > 1 then
      strLComment = left(strComment, iPos-1)
    else
      strLComment = ""
    end if
   
    if len(strComment) - iPosEnd > 0 then
      strRComment = right(strComment, len(strComment) - iPosEnd)
    else
      strRComment = ""
    end if
   
    strComment = strLComment & strRComment
    iPos = instr(iPos, strComment, "<")
  loop

  stripTags = strComment
end function

strSQL = "Insert into forum ("
strSQL = strSQL & "comment, "
strSQL = strSQL & "email, "
strSQL = strSQL & "location, "
strSQL = strSQL & "name, "
strSQL = strSQL & "dato) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & strComment & "', "
strSQL = strSQL & "'" & replace(Request.Form("email"),"'","''") & "', "
strSQL = strSQL & "'" & replace(Request.Form("location"),"'","''") & "', "
strSQL = strSQL & "'" & Request.Form("name") & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "')"

Conn.Execute(strSQL)

Response.Redirect("forum.asp")


Men når jeg indrykker så tager den stadig teksten med. Hvad har jeg gjort galt?

Har selv fundet en løsning:

Function RemoveHTML(strContent)
  Do
    pos = 1
    tmpBegin = InStr(pos,strContent,"<")
    If tmpBegin > 0 Then
      pos = tmpBegin
      If LCase(mid(strContent,tmpBegin,7)) = "<script" Then
        ' Her fjernes script kode
        tmpEnd = Instr(tmpBegin,LCase(strContent),"</script>")
        strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
      ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & "%" Then
        ' Her fjernes ASP kode
        tmpEnd = Instr(tmpBegin,LCase(strContent),"%" & Chr(62))
        strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
      Else
        ' Her fjernes HTML kode
        tmpEnd = InStr(pos,strContent,">")
        If tmpEnd > 0 Then
          strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
        Else
          strContent = Left(strContent,tmpBegin-1)
          Exit Do
        End If
      End If
    Else
      Exit Do
    End If
  Loop
  RemoveHTML = strContent
End Function

tmpContent = Trim(Request.Form("comment"))

strSQL = "Insert into forum ("
strSQL = strSQL & "comment, "
strSQL = strSQL & "email, "
strSQL = strSQL & "location, "
strSQL = strSQL & "name, "
strSQL = strSQL & "dato) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Replace(RemoveHTML(tmpContent), vbCrLf, "") & "', "
strSQL = strSQL & "'" & replace(Request.Form("email"),"'","''") & "', "
strSQL = strSQL & "'" & replace(Request.Form("location"),"'","''") & "', "
strSQL = strSQL & "'" & Request.Form("name") & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "')"

Conn.Execute(strSQL)

Response.Redirect("forum.asp")

Fra http://www.eksperten.dk/spm/223312

Grunden til at koden fra 15/10-2005 21:12:25 ikke fungerede er fordi du ikke kaldte funktionen - så kan den jo ikke fjerne tags for dig ;)