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

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

1. <% 
2.     '调用这个函数来显示成超联结 
3.     Response.Write to_html(s_message) 
4. %> 
5.  
6.  
7. <% 
8. Function to_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. End Function 
17. %> 
18.  
19. <script language="javascript1.2" runat=server> 
20. function edit_hrefs(s_html){ 
21.     // 一个使用正则表达式的典范 
22.     // 转换文本中所有的超联结和电子邮件格式 
23.     s_str = new String(s_html); 
24.  
25.     s_str = s_str.replace(/bhttp://www(.[w+.:/_]+)/gi, 
26.         "http://¬¤¸$1"); 
27.  
28.     s_str = s_str.replace(/b(http://w+.[w+.:/_]+)/gi, 
29.         "<a href="$1">$1</a>"); 
30.  
31.     s_str = s_str.replace(/b(www.[w+.:/_]+)/gi, 
32.         "<a href="http://$1">$1</a>"); 
33.  
34.     s_str = s_str.replace(/bhttp://¬¤¸(.[w+.:/_]+)/gi, 
35.         "<a href="http://www$1">http://www$1</a>"); 
36.  
37.     s_str = s_str.replace(/b(w+@[w+.?]*)/gi, 
38.         "<a href="mailto:$1">$1</a>"); 
39.  
40.     
41.     return s_str; 
42. } 
43. </script>