Asp创建文件而且写入内容的函数

<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>Function TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fso, f, ts
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile "test1.txt"            '创建一个文件。
    Set f = fso.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "网络大本营 http://www.xrss.cn！"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
  TextStreamTest = ts.ReadLine
  ts.Close
End Function  <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>