学步园

'这里用的是正则式

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