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

本文主要为广大网友提供“自动识别HTML的标记 替换连接”，希望对需要自动识别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
%>



<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需刷新才能执行]