Link i forum

Jeg har en funktion du kan bruge:

<%
Function makeLinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd

  strBuf = \"\"
  iStart = 1
  iEnd = 1
  Set objRegExp = New RegExp

  objRegExp.Pattern = \"\\b(www|http|\\S+@)\\S+\\b\"
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  Set objMatches = objRegExp.Execute(inText)
  For Each objMatch in objMatches
    iEnd = objMatch.FirstIndex
    strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
    If InStr(1, objMatch.Value, \"@\") Then
      strBuf = strBuf & GetHref(objMatch.Value, \"EMAIL\", \"_BLANK\")
    Else
      strBuf = strBuf & GetHref(objMatch.Value, \"WEB\", \"_BLANK\")
    End If
    iStart = iEnd+objMatch.Length+1
  Next
  strBuf = strBuf & Mid(inText, iStart)
  makeLinks = strBuf
End Function


Function GetHref(url, urlType, Target)
Dim strBuf

  strBuf = \"<a href=\"\"\"
  If UCase(urlType) = \"WEB\" Then
    If LCase(Left(url, 3)) = \"www\" Then
      strBuf = \"<a href=\"\"http://\" & url & \"\"\" Target=\"\"\" & _
              Target & \"\"\">\" & url & \"</a>\"
    Else
      strBuf = \"<a href=\"\"\" & url & \"\"\" Target=\"\"\" & _
              Target & \"\"\">\" & url & \"</a>\"
    End If
  ElseIf UCase(urlType) = \"EMAIL\" Then
    strBuf = \"<a href=\"\"mailto:\" & url & \"\"\" Target=\"\"\" & _
            Target & \"\"\">\" & url & \"</a>\"
  End If
 
  GetHref = strBuf

End Function
%>

Bruges sådan her:

<%=makeLinks(tekstVariabel)%>

tekstVariabel kan så f.eks. være et felt i en database.

Hmm... du skal først splitte teksten op i ord og lægge dem i et array, derefter kan du begynde at kigge på hvert enkelt ord:

For i = 0 to Ubound(arrtekst)
           
            If Mid(arrtekst(i), 1, 4) = \"www.\" then
                arrtekst(i) = \"<A href=http://\" & arrtekst(i) & \" target=_blank>\" & arrtekst(i) & \"</A>\"
            End if
           
            If Mid(arrtekst(i), 1, 7) = \"http://\" then
                arrtekst(i) = \"<A href=\" & arrtekst(i) & \" target=_blank>\" & arrtekst(i) & \"<A>\"
            End if
           
            For j = 1 to Len(arrtekst(i))
                If mid(arrtekst(i), j, 1) = \"@\" then
                    arrtekst(i) = \"<A href=mailto:\" & arrtekst(i) & \">\" & arrtekst(i) & \"</A>\"
                End if
            Next
                   
        Next

Og derefter sætte ordene sammen igen

/trier

Takker #:o)

Selv tak :)

Har også en anden, og mindre funktion du kan få, men den kan ikke tage websites, der ikke indeholder www. F.eks. http://website.dk