Var ska jag sätta in server.htmlEncode?

2 svar · 144 visningar · startad av Rinaldo 6 dec. 2001

RinaldoMedlem sedan mars 20014 214 inlägg

Frågan6 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...?

------------------
Talet är tankens död

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??

------------------
Talet är tankens död

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)

------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)

[Redigerat av iceM2 den 07 dec 2001]