大哥大姐们,救救小弟啊!
为什么说我这个Global.asa文件的第16行没有权限啊??
Global.asa文件:
<Script Language=JavaScript runat=Server >
function Application_OnStart()
{
var ForAppending=8;
var FileName=Server.MapPath("count.txt");
var fso=Server.CreateObject("Scripting.FileSystemObject");
if (fso.fileExists(FileName))
{
var fp=fso.OpenTextFile(FileName,ForAppending,false);
Application("count")=fp.ReadLine;
Application("count")++ ;
}
else
{
var fp=fso.CreateTextFile(FileName);////////第16行////////
Application("count")=1;
fp.writeline(Application("count"));
Application("count")++;
}
fp.Close();
}
function Application_OnEnd()
{
var FileName=Server.MapPath("count.txt");
var fso=Server.CreateObject("Scripting.FileSystemObject");
var fp=fso.CreateTextFile(FileName,true,true);
fp.writeline(Application("count"));
fp.Close();
}
</script>
count.asp文件:
<%@ Language=JavaScript %>
<%
Application.Lock
Application("count")++
Application.UnLock
%>
<%=Application("count")%>