|
主题: 请教!
|
 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是将数据永远放在内存里面,不要乱使用。
|