复制代码 代码如下:
<% 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 %>
Function SenFe_UbbCode(sContent) Dim TempReg Set TempReg = New RegExp With TempReg .IgnoreCase = True .Global = True '自动识别网址 If InStr(Lcase(sContent),"http://")>0 Then .Pattern = "(^|[^ $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 = sContent End Function [Ctrl+A 全选 注: 如需引入外部Js需刷新才能执行 ]
查看更多关于自动识别HTML的标记 替换连接_正则表达式的详细内容...