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

也想出现在这里？点击联系我~

1. <%
2. FunctionSenFe_UbbCode(sContent)
3. DimTempReg
4. SetTempReg=NewRegExp
5. WithTempReg
6. .IgnoreCase=True
7. .Global=True
8. '自动识别网址
9. IfInStr(Lcase(sContent),"http://")>0Then
10. .Pattern="(^|[^<=""])(http:(\\/\\/|\\\\\\\\)(([\\w\\/\\\\\\+\\-~`@:%])+\\.)+([\\w\\/\\\\\\.\\=\\?\\+\\-~`@\\':!%#]|(&)|&)+)"
11. sContent=.Replace(sContent,"$1<ahref=""$2""target=""_blank"">$2</a>")
12. EndIf
13. '自动识别www等开头的网址
14. IfInStr(Lcase(sContent),"www.")>0orInStr(Lcase(sContent),"bbs.")>0Then
15. .Pattern="(^|[^\\/\\\\\\w\\=])((www|bbs)\\.(\\w)+\\.([\\w\\/\\\\\\.\\=\\?\\+\\-~`@\\'!%#]|(&))+)"
16. sContent=.Replace(sContent,"$1<ahref=""http://$2""target=""_blank"">$2</a>")
17. EndIf
18. EndWith
19. SetTempReg=Nothing
20. SenFe_UbbCode=sContent
21. EndFunction
22. %>