输入网址自动生成链接的代码

<%  
  strContent   ="我们现在在http://www.baidu.com上面交流，祝愿大家开心,快乐！"  
  Set   re=new   RegExp  
  re.IgnoreCase   =true  
  re.Global=True  
  re.Pattern   =   "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"  
  strContent   =   re.Replace(strContent,"<a   target=_blank   href=$1>$1</a>")  
  re.Pattern   =   "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"  
  strContent   =   re.Replace(strContent,"<a   target=_blank   href=$1>$1</a>")  
  re.Pattern   =   "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"  
  strContent   =   re.Replace(strContent,"<a   target=_blank   href=$1>$1</a>")  
   
  response.Write(strContent)  
  %>