28,376
社区成员




qsshtml = "<link href='a.css' type=text/css rel=stylesheet> <link type=text/css href='a.css' rel=stylesheet> <link type=text/css rel=stylesheet href='a.css' >"
response.Write("--开始匹配 <br>")
dim resultcss,cssname,cssfromurl,resultcsshtml,cssinurl
dim regEx,Matches
set regEx = new regexp
regEx.ignorecase=true
regEx.global=true
regEx.pattern="<link([^<>]*)(rel\=['""]*stylesheet['""]*)?[^<>]*href\=['""]*(.*?)['""]*[^>]*(rel\=['""]*stylesheet['""]*)?[^>]*>"
set Matches = regEx.execute(qsshtml)
for each Match in Matches
resultcss=Match.value
resultcss=replace(resultcss,"<","<")
response.Write " 发现css : " & resultcss & "<br>"
next
set resultcss = nothing
set regEx = nothing
得出的结果是
发现css : <link href='a.css' type=text/css rel=stylesheet>
发现css : <link type=text/css href='a.css' rel=stylesheet>
发现css : <link type=text/css rel=stylesheet href='a.css' >
这样的,还不能一下就得到href里的css结果的
看看我上面提出的思路:
qsshtml = "<link rel='dns-prefetch' href='//bbs.csdn.net'><link href='a.css' type=text/css rel=stylesheet> <link type=text/css href='a.css' rel=stylesheet> <link type=text/css rel=stylesheet href='a.css' >"
response.Write("--开始匹配 <br>")
dim resultcss,cssname,cssfromurl,resultcsshtml,cssinurl
dim regEx,Matches
set regEx = new regexp
regEx.ignorecase=true
regEx.global=true
regEx.pattern="<link[^>]*?href=['""]([^'""]*?\.css)['""][^>]*?>"
set Matches = regEx.execute(qsshtml)
for each Match in Matches
resultcss=regEx.Replace(Match.value, "$1")
response.Write " 发现css : " & resultcss & "<br>"
next
set resultcss = nothing
set regEx = nothing
这个得到的结果是:
发现css : a.css
发现css : a.css
发现css : a.css