ASP操作文件

1.写数据
  fo=Server.MapPath("SFZH_MD.txt")
   set fs=Server.CreateObject("Scripting.FileSystemObject")
   set fn=fs.CreateTextFile(fo,True)
   fn.Write “DDD”
   fn.Close
  2.打开此文件，但好像只能在服务器访问才行
   fo=replace(fo,"\","\\")
   response.Write "<script >"
   response.Write "(new   ActiveXObject(""wscript.shell"")).run("""&fo&""")"
   response.write "< /script>"
3.保存文件
Response.clear
  fo=Server.MapPath("SFZH_MD.txt")
  Response.ContentType = "application/octet-stream"
  Response.AddHeader "Content-Disposition","attachment;filename=SFZH_MD.txt;charset=GB2312"
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fso, f, ts
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(fo)  
  Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
  Do While ts.AtEndOfLine <> True
    Response.write(ts.ReadLine)
  Loop
  ts.Close
  set fso=nothing