Link

Tænker du på når du skriver til en database?

Du tænker muligvis på regular expressions...

Den her kan tage mail-addys og websites:

Function makeLinks(strText)
    Dim objReg
   
    Set objReg = New RegExp
    objReg.Global = True
    objReg.IgnoreCase = True
     
    objReg.Pattern = \"(\\bhttp\\:\\/\\/)?(\\bw{3}\\.\\S+\\.[a-z][a-z]+\\b)(\\/\\S+\\b)?(\\?\\S+\\b)?\"
    strText = objReg.Replace(strText, \"<a href=\"\"http://$2$3$4\"\" target=\"\"_blank\"\">$1$2$3$4</a>\")
   
    objReg.Pattern = \"(\\b\\S+@{1}\\S+\\.[a-z][a-z]+\\b)\"
    strText = objReg.Replace(strText, \"<a href=\"\"mailto:$1\"\">$1</a>\")
   
    Set objReg = Nothing
   
    makeLinks = strText
End Function


Bruges sådan her:

Response.Write makeLinks(tekstvariabel)

magik >> hvordan laver jeg det i denne
<%=rs(\"url\")%>

erhmm... <a href=\"http://www.enter-s.dk\" target=\"blank\">Enter-S</a> eller... ? ( ;) )

Mvh - Casper S
www.enter-s.dk

Sådan her: <%=makeLinks(rs(\"url\"))%>

makeLinks er bare en normal funktion der returnerer en streng hvor web-adresser osv er lavet til klikbare links.

Men hvis du er sikker på at det er en web-adresse du har i dit felt, kan du med fordel gøre følgende:

<a href=\"<%=rs(\"url\")%>\" target=\"_blank\"><%=rs(\"url\")%></a>

Takker for point ;)

magik  >> Hvis Urlen er
http://et.eller.andet.dk så funker det ikke
der skal www med hvorfor ?