自动识别HTML的标记 替换连接
摘要：复制代码代码如下:
复制代码 代码如下:
<%
FunctionSenFe_UbbCode(sContent)
DimTempReg
SetTempReg=NewRegExp
WithTempReg
.IgnoreCase=True
.Global=True
'自动识别网址
IfInStr(Lcase(sContent),"http://")>0Then
.Pattern="(^|[^<=""])(http:(//|)(([w/+-~`@:%])+.)+([w/.=?+-~`@':!%#]|(&)|&)+)"
sContent=.Replace(sContent,"$1<ahref=""$2""target=""_blank"">$2</a>")
EndIf
'自动识别www等开头的网址
IfInStr(Lcase(sContent),"www.")>0orInStr(Lcase(sContent),"bbs.")>0Then
.Pattern="(^|[^/w=])((www|bbs).(w)+.([w/.=?+-~`@'!%#]|(&))+)"
sContent=.Replace(sContent,"$1<ahref=""http://$2""target=""_blank"">$2</a>")
EndIf
EndWith
SetTempReg=Nothing
SenFe_UbbCode=sContent
EndFunction
%>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
【自动识别HTML的标记 替换连接】相关文章：
上一篇：
验证注册用户名必须为字母