这段代码错误，怎么修改

下面这段代码有错误，提示没有权限，如下
Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限
请问怎么修改啊
    <%
    Dim FileObject                              '声明一个FileSystemObject对象实例
    Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
    Dim TextFile                                '声明一个TextStream对象实例
    '下面读取原有的访问次数，并加1
    Set TextFile= FileObject.OpenTextFile("num.txt",1,true)
    Dim visit_number                           '声明一个访问次数变量
    Visit_number=CLng(TextFile.ReadLine)         '读取原有的访问次数，注意转化为长整型
    Visit_number=Visit_number+1                 '将访问次数加1
     '将新的访问次数写回文件中
    Set TextFile= FileObject.OpenTextFile("num.txt",2)
    TextFile.WriteLine(Visit_number)               '将新的访问次数写回文件
    TextFile.Close                               '关闭TextStream对象
    %>
    您是第<%=visit_number%>位访客