asp采集常用的几个FUCTION

asp采集常用的几个FUCTION如:利用流保存文件,利用fso检测文件是否存在,利用fso检测文件夹是否存在,保存文件,取得远程数据等

1. function SaveFiles
作用 ：利用流保存文件
参数 ：from（远程文件地址），tofile（保存文件位置）

Private Function SaveFiles(byref from,byref tofile)
 Dim Datas
 Datas=GetData(from,0)
 Response.Write "保存成功：<font color=red>"&formatnumber(len(Datas)/1024*2,2)&"</font>Kb"
 response.Flush
 if formatnumber(len(Datas)/1024*2,2)>1 then
  ADOS.Type = 1
  ADOS.Mode =3
  ADOS.Open
  ADOS.write Datas
  ADOS.SaveToFile server.mappath(tofile),2
  ADOS.Close()
 else
  Response.Write "保存失败：<font color=red>文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb，小于1K</font>"
  response.Flush
 end if
end function

2.function IsExists
  作用 ：利用fso检测文件是否存在,存在返回true,不存在返回false
  参数 ：filespes（文件位置）

Private Function IsExists(byref filespec) 
 If (FSO.FileExists(server.MapPath(filespec))) Then
 IsExists = True
 Else
 IsExists = False
 End If
End Function 

3. function IsFolder
  作用 ：利用fso检测文件夹是否存在,存在返回true,不存在返回false
  参数 ：folder（文件夹位置）

Private Function IsFolder(byref Folder)
 If FSO.FolderExists(server.MapPath(Folder)) Then  
 IsFolder = True
 Else
 IsFolder = False
 End If
End Function

4. function CreateFolder
   作用 ：利用fso创建文件夹
   参数 ：fldr（文件夹位置）

Private Function CreateFolder(byref fldr) 
 Dim f
 Set f = FSO.CreateFolder(Server.MapPath(fldr))
 CreateFolder = f.Path
 Set f=nothing
End Function