Question

Microsoft VBScript 运行时错误 (0x800A0046)没有权限

<%
dim fso,a,aa,s
Set fso =server.CreateObject("Scripting.FileSystemObject")
set a=fso.createTextFile("D:\网站建设\静静\016\22.txt")
set aa=fso.openTextFile("D:\网站建设\静静\016\22.txt")
a.writeline("this is a test page")
a.writeline("welcome to the second row")
a.writeline("welcome to the third row")
a.writeline("welcome to the forth row")
a.writeline("welcome to the fifth row")
for i=1 to 3
f=aa.readline
next
Set fso1 =server.CreateObject("Scripting.FileSystemObject")
set b=fso1.createTextFile("D:\网站建设\静静\016\00.txt")
set bb=fso1.openTextFile("D:\网站建设\静静\016\00.txt",8)
bb.writeline(f)
%>
a,aa,b,bb的读写权限是怎么样的？

Answer 1

照理说a能有写的权限，bb也应该有权写。

你看看22.txt能否正常创建。

你怎么就确定是最后一行？
我纳闷儿的是，你的a.writeline是怎么写入的？
==
set bb=fso1.openTextFile("D:\网站建设\静静\016\00.txt",8)

这个怎么带个“8”？去了试试。

==

读写权限是对磁盘而言的，由系统来掌管，需要从系统里设置。