主题:  请教!

romp

职务:普通成员
等级:1
金币:0.0
发贴:141
注册:2001/1/10 21:59:40
#12001/2/22 13:16:43
请帮我看看下面的计数器对吗?
我怎么不能用总是出现白页!
在自己机上调试!
用VBS写
<%
Set fs = CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
'Response.Write CounterFile
Set a = fs.OpenTextFile(CounterFile)
visitorcount = CInt(a.ReadLine)
if Session("visitorcount") = "" then
Session("visitorcount") = visitorcount
visitorcount = visitorcount + 1
a.close
Set a = fs.CreateTextFile(CounterFile, True)
a.WriteLine(visitorcount)
end if
a.Close
Response.Write "访问次数:" & visitorcount
%>




wowomo

职务:普通成员
等级:1
金币:1.0
发贴:309
注册:2001/1/12 21:01:58
#22001/2/23 0:19:00
不要意思,我出来不对非数据库的文件操作,可以说是一点也不知道。
不过,你的createobject 好象错了。你的session用来做什么我也看不出
来,你自己测试一下吧,应该很简单的。不会的话再贴,我自己写一
个给你。



romp

职务:普通成员
等级:1
金币:0.0
发贴:141
注册:2001/1/10 21:59:40
#32001/2/23 18:45:03
是前面有个SERVER吗?
对了!
下面这个呢?
都不能用!
<%function session_onstart()
{set numstring=Application("counter");

numstring=numstring+1;
            application.lock();
            application("counter")=application("counter")+1;
            application.unlock();
            }
            end function
%>


........

you are <%=application("counter")%>


...



romp

职务:普通成员
等级:1
金币:0.0
发贴:141
注册:2001/1/10 21:59:40
#42001/2/23 18:45:44
是前面有个SERVER吗?
对了!
下面这个呢?
都不能用!
<%function session_onstart()
{set numstring=Application("counter");

numstring=numstring+1;
            application.lock();
            application("counter")=application("counter")+1;
            application.unlock();
            }
            end function
%>


........

you are <%=application("counter")%>


...



wowomo

职务:普通成员
等级:1
金币:1.0
发贴:309
注册:2001/1/12 21:01:58
#52001/2/24 9:10:46
新的这个从理论上应该可以,注意你要修改global.asa文件。
application是将数据永远放在内存里面,不要乱使用。