Just nu i M3-nätverket
Jump to content

Säker forumkod, funkar ej


David Löwenstein

Recommended Posts

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

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...