当前位置：网站首页 >> 建站知识 >> 网站技术 >>


总结一些利用ASP代码实现文件操作的函数实例

来源：郑州凯讯网站    发布人：郑州凯讯公司    发布日期：2014-09-27

文件操作在网站建设中是很重要的一个方面，下面，郑州网站建设总结了几个针对文件操作的函数实例，供各位网站建设这参考。本实例采用了ASP代码来实现，比较容易理解。代码中，调用了一些常用的系统组件，其用法具有一定的借鉴意义。

一、加载已有的文件，并把文件的内容生成一个字符串返回：

函数LoadSrcFile(ByVal File)，其中参数File表示文件路径，本函数调用ADODB.Stream组件，如果服务器系统不支持，则无法使用本函数。

Function LoadSrcFile(ByVal File)
Dim objStream

On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")

If Err.Number=-2147221005 Then
Response.Write "很不好意思，您的服务器上不支持ADODB.Stream组件，请安装后再使用本函数，错误来源：LoadSrcFile"
Err.Clear
Response.End
End If

With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile File
If Err.Number<>0 Then
Response.Write "您要打开的文件"&File&"，本次打开失败，请检查是否存在或者被其他程序占用。"
Err.Clear
Response.End
End If
.Charset = "GB2312"
.Position = 2
LoadSrcFile = .ReadText
.Close
End With

Set objStream = Nothing
End Function

二、保存文件：

函数SaveDstFile(ByVal strBody,ByVal File)，作用是把修改好的文件保存起来，strBody为新的字符串，File为文件路径。本函数调用ADODB.Stream组件，如果服务器系统不支持，则无法使用本函数。

Function SaveDstFile(ByVal strBody,ByVal File)
Dim objStream

On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")

If Err.Number=-2147221005 Then
Response.Write "很不好意思，您的服务器上不支持ADODB.Stream组件，请安装后再使用本函数，错误来源：SaveDstFile"
Err.Clear
Response.End
End If

With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile File,2
.Close
End With

Set objStream = Nothing
End Function

三、删除目标文件：

函数DeleteDstFile(ByVal File)，作用是删除已有的文件，File为文件路径。本函数调用filesystemobject组件，如果服务器系统不支持，则无法使用本函数。

Function DeleteDstFile(ByVal File)
Dim objFilesys

On Error Resume Next
Set objFilesys=server.createobject("scripting.filesystemobject")

If objFilesys.FILEExists(File) then
objFilesys.deleteFILE File
End if

If Err.Number<>0 Then
Response.Write "您所要删除的文件"&File&"当前无法被删除，可能文件正在被系统使用或者文件不存在。"
Err.Clear
Response.End
End If

Set objFilesys=nothing
End Function

四、检查文件是否存在：

函数CheckFileExist(sFileName)，作用是检测文件是否存在，sFileName为文件路径。本函数调用filesystemobject组件，如果服务器系统不支持，则无法使用本函数。

Function CheckFileExist(sFileName)
CheckFileExist=false
Dim objFilesys

On Error Resume Next
Set objFilesys=server.createobject("scripting.filesystemobject")
If objFilesys.FILEExists(sFileName) then '如果文件存在着删除它 FILE为文件路径
CheckFileExist=true
End if

Set objFilesys=nothing
End function

五、检查文件夹是否存在：

函数CheckFolderExist(Folder)，作用是检测文件夹是否存在，Folder为文件夹。本函数调用filesystemobject组件，如果服务器系统不支持，则无法使用本函数。

Function CheckFolderExist(Folder)
set fso = server.createobject("scripting.filesystemobject")

if fso.FolderExists(Folder)=false then
CheckFolderExist=false
else
CheckFolderExist=true
end if
End function

六、获取文件名后缀名：

函数GetFileExtname(sFileName)，作用是获取文件的扩展名，sFileName为文件名。

function GetFileExtname(sFileName)
GetFileExtname = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1))
End function