Problemet med at skift www til
http://wwww og .dk til .dk></a> så vil der ikke være noget at klikke på da det man klikker på er imellem <a href=..> og </a>
Der findes scripts til det formål at lave klikbare links i en tekst:
Alternativt brug denne (som er vinder på
www.netcoders.dk i en konkurrance).
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1Den er lavet med string funktion og virker derfor hos b-one.
Her er en samling af de scripts som var med i konkurransen.:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1Jeg har selv brugt denne som laver www adresser om til trykbare links, den gør brug af regular expressions.
Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
objRegExpHTTP1.Global = True
objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP1.Pattern = "(http|ftp|https)(:\/\/[\w]+)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
strOutput = objRegExpHTTP1.Replace(strInput, "<a href='$1$2$3$4' target='_blank'>$1$2$3$4</a>")
objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
strOutput = objRegExpHTTP1.Replace(strOutput, " $1<a href='
http://$2$3$4' target='_blank'>$2$3$4</a>")
set objRegExpHTTP1 = Nothing
LinkString2 = strOutput
End Function
Og den kaldes sådan her:
str = "En steng som indeholder links
www.eksperten.dk som skal laves om til klikbare links."
response.write LinkString2 (str)