asp 正则替换href里面的内容

作者:夏雨芭蕉时间:2016-05-10 13:36:29 浏览量:

     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    


Copyright © 2016 Allister All Rights Reserved