离谱的计数器？

[learnmoreandmore]

以下代码是一个找到的计数器代码，为了验证它的准确性。我申请了一个免费的计数器(刷新一次加一)，两个放在一起。结果，在同样的初始值下，现在，申请的计数器是48，而此代码对应的计数器是230。为什么会这样？
我又把代码放在一个免费空间里，也是两个计数器比较。在那里却又还准确。为何？还要设置什么东西？请高手赐教!


<%
Dim conn,connStr,rs
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("count.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

Sql = "Select * From [count]"
Set rs = conn.Execute(sql)
If IsEmpty(Session("hasbeenConnected")) then
Application.Lock
conn.Execute("UPDATE [count] SET hit = hit+1")

Application.UnLock
Session("hasbeenConnected")=True
End If
response.write("<center>您是第")
response.write(rs("hit"))
response.write("位贵客</center>")
conn.Close()
Set conn = Nothing
%>

[learnmoreandmore]

是不是要设置global.asa

[learnmoreandmore]

使用的系统是win98+pws

[好记忆不如烂笔头abc]

用JYC统计吧，没有比这个更完美的了。

[好记忆不如烂笔头abc]

不好意思,忘了地址：http://www.adjyc.com/about.htm

[learnmoreandmore]

主要是想弄清这段代码为何不能在机子上准确计数

[fangxianzhong]

你 申请的 计数器 是 独立Ip统计。 而你的 是 Page 统计。 不一样的。

[learnmoreandmore]

高手支支招

[zol318]

我给大家推荐一个asp.net学习平台！
我看到了一个网站 100MB asp和 asp.net空间 现在促销，
同学们可以做一个简单的个人网站用来找工作 ，
支持 asp.net 一年才50元！不要错过哦！！！
速度非常快，一般公司企业 足够用了！
http://www.hi876.com
希望能对大家有帮助

[learnmoreandmore]

没有解决我的问题呀？

[learnmoreandmore]

这叫我怎么结帖？

[cudng]

strsql="update [count] set kit="& rs("kit")+1 &"'"

你尝试将SQL语言更改一下,

还有..如果没有什么必要,,若单单统计人数,其实也不用写入数据库,,直接写入文本却还实际一些

[cudng]

不好意思..
strsql="update [count] set kit="& rs("kit")+1 &""
多了一个单引号,因为kit这个字段是数值型

[learnmoreandmore]

我也不好意思，到现在才来看帖。我以为没人会回帖呢！好，我试试。

[learnmoreandmore]

我有点明白了，可能是犯了个逻辑错误，应该是数据库中的hit字段值增一，而代码中是hit变量不断增。故错，是这样吗？我先看看，没错的话，明天可以结帖。谢谢

[learnmoreandmore]

还是不行呀！我把计数器的数值从1023调到与参考计数器的72数值相同，然后开机留着。现在再打开网页，发现成了计数值是88，而参考值是76。又不一样了。为什么？高手请赐教呀！

[rayFairy]

<%
Dim conn,connStr,rs
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("count.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

If IsEmpty(Session("hasbeenConnected")) then
conn.Execute("UPDATE [count] SET hit = hit+1")
Session("hasbeenConnected")=True
End If

Sql = "Select * From [count]"
Set rs = conn.Execute(sql)

response.write("<center>您是第")
response.write(rs("hit"))
response.write("位贵客</center>")
conn.Close()
Set conn = Nothing
%>

[rayFairy]

如果还不行，那么session.timeout过小，设大点即可

[learnmoreandmore]

哦，谢谢，我现在去试试。

[learnmoreandmore]

可能还是要改session.timeout的值吧

[learnmoreandmore]

如果设session.timeout又如何设？