下面这段代码有错误，提示没有权限，如下
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%>位访客

那不是这段代码的问题，楼主的网站在IIS上没有写入权限，网站属性->主目录选项卡->写入复选框选中即可。