Some of the previously collected data---convert text to hyperlinks and email format code

If the user enters the HTTP://AAA.BBB.CCC
The following code converts his input into a HTTP://AAA.BBB.CCC
We look at the regular expression of how powerful, hehe.
<%
' Call this function to display as a super join
Response.Write to_html (S_message)
%>
<%
Function to_html (s_string)
to_html = Replace (s_string, "" "", "" ")
to_html = Replace (to_html, "<", "<")
to_html = Replace (to_html, ">", ">")
to_html = Replace (to_html, vbCrLf, "<br>")
to_html = Replace (to_html, "/<", "<")
to_html = Replace (to_html, "/>", ">")
to_html = Edit_hrefs (to_html)
End Function
%>
<script language= "javascript1.2" runat=server>
function Edit_hrefs (s_html) {
An example of using regular expressions
Convert all hyperlinks and e-mail formats in text
S_str = new String (s_html);
S_str = S_str.replace (/http://www (. [ w+.:/ _]+)/gi,
"Http://¬¤¸$1");
S_STR = S_str.replace (/(http://w+.[ w+.:/ _]+)/gi,
"<a href=" (">$1</a>");

S_STR = S_str.replace (/(www.[ w+.:/ _]+)/gi,
"<a href=" http://$1 ">$1</a>");

S_str = S_str.replace (/http://¬¤¸ (. [ w+.:/ _]+)/gi,
"<a href=" http://www$1 ">http://www$1</a>");