没有使用权限??

我写一个读取档案的程式
<%
set filobj=server.createobject("Scripting.FileSystemObject")
Filename=server.mappath("/图片/total.txt")
'If Not Request("rad")=Empty Then
set txtwrite=filobj.OpenTextFile(Filename, 2, true)
'End if
%>
但是在执行到这
set txtwrite=filobj.OpenTextFile(Filename, 2, true)
写
错误类型：
Microsoft VBScript 执行阶段错误 (0x800A0046)
没有使用权限

我不知道要去哪里改权限= =!!
谢谢解答喽

x0