=","")
  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
  %>

上一页  [1] [2] [3] [4] [5] 

在google里搜索更多教你一次下载网页中的所有资源(ASP)

	Web www.51ec.org

上一篇信息学院： 用ASP访问数据库的几种常见方式

下一篇信息学院： 20种看asp源码的方法及工具