自动识别HTML的标记替换连接

207 阅读 0 评论 137 点赞

我是靠谱客的博主繁荣唇膏，这篇文章主要介绍自动识别HTML的标记替换连接，现在分享给大家，希望可以做个参考。

复制代码代码如下:

<% 
Function SenFe_UbbCode(sContent) 
    Dim TempReg 
    Set TempReg = New RegExp 
    With TempReg 
        .IgnoreCase = True 
        .Global = True 
        '自动识别网址 
        If InStr(Lcase(sContent),"http://")>0 Then 
            .Pattern = "(^|[^<=""])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)" 
            sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>") 
        End If 
        '自动识别www等开头的网址 
        If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then 
            .Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)" 
            sContent = .Replace(sContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>") 
        End If 
    End With 
    Set TempReg = Nothing 
    SenFe_UbbCode = sContent 
End Function 
%> 