使用正则表达式这得看你的具体的连接是什么样..有相对路径连接,绝对路径连接关键是你把要查找的字符贴出来一部分完整代码:<%Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置是否区分字符大小写。 regEx.Global = True ' 设置全局可用性。 Set Matches = regEx.Execute(strng) ' 执行搜索。For Each Match in Matches ' 遍历匹配集合。 RetStr = RetStr & "|"& Match.Value Next RegExpTest = RetStr End Function str=":<!--页面底部免责声明--><div id=""ft_ms"" style=""clear:both;"">©2008 Baidu <a href="""" class=""c"">消息协议</a></div><!--页面底部免责声明结束-->"p="(ht|f)tp(s?)\:\/\/[a-zA-Z0-9\-\._]+(\.[a-zA-Z0-9\-\._]+)(\/?)([a-zA-Z0-9\-\.\?\,\'\/\\\+&%\$#_]*)?"allhttp=RegExpTest(p,str)response.write allhttp%>allhttp就是你要的所有连接的地址不过,都是标准的http网址关键是修改变量p的值也就是正则模式要是回答的内容有问题,或认为不妥,请发送百度消息给我,消息内容加上本页网址哦。。·