用ASP编写下载网页中所有资源的程序

fn=getFileName(url)

urlhead=left(url,(instr(replace(url,"//",""),"/")+1))

urlpath=replace(left(url,instrRev(url,"/")),urlhead,"")

strContent = getHTTPPage(url)

mystr=strContent

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "(src|href)=.[^\＞]+? "

Set Matches =objRegExp.Execute(strContent)

For Each Match in Matches

str=Match.Value

str=replace(str,"src=","")

str=replace(str,"href=","")

str=replace(str,"""","")

str=replace(str,"'","")

filename=GetfileName(str)

getRet=getVirtual(str,urlpath,urlhead)

temp=Replace(getRet,"//","**")

start=instr(temp,"/")

endt=instrRev(temp,"/")-start+1

if start＞0 then

repl=virtual&mid(temp,start)&" "

'response.Write repl&"＜br＞"

mystr=Replace(mystr,str,repl)

dir=mid(temp,start,endt)

temp=truepath&Replace(dir,"/","\")

CreateDir(temp)

'response.Write getRet&"||"&temp&filename&"＜br＞＜br＞"

SaveToFile getRet,temp&filename

end if

Next

set Matches=nothing

end if

%＞

上一篇： IIS HTTP500内部错误解决办法

下一篇： ASP实用技巧：强制刷新和判断文件地址