转换文本为超连接和Email格式的代码

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

如果用户输入了http://aaa.bbb.ccc，下面这个代码将把他的输入转换成http://aaa.bbb.ccc，大家看看正则表达式有多厉害，呵呵。

1. <%
2. '调用这个函数来显示成超联结
3. Response.Writeto_html(s_message)
4. %>
7. <%
8. Functionto_html(s_string)
9. to_html=Replace(s_string,"""",""")
10. to_html=Replace(to_html,"<","<")
11. to_html=Replace(to_html,">",">")
12. to_html=Replace(to_html,vbcrlf,"<br>")
13. to_html=Replace(to_html,"/<","<")
14. to_html=Replace(to_html,"/>",">")
15. to_html=edit_hrefs(to_html)
16. EndFunction
17. %>
19. <scriptlanguage="javascript1.2"runat=server>
20. functionedit_hrefs(s_html){
21. //一个使用正则表达式的典范
22. //转换文本中所有的超联结和电子邮件格式
23. s_str=newString(s_html);
25. s_str=s_str.replace(/bhttp://www(.[w+.:/_]+)/gi,
26. "http://¬¤¸$1");
28. s_str=s_str.replace(/b(http://w+.[w+.:/_]+)/gi,
29. "<ahref="$1">$1</a>");
31. s_str=s_str.replace(/b(www.[w+.:/_]+)/gi,
32. "<ahref="http://$1">$1</a>");
34. s_str=s_str.replace(/bhttp://¬¤¸(.[w+.:/_]+)/gi,
35. "<ahref="http://www$1">http://www$1</a>");
37. s_str=s_str.replace(/b(w+@[w+.?]*)/gi,
38. "<ahref="mailto:$1">$1</a>");
41. returns_str;
42. }
43. </script>