asp fso使用实例教程

<% Function Er() '错误处理
        If Err.Number = 0 Then
        Er = False
        Else
        Err.Clear
        Er = True
        End If
End Function
sub delfile(FileName) '这是一个用于删除文件的过程,如未指定文件名,将删除该目录下所有文件
On Error Resume Next
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if instr(filename,":")<>0 then
   path=filename
else
   path=server.MapPath(FileName)
end if
' Response.Write path

fs.deletefile path,TRUE
set ts=nothing
end sub
sub SaveText(FileName,Data) '这是一个用于写文本文件的过程

set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if instr(filename,":")<>0 then
   path=filename
else
   path=server.MapPath(FileName)
end if
   set ts=fs.createtextfile(path,true)
    ts.writeline(data)
    ts.close
    set ts=nothing
    set fs=nothing
end sub
Function TESTFILe(FileName) '这是一个用于检测一个文件是否存在的函数
On Error Resume Next
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if instr(filename,":")<>0 then
   path=filename
else
   path=server.MapPath(FileName)
end if
PA=FS.GETFILE(PATH)
    set fs=nothing
    if er() then
      testfile=False
    else
      testfile=True
    end if
end Function
function ReadText(FileName) '这是一个用于读出文本文件的函数

On Error Resume Next

set adf=server.CreateObject("Ado"&"db.Str"&"eam")
if instr(filename,":")<>0 then
   path=filename
else

   path=server.MapPath(FileName)
end if

with adf
' response.write path
  .Type=2
  .LineSeparator=13
  .Open
  .LoadFromFile (path)
  .Charset="GB2312"
  .Position=2
  ReadText=.ReadText
  .Cancel()
  .Close()
end with
set adF=nothing
end function

补充：asp教程,FSO专题