"Finn" <trebbien@city.dk> skrev i en meddelelse
news:3d58b9ca$0$88377$edfadb0f@dspool01.news.tele.dk...
> Tak for ideerne/forslag. Men stadig delvis uløst ..........
>
>
> usLink = "<a href="& rs("url")&">" & rs("url") & "</a>"
>
> fungerer som det skal (vist et klikbart link der peger på en url-adresser,
> men mangler
http:// og jeg forsøger at bruge:
>
> If LCase(Left(Trim(rs( "url" )),7)) <> "http://" Then
> usLink = "http://" & uslink
> Else
> uslink = Trim(uslink)
> End if
>
>
> danner den ikke eet link mens skriver det som 2 resultater, nemlig http://
> som det første og dernæst indholdet af uslink
Function makeLinks(strText)
Dim objReg
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
'--- test for ordinary hyperlinks ---
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>")
'--- test for e-mail occurences ---
objReg.Pattern = "(\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
Du kalder funktionen med
response.write(makeLinks(rs("url")))
eller
linkstr=makeLinks(rs("url"))
Det virker 100% med
www.test.dk http://www.test.dk og med mailadresser, men
ikke med
http://test.dk og
http://80.197.127.5 Det håber jeg du selv kan
tilføje
Hilsen
SumSum
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.380 / Virus Database: 213 - Release Date: 24-07-2002