全面涵盖了适用于 ASP 的 FSO 文档操作函数的文档

ASP中的FSO组件非常强大，如果没有这个功能FSO，也不知道ASP会变成怎么样，其实想要学习ASP编程的朋友一定会接触到与FSO相关的操作，下面错新技术频道就为你带来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

%>

 上文是错新技术频道小编为大家介绍的ASP FSO文件处理函数大全，相信大家都有了一定的了解，技术频道将和你分享更多的知识，让你在这个行业越来越好。

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!