asp下正则实现URL自动链接的一个函数

复制代码 代码如下:
Function AutoLinkURLs(strString)  
    Dim match, matches, offset, url, email, link, relnkAutoLinkURL  
    relnkAutoLinkURL = "a href=""[[%URL%]]""> [[%URLText%]]/a> "  
    If Not IsObject(regExp) Then Set regExp = New RegExp  
    regExp.Global = True  
    regExp.IgnoreCase = True  
    'Look for URLs  
    regExp.Pattern = "(((ht|f)tps?://)|(www\.))([\w-]+\.)+[\w-:]+(/[\w- ./?%#; & =]*)?"  
    Set matches = regExp.Execute(strString)  
    offset = 0  
    For each match in matches  
        url = match  
        If Left(url, 4) = "www." Then url = "http://" &  url  
        link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", url)  
        strString = Mid(strString, 1, match.FirstIndex + offset) &  link &  Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))  
        offset = offset + Len(link) - Len(match)  
    Next  
    'Look for emails  
    regExp.Pattern = "[A-Za-z0-9_+-.']+@\w+([-.]\w+)*\.\w+([-.]\w+)*"  
    Set matches = regExp.Execute(strString)  
    offset = 0  
    For Each match in matches  
        email = match  
        link = Replace(Replace(relnkAutoLinkURL, "[[%URLText%]]", match), "[[%URL%]]", "mailto:" &  email)  
        strString = Mid(strString, 1, match.FirstIndex + offset) &  link &  Mid(strString, match.FirstIndex + 1 + match.Length + offset, Len(strString))  
        offset = offset + Len(link) - Len(match)  
    Next  
    AutoLinkURLs = strString  
End Function

• 让URL只允许一些字符的正则表达式
• JS 正则表达式（学习笔记2）匹配网址url参数
• javascript 获取url参数的正则表达式(用来获取某个参数值)
• php 正则表达式提取网页超级链接url的函数
• 用Javascript正则实现url链接的解析类
• php利用正则表达式取出图片的URL
• JS验证URL函数 正则

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！