[url=] 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
%>
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
