网络编程
位置：首页>> 网络编程>> XML编程>> asp采集常用的几个FUCTION

asp采集常用的几个FUCTION

作者：郁郁小蝎　来源：中国站长学院　发布时间：2007-09-05 19:45:00　

标签：采集,function,asp

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


1
2 下一页
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com