asp采集常用的几个FUCTION

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

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


标签:采集,function,asp
0
投稿

猜你喜欢

  • Python读取word文本操作详解

    2023-08-23 15:32:50
  • mysql 5.7.14 安装配置简单教程

    2024-01-13 04:41:48
  • php mail to 配置详解

    2024-05-13 09:22:51
  • Python paramiko模块的使用示例

    2021-05-12 20:30:00
  • Python新手如何理解循环加载模块

    2022-10-09 00:12:53
  • Python字符串字母大小写转换的各种情况详析

    2023-11-23 07:35:41
  • python实现根据主机名字获得所有ip地址的方法

    2021-03-13 14:19:25
  • 实例分析python3实现并发访问水平切分表

    2023-12-29 06:43:45
  • 人工智能学习pyTorch的ResNet残差模块示例详解

    2022-05-04 21:45:22
  • Python 自动化修改word的案例

    2021-11-08 21:18:16
  • 使用Python解析Chrome浏览器书签的示例

    2023-03-12 01:14:34
  • python迷宫问题深度优先遍历实例

    2023-10-16 18:54:06
  • PHP排序算法之冒泡排序(Bubble Sort)实现方法详解

    2024-05-13 09:25:52
  • Python 微信公众号文章爬取的示例代码

    2021-11-06 22:39:20
  • Python自动化部署工具Fabric的简单上手指南

    2022-11-23 03:23:25
  • IBatis.net连接MySql 问题与故障的解决方案

    2011-06-02 09:38:00
  • 永不熄灭的爱心图标——腾讯公益月捐计划 “QQ首席图标”诞生记

    2009-09-01 19:43:00
  • Python基于staticmethod装饰器标示静态方法

    2022-11-07 07:25:11
  • Python实现对adb命令封装

    2022-07-07 23:41:13
  • spark编程python实例解读

    2023-06-02 06:12:52
  • asp之家 网络编程 m.aspxhome.com