Säker forumkod, funkar ej

[David Löwenstein]

Jag har funnit följande script, på Webforum.nu

 

 

 

kod:--------------------------------------------------------------------------------

'Fixa citat, kod, gör länkar av http:// och www, plus lite till

Dim objRE

 

Function FCode(str)

 

str = Replace(str,"<","&lt;")

str = Replace(str,VbCrLf,"<br />")

 

 

Set objRE = New regexp

objRE.Global = true

objRE.IgnoreCase = true

 

 

'start citering

objRE.Pattern = "\[citat=(.*?)](\w\s)*"

str = objRE.Replace(str,"<br />[citat=$1]")

 

objRE.Pattern = "\[citat=(.*?)]"

str = objRE.Replace(str,"<blockquote><b>$1</b> skrev:<hr /><span class=""citat"">")

 

objRE.Pattern = "\[citat\](\w[åäö]*\s[åäö]*)*"

str = objRE.Replace(str,"<blockquote><br /><span class=""cit"">Citat:</span><hr /><span class=""citat"">$1")

 

objRE.Pattern = "\[/citat\]"

str = objRE.Replace(str,"</span><hr /></blockquote>")

'slut citering

 

 

 

'start kod

objRE.Pattern = "\[kod\]"

str = objRE.Replace(str,"<blockquote><span class=""kod"">Kod:<hr />")

 

objRE.Pattern = "\[/kod\]"

str = objRE.Replace(str,"<hr /></span></blockquote>")

'slut kod

 

 

objRE.Pattern = "\[(b|/b|i|/i|u|/u)\]"

str = objRE.Replace(str,"<$1>")

 

'fixa länkar och e-postadresser

objRE.Pattern = "(www.[^ ]*[a-z])|(http://[^ ]*[a-z])"

str = objRE.Replace(str,"<a href=""$1$2"" target=""_blank"">$1$2</a>")

 

'buggfixningar

str = Replace(str,"""www","""http://www")

str = Replace(str,"""http://www""","""www""")

 

str = Replace(str,"<br""","""")

str = Replace(str,"<br</a> />","</a><br />")

 

str = Replace(str,"</span><hr""","""")

str = Replace(str,"</span><hr</a> />","</a></span><hr />")

 

str = Replace(str,"<blockquote><span""","""")

str = Replace(str,"<blockquote><span</a>","</a><span")

str = Replace(str,"</b</a>>","</b>")

'slut

 

 

objRE.Pattern = "([\w~\-\.]+@[\w~\-\.]+[a-z])"

str = objRE.Replace(str,"<a href=""mailto:$1"">$1</a>")

'slut länkar och e-postadresser

 

Set objRE = Nothing

 

Fcode = str

End Function

'slut

 

--------------------------------------------------------------------------------

 

 

Jag anropar det för att visa inlägg från ett forum.

Mitt problem är att det inte fungerar då man skrivit in länkar i forumet med efterföljande parametrar som tex http://www.cms-internet.com/carcare/Shownyhet.asp?id=46

 

Titta gärna på hur den sidan ser ut så förstår ni.

Parametrarna i länken hänger inte med och blir klickbara...

 

Någon som har tips?

 

MvH

 

David

 

[Meme]

Nu är inte jag någon regexp expert men spontant känns det som problemet ligger här:

 

'fixa länkar och e-postadresser

objRE.Pattern = "(www.[^ ]*[a-z])|(http://[^ ]*[a-z])"

 

Den måste ju tillåta alla tecken som är tillåtna i en url, dvs tex 0-9 och =

 

Pröva med:

 

'fixa länkar och e-postadresser

objRE.Pattern = "(www.[^ ]*[a-z0-9=])|(http://[^ ]*[a-z0-9=])"

 

 

[inlägget ändrat 2005-02-04 19:10:33 av Meme]