TTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then exit function
  getHTTPstr=Http.responseBody
  set http=nothing
  if err.number<>0 then err.Clear
  end function
  
  
  Function CreateDIR(ByVal LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
  On Error Resume Next
  LocalPath = Replace(LocalPath, "\", "/")
  Set FileObject = server.CreateObject("Scripting.FileSystemObject")
  patharr = Split(LocalPath, "/")
  path_level = UBound(patharr)
  For I = 0 To path_level
  If I = 0 Then pathtmp = patharr(0) & "/" Else pathtmp = pathtmp & patharr(I) & "/"
  cpath = Left(pathtmp, Len(pathtmp) - 1)
  If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath
  
  Next
  Set FileObject = Nothing
  If Err.Number <> 0 Then
  CreateDIR = False
  Err.Clear
  Else
  CreateDIR = True
  End If
  End Function
  function GetfileExt(byval filename)
  fileExt_a=split(filename,".")
  GetfileExt=lcase(fileExt_a(ubound(fileExt_a)))
  end function
  
  function getvirtual(str,path,urlhead)
  if left(str,7)="http://" then
  url=str
  elseif left(str,1)="/" then
&n

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

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

	Web www.51ec.org

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

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