CODE: ‘這里用的是正則式 Set objRegExp = New Regexp '建立對(duì)象 objRegExp.IgnoreCase = True '大小寫忽略 objRegExp.Global = True '全局為真 objRegExp.Pattern = "http://.+?" '匹配字段 set mm=objRegExp.Execute(str) '執(zhí)行查找,str為輸入?yún)?shù) For Each Match in mm '進(jìn)入循環(huán) Response.write(Match.Value) '輸出url地址 next