CODE: ‘这里用的是正则式 Set objRegExp = New Regexp '建立对象 objRegExp.IgnoreCase = True '大小写忽略 objRegExp.Global = True '全局为真 objRegExp.Pattern = "http://.+?" '匹配字段 set mm=objRegExp.Execute(str) '执行查找,str为输入参数 For Each Match in mm '进入循环 Response.write(Match.Value) '输出url地址 next