ASP为字符串中的网址自动加上链接

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

1. <%
2. '字段内网址加上联接。
3. FunctionToLink(Str)
4. DimRE'正则表达式对象DimstrContent
5. IfIsNull(Str)ThenStr=""
6. SetRE=NewRegExp'创建正则表达式对象
7. WithRE
8. .Global=True'搜索应用于整个字符串
9. .IgnoreCase=True'搜索不区分大小写的
10. strContent=Str
11. '***************************************************************
12. '邮件地址链接自动设置
13. '***************************************************************
14. .Pattern="([\\w]*)@([\\w\\.]*)"
15. strContent=.Replace(strContent,"<AHref='mailto:$1@$2'>$1@$2</A>")
16. '***************************************************************
17. '链接自动设置
18. '***************************************************************
19. '======根据要求再添加协议名称=======
20. DimD(3),I
21. D(0)="http"
22. D(1)="ftp"
23. D(2)="news"
24. D(3)="mms"
25. '===================================
26. ForI=0ToUBound(D)
27. .Pattern=D(I)+":\\/\\/([\\w\\.]*)"
28. strContent=.Replace(strContent,"<AHref='"+D(I)+"://$1'target=_blank>"+D(I)+"://$1</A>")
29. Next
30. '***************************************************************
31. EndWith
32. SetRE=Nothing
33. ToLink=strContent
34. EndFunction
36. %>