【 tulaoshi.com - Web开发 】
代码如下：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）%
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,"$1a 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,"$1a href=""http://$2"" target=""_blank""$2/a")
End If
End With
Set TempReg = Nothing
SenFe_UbbCode = sContent
End Function
%
[Ctrl+A 全选]
