Var ska jag sätta in server.htmlEncode?

RinaldoMedlem sedan mars 20014 214 inlägg

Trådstart6 dec. 2001 13:48#1

i detta för att det ska funka.

<%
Function URL(text)
dim strString

strString = server.HTMLencode(text)
 Set objRegExp = New RegExp
   objRegExp.Global = True
   objRegExp.Ignorecase = True
    objRegExp.Pattern = "(^&#0124;[^""])(http://&#0124;https://&#0124;ftp://&#0124;mailto:&#0124;file://&#0124;telnet://&#0124;gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = objRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4")
    objRegExp.Pattern = "(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = ObjRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3")
    objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
  strString = ObjRegExp.Replace(strString,"$1<a href=""mailto:$2"">$2</a>")
      objRegExp.Pattern = "\[B\]"
  strString = ObjRegExp.Replace(strString,"<B>")
        objRegExp.Pattern = "\[/B\]"
  strString = ObjRegExp.Replace(strString,"</B>")
            objRegExp.Pattern = "\[I\]"
  strString = ObjRegExp.Replace(strString,"<I>")
          objRegExp.Pattern = "\[/I\]"
  strString = ObjRegExp.Replace(strString,"</I>")
        objRegExp.Pattern = "\[BIG\]"
  strString = ObjRegExp.Replace(strString,"<BIG>")
        objRegExp.Pattern = "\[/BIG\]"
  strString = ObjRegExp.Replace(strString,"</BIG>")
 URL=strString
end function

response.write " "&URL("http://www.spray.se [b]sasd[/b]<"a href=sadas.html">asdsad</a>")&" "
%>

NÄr man har fnuttarna runt länken som jag vill avkoda så funkar det inte. Var ska jag sätta sakerna så det funkar...?

RinaldoMedlem sedan mars 20014 214 inlägg

7 dec. 2001 14:01#2

Någon som vet vad som ska fixas för att HTML encode ska funka samt redbrytning??

iceM2Medlem sedan mars 2001243 inlägg

7 dec. 2001 14:26#3

Hade samma problem om jag nu förstår dig rätt dvs... Så här löste jag det:

Först kör du HTML encode på strängen, sedan kör du funktionen för att skapa en länk av den, därefter kör du funktionen för att sätta in BR...
Det fungerar perfekt för mig att göra på detta viset, dvs inga buggar uppstår.

Min lösning ser ut så här:
strKommentar = objRS("kommentar")
strKommentar = HTMLtecken(strKommentar)
strKommentar = URLify(strKommentar, "new_win")
strKommentar = BR(strKommentar)