【www.gdgbn.com--文本特效】

fso 文件保存,这里等的读取文件并保存了

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

本文来源：http://www.gdgbn.com/wangyetexiao/16258/