求正则，清除内容中的网址

[W34929275]

我想实现的功能是清除文章内容复制过来的网址。

现在使用了一个正则。。

但却把本地图片地址也一样清除了。

请大家帮忙看一下如何修改。。

function urlReplace(strContent) 
  dim objRe 
  set objRe=new RegExp 
  objRe.Global=True 
  objRe.IgnoreCase=True 
  objRe.Pattern="http:\/\/([\w-]+\.)+[\w-]+(\/[\w-.\/?%&=]*)?|([\w-]+\.)+[\w-]+(\/[\w-.\/?%&=]*)?" 
  urlReplace=objRe.replace(strContent,"#") 
  set objRe=nothing 
end function 

上面是正在使用的正则。

但把本地图片地址如：src="/usa/UploadFiles/200811/20081124164457495.jpg"

也修改成：src="/usa/UploadFiles/200811/#"

这样的形式。

请大家帮忙，如何来修改让它只替换网址，而不替换图片路径呢。

[tjficcbw]

((http|ftp)://)?(((([\d]+\.)+){3}[\d]+(/[\w./]+)?)|([a-z]\w*((\.\w+)+){2,})([/][\w.~]*)*)

[W34929275]

感谢楼上的朋友。。。