Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, 
TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            '创建一个文件
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub
   TextStreamTest
错误类型：
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限
/apple/test1.asp, 第 18 行 第18行正好是openAsTextStream我已经
在管理工具里面把网站和网站文件夹权限都设了了 写入 的
不知道怎么的请求指点