＋设为首页 ＋添加到收藏夹
同志们:
这段计数器程序在运行时提示内部服务器错误,能找一下原因吗是不是IIS色设置有问题?
<%
function Application_OnStart()
{
Application("counter");
var jzfs=Server.CreateObject("Scripting.FileSystemObject");
var counter_path=Server.MapPath("/counter.txt");
var jzts=jzfs.OpenTextFile(counter_path,1,true);
if(jzts.AtEndOfStream!=true)
Application("counter")=jzts.ReadLine();
else
Application("counter")=200000;
jzts.Close();
Application("zhongjian");
Application("zhongjian")=jzfs;
Application("path");
Application("path")=counter_path;
}
function Application_OnEnd()
{
var jzfs=Application("zhongjian");
var counter_path=Application("path")
var jzts=jzfs.CreateTextFile(counter_path,1,true);
jzts.WriteLine(Application("counter"));
jzts.Close();
}
function Session_OnStart()
{
var numm=Application("counter");
var num=parseInt(numm,10);
num=num+1;
Application.Lock();
Application("counter")=num;
Application.Unlock();
}
%>
你用的都是函数形式啊,应该改为事件形式
<%
Sub Application_OnStart
Application("counter");
var jzfs=Server.CreateObject("Scripting.FileSystemObject");
var counter_path=Server.MapPath("/counter.txt");
var jzts=jzfs.OpenTextFile(counter_path,1,true);
if(jzts.AtEndOfStream!=true)
Application("counter")=jzts.ReadLine();
else
Application("counter")=200000;
jzts.Close();
Application("zhongjian");
Application("zhongjian")=jzfs;
Application("path");
Application("path")=counter_path;
End Sub
Sub Application_OnEnd
var jzfs=Application("zhongjian");
var counter_path=Application("path")
var jzts=jzfs.CreateTextFile(counter_path,1,true);
jzts.WriteLine(Application("counter"));
jzts.Close();
End Sub
Sub Session_OnStart
var numm=Application("counter");
var num=parseInt(numm,10);
num=num+1;
Application.Lock();
Application("counter")=num;
Application.Unlock();
End Sub%>
改为事件形式就可以了？为什么啊？
按道理函数形式也应该没问题的啊1
var counter_path=Server.MapPath("/counter.txt");
我用"/counter.txt“的时候，有”/“就出错，这又是为什么啊？
我是一个ASP新手，请推荐几个ASP学习的网址。谢谢！！
