Avatar billede andersasp Nybegynder
01. december 2004 - 10:17 Der er 2 kommentarer og
1 løsning

Lave www og e-mail om til klikbare links!

Hej!

Jeg har fundet nedenstående funktion som skulle kunne lave www adresser og e-mail adresser om til klikbare links. Problemet er dog at jeg ikke ved hvordan jeg får det sat ind på min side???

Håber der er nogle som kan hjælpe?

Således udskriver jeg mine mails:

gaester.Fields.Item("Kemail")

....:funktionen:: .............

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
Avatar billede cyb Nybegynder
01. december 2004 - 10:23 #1
Lik funktionen i bunden af siden (eller et andet sted) og skriv
LinkString2(gaester.Fields.Item("Kemail")) i koden
Avatar billede fennec Nybegynder
01. december 2004 - 10:29 #2
Det ser ikke ud til den ændre mail adresser til <a href=mailto:..> syntaxen. Prøv med denne i stedet:

Function LinkString(strInput)
dim arrPattern, arrReplaceString, Rx, intIndex
  arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
  "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
  "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")
  arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
  " <a href='$1$2' target='_blank'>$1$2</a> ", _
  " <a href='http://$2' target='_blank'>$2</a> ")
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  For intIndex = 0 To UBound(arrPattern)
    Rx.Pattern = arrPattern(intIndex)
    strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
  Next
  Set Rx = Nothing
  LinkString = strInput
End Function

textStreng = "Jeg kan varmt anbefale sitet http://www.eksperten.dk og også www.exp.dk . Du kan maile på mail@exp.dk"
Response.Write LinkString(textStreng)
Avatar billede andersasp Nybegynder
01. december 2004 - 11:14 #3
Agraa endelig fatter jeg det!! tusinde tak for hjælpen!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester