problemer med at finde link udfra db udtræk
Hej venner,Jeg har en side hvor man administrere det igennem en webeditor.. Man skriver alle mulige tekst osv. og det bliver så gemt i databasen..
problemet er at indholdet bliver hentet i en iframe <=%rs("indhold")%>så jeg desværre ikke har mulighed for at rediger i links som er tilføjet i teksten så den kan åbne en ny vindue..
Jeg har så prøvet mig med den nedenstående kode der hjælper med at finde link udfra et db udtræk og laver dem om.. Meeen, der er ikke noget problemer med at finde links, men når den så linker den vider tilføjer den noget ekstra kode i linket så siden ikke bliver vist.. (altså noget i stil med http://www.dr.dk/</font></p> )
koden er sikkert noget der bliver tilføjet igennem webeditoren.. så jeg ved ikke hvad jeg kan gøre ved problemet..
er der nogle der har en god ide/løsningsforslag?? :)
kode->
<%
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")
Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
LinkString2 = strOutput
End Function
%>
