bsp; start=instrRev(str,"/")
  if start=1 then
  url="/"
  else
  url=left(str,start)
  end if
  url=urlhead&url
  elseif left(str,3)="../" then
  str1=mid(str,inStrRev(str,"../")+2)
  ar=split(str,"../")
  lv=ubound(ar)+1
  ar=split(path,"/")
  url="/"
  for i=1 to (ubound(ar)-lv)
  url=url&ar(i)
  next
  url=url&str1
  url=urlhead&url
  else
  url=urlhead&str
  end if
  getvirtual=url
  end function
  '示例代码
  dim dlpath
  
  virtual="/downweb/"
  truepath=server.MapPath(virtual)
  
  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

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

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

	Web www.51ec.org

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

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