asp,将变量中内容中的http地址自动加上连接

asp,将变量中内容中的http地址自动加上连接
<%
strContent ="老大，给我加个链接吧http://www.yongfa365.com哈哈哈哈，这是我家娘子的网址：http://hi.baidu.com/chenmanxia,好了，加链接吧"
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)
%>
VBS测试,将变量中内容中的http地址自动加上连接 <script language=vbs> strContent ="老大，给我加个链接吧http://www.yongfa365.com哈哈哈哈，这是我家娘子的网址：http://hi.baidu.com/chenmanxia,好了，加链接吧" 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>") msgbox(strContent) </script>
可修改代码后再运行