ASP为字符串中的网址自动加上链接

<%
"字段内网址加上联接。
Function ToLink（Str）
    Dim RE "正则表达式对象     Dim strContent
    If IsNull（Str） Then Str = ""
    Set RE = New RegExp "创建正则表达式对象
    With RE
        .Global = True "搜索应用于整个字符串
        .IgnoreCase = True "搜索不区分大小写的
        strContent = Str
        "***************************************************************
        "邮件地址链接自动设置
        "***************************************************************
        .Pattern = "（[w]*）@（[w.]*）"
        strContent = .Replace（strContent, "<A Href="mailto:$1@$2">$1@$2</A> "）
        "***************************************************************
        "链接自动设置
        "***************************************************************
        "======根据要求再添加协议名称=======
        Dim D（3）, I
        D（0） = "http"
        D（1） = "ftp"
        D（2） = "news"
        D（3） = "mms"
        "===================================
        For I = 0 To UBound（D）
            .Pattern = D（I） + "://（[w.]*）"
            strContent = .Replace（strContent, "<A Href="" + D（I） + "://$1" target=_blank>" + D（I） + "://$1</A> "）
        Next
        "***************************************************************
    End With
    Set RE = Nothing
    ToLink = strContent
End Function

%>