Hvordan identifisere link i tekst?

Function HTMLDecode(strInput)
    strInput = Replace(strInput, """, Chr(34))
    strInput = Replace(strInput, "&lt;", "<")
    strInput = Replace(strInput, "&gt;", ">")
    strInput = Replace(strInput, "&amp;", "&")

    If InStr(strInput, "&#") Then
        Do
            Index = InStr(strInput, "&#")
            If Index = 0 Then Exit Do
            EndIndex = InStr(Index, strInput, ";")
            If EndIndex = 0 Then Exit Do

            strChar = Mid(strInput, Index, (EndIndex - Index) + 1)
            strCChar = Mid(strChar, 3, Len(strChar) - 3)
            If Not Len(strCChar) > 3 And IsNumeric(strCChar) Then
                If Asc(strCChar) > -1 And Asc(strCChar) < 256 Then strCChar = Chr(CInt(strCChar)) Else strCChar = ""
            End If

            strInput = Replace(strInput, strChar, strCChar)
        Loop
    End If

    HTMLDecode = strInput
End Function

du bruger den ligesom Server.HTMLEncode():

strStreng = HTMLDecode(strStreng)

//>Rune

Du skal havde en function som kan lave links i tekst om til klikbare links:

Der har været en konkurrence på www.netkoders.dk og vinder script er her:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1


Jeg bruger selv denne som laver www adresse samt email adresse om til trykbare links.


Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True

strOutput = objRegExpHTTP1.Replace(strInput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
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)

Tak for hjælpen