myString=Rs("Content")
replace_ment="href="&"""javascript:;"""
Set re = new RegExp '创建RegExp实例
' re.Pattern = "<a (.*)>.*<\/a>" 'a标签
re.Pattern = "href=('|"&""")(.*?)(|asp|jpg|rar|zip|pdf|doc|docx|xls|xlsx|ppt|pptx|txt|swf|mp3|wav|avi|mp4|wmv)('|"&""")" '后面的后缀似乎不起作用
' re.Pattern = "href=('|"&""")(.*?)('|"&""")" '这个简洁些
re.IgnoreCase = false
re.Global =true
Set Matches = re.Execute(myString) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
'response.write Match.FirstIndex &"+"&Match&"<br/>"
myString=replace(myString,Match,replaceMent)
Next
' Response.write(re.Execute(myString)(0)) '进行匹配测试,并写出结果
Response.write myString
上一篇>>for each in next
下一篇>>asp 正则匹配邮箱
Copyright © 2016 Allister All Rights Reserved