| if request("url")<> "" then url=request("url") 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%> |
希望看到更多更经典的开发技巧,请随时刷新《开发特区》栏目。
|