ASP FSO文件处理函数大全

代码如下:

<%
'建立文件夹函数
Function CreateFolder(strFolder)'参数为相对路径
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder,objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    '检查文件夹是否存在
    If not objFSO.FolderExists(strTestFolder) Then
  '如果不存在则建立文件夹
  objFSO.CreateFolder(strTestFolder)
    End If
 Set objFSO = Nothing
End function

'删除文件夹
Function DelFolder(strFolder)'参数为相对路径
 strTestFolder = Server.Mappath(strFolder)
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 '检查文件夹是否存在
 If objFSO.FolderExists(strTestFolder) Then
  objFSO.DeleteFolder(strTestFolder)
 end if
 Set objFSO = Nothing
End function

'创建文本文件
Function Createtextfile(fileurl,filecontent)'参数为相对路径和要写入文件的内容
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Set fout = objFSO.CreateTextFile(Server.MapPath(fileurl))
 fout.WriteLine filecontent
 fout.close
 Set objFSO = Nothing
End Function

'删除文件(适合所有文件)
Function Deltextfile(fileurl)'参数为相对路径
 Set objFSO = CreateObject("Scripting.FileSystemObject")
  fileurl = Server.MapPath(fileurl)
  if objFSO.FileExists(fileurl) then '检查文件是否存在
   objFSO.DeleteFile(Server.mappath(fileurl))
  end if
 Set objFSO = nothing
End Function

'建立图片文件并保存图片数据流
Function Createimage(fileurl,imagecontent)'参数为相对路径和文件内容
 Set objStream = Server.CreateObject("ADODB.Stream")   '建立ADODB.Stream对象,必须要ADO 2.5以上版本
 objStream.Type =1   '以二进制模式打开
 objStream.Open
 objstream.write imagecontent   '将字符串内容写入缓冲
 objstream.SaveToFile server.mappath(fileurl),2   '-将缓冲的内容写入文件
 objstream.Close()'关闭对象
 set objstream=nothing
End Function

'远程获取文件数据
Function getHTTPPage(url) 
 'On Error Resume Next
 dim http 
 set http=Server.createobject("Microsoft.XMLHTTP") 
 Http.open "GET",url,false 
 Http.send() 
 if Http.readystate<>4 then
  exit function 
 end if 
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 If Err.number<>0 then 
  getHTTPPage = "服务器获取文件内容出错" 
  Err.Clear
 End If  
End function

Function BytesToBstr(body,Cset)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText 
 objstream.Close
 set objstream = nothing
End Function

'获取图片数据流
Function getpic(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")'使用xmlhttp的方法来获得图片的内容
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getpic=Http.responseBody
set http=nothing
if err.number<>0 then
 getpic = "服务器获取文件内容出错"
 err.Clear 
End if
End Function

'打开文件(文本形式)
Function OpenFile(fileurl)'文件相对路径
 Dim Filename,fso,hndFile
 Filename = fileurl
 Filename = Server.MapPath(Filename)
 Set objfso = CreateObject("Scripting.FileSystemObject")
 If objfso.FileExists(Filename) Then
  set hndFile = objfso.OpenTextFile(Filename)
  OpenFile = hndFile.ReadAll
 Else
  OpenFile = "文件读取错误"
 End If
 Set hndFile = Nothing
 Set objfso = Nothing
End Function

'获得文件的后缀名
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
%>

(0)

相关推荐

  • ASP FSO文件处理函数大全

    复制代码 代码如下: <% '建立文件夹函数 Function CreateFolder(strFolder)'参数为相对路径     '首选判断要建立的文件夹是否已经存在     Dim strTestFolder,objFSO     strTestFolder = Server.Mappath(strFolder)     Set objFSO = CreateObject("Scripting.FileSystemObject")     '检查文件夹是否存在     I

  • ASP FSO文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)

    FSO文件(File)对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径,可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返

  • ASP中常用的22个FSO文件操作函数整理

    在ASP中,FSO的意思是File System Object,即文件系统对象.我们将要操纵的计算机文件系统,在这里是指位于web服务器之上.所以,确认你对此拥有合适的权限.理想情况下,你可以在自己的机器上建立一个web服务器,这样就能方便地进行测试.如果运行于Windows平台,请试一试微软公司的Web服务器iis. FSO 模型对象 Drive Object:驱动器对象 供存取磁盘或者网络驱动器 FileSystemObject Object:文件系统对象 供存取计算机的文件系统 Folde

  • C语言文件操作函数大全(超详细)

    fopen(打开文件)相关函数 open,fclose表头文件 #include<stdio.h>定义函数 FILE * fopen(const char * path,const char * mode);函数说明 参数path字符串包含欲打开的文件路径及文件名,参数mode字符串则代表着流形态.mode有下列几种形态字符串:r 打开只读文件,该文件必须存在.r+ 打开可读写的文件,该文件必须存在.w 打开只写文件,若文件存在则文件长度清为0,即该文件内容会消失.若文件不存在则建立该文件.w

  • ASP中的时间函数大全 时间操作函数第1/2页

    Date 函数 描述:返回当前系统日期. 语法:Date DateAdd 函数 描述:返回已添加指定时间间隔的日期.  语法:DateAdd(interval, number, date) interval: 必选.字符串表达式,表示要添加的时间间隔.有关数值,请参阅"设置"部分.  number: 必选.数值表达式,表示要添加的时间间隔的个数.数值表达式可以是正数(得到未来的日期)或负数(得到过去的日期).  date: 必选.Variant 或要添加 interval 的表示日期的

  • ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法

    具体特征如下: 1.通过模板实现俄文正常. 2.通过后台数据库生成的静态俄文信息,后台显示正常, 前台乱码. 3.英文正常. 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 复制代码 代码如下: function createfile(sfilename,scontent) set fso=server.CreateObjec

  • ASP检查文件与目录是否存在的函数代码

    以下为两个自写的ASP函数,第一个函数CheckDir,用于判断所指定的文件夹是否存在,也就是目录是否存在:第二个函数CheckFile用于检查指定文件是否存在在于某个目录中. 两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用. ASP检查目录是否存在的函数代码 Function CheckDir(Byval FolderPath) dim fso folderpath=Server.MapPath(".")&"\&q

  • ASP函数大全解析

    Array()  函数返回一个数组 表达式 Array(list) 允许数据类型: 字符,数字均可 实例: <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %> 返回结果: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday&quo

  • FSO文件对象介绍及常用函数

    FSO的意思是FileSystemObject,即文件系统对象.FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive.Folder.File.FileSystemObject和TextStream五个对象,用来操作文件和文件夹十分方便. FSO文件(File)对象属性 属 性 说 明 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一

  • asp修改文件和文件夹的名字的代码

    修改文件的名字 使用"FileSystemObject(文件系统对象)"的GetFile函数得到一个"文件对象",然后修改这个"文件对象"的name属性 复制代码 代码如下: set fso=Server.CreateObject("Scripting.FileSystemObject") set file=fso.GetFile(Server.MapPath("/folder/old_name.asp")

随机推荐