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

 %>