首页 / 正则表达式 / 自动识别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
%>



<script language="vbscript">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$2"）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$2"）End If End With Set TempReg = Nothing SenFe_UbbCode = sContentEnd Function</script><textarea name="scode" cols="50" rows="20"></textarea><input type="button" value="替换" onclick="vbscript:document.getElementById（"scode"）.value=SenFe_UbbCode（document.getElementById（"scode"）.value）" />
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]