Konverterar [URL=???]???[URL] till länkar

Denna tråd har visst försvunnit. Iallafall, har börjat lära mej Regular Expression, och det tycks som om denna kod är en mycket populär kod inom Communitys:

<%
Function Free(text)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
text = Server.HTMLEncode(text)

objRegExp.Pattern = "\[.url=(&amp;quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/url\]"
text = objRegExp.Replace(text,"<a href=http://$3 target=""_blank"">$4</a>")
%>

ta bort . i [.kod]

anropa med hjälp av free("databas")