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=>        '*************************************************************** 
        '链接自动设置 
        '*************************************************************** 
        '======根据要求再添加协议名称======= 
        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=>        Next 
        '*************************************************************** 
    End With 
    Set RE = Nothing 
    ToLink = strContent 
End Function 
%> 

上一个：ASP vbs 代码大小写规范
下一个：ASP,vbs正则轮翻在文章段落后加上网址等内容