关于ASP中“没有权限”的问题

<%
Set fileObject=Server.CreateObject("Scripting.FileSystemObject")
textfile=Server.MapPath("/" & Replace(Topic,"+","_") & ".txt")
If Not fileObject.FileExists(textfile) Then
Set instream=fileObject.OpenTextFile(textfile,8,true,false)
instream.WriteLine ""
End If

Set instream=fileObject.OpenTextFile(textfile,1,true,false)
file=instream.ReadAll
Set instream=nothing

If Len(file)>5000 Then
archiveflie=Server.MapPath("files/" & Replace(Topic,"+","_") & "_" & Server.URLEncode(Now) & ".txt")
Set instream=fileObject.CreateTextFile(archivefile,true)
instream.Write file
instream.Close
Set instream=nothing

Set instream=fileObject.CreateTextFile(textfile,true)
instream.Write ""
Set instream=nothing

关于ASP中“没有权限”的问题 一个关于asp的权限问题 请教ASP高手，关于权限的问题 请教asp中session页面权限访问的问题？ ASP+SQL关于模块集成的权限问题 关于局域网没有访问权限的问题 关于权限的问题 asp的access数据库的权限问题 asp jpeg组件权限的问题 请问asp的filesystemobject权限问题?