Question

关于网页计数器,高手来

我想自己做一个网页计数器,我不要网上下的那种,那样会连接到他们的网站.我只要个能访问一次就在数据上面加一次的计数器.并且是要防止刷新的.对了,过程要详细点,本人很菜,最好将代码,保存文件名,路径都给我讲清楚.我在这里先谢你了.
怎么不计数呢 .能再具体些吗?

Answer 1

如果你用ASP程序，可以用这段代码。
把一下代码放在Conn.asp或者连接数据库的文件文件中。
<%sub bbscount()
if session("in")<>"in" then
session("in")="in"
application.lock
conn.execute("update [counter] set [count]=count+1,today=today+1")
end if

sql="select * from [counter]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

if formatdatetime(now(),2)<>formatdatetime(rs(2),2) then
if rs(3)>rs(6) then
rs(6)=rs(3)
end if
rs(5)=rs(3)
rs(3)=1
rs(4)=rs(4)+1
rs(2)=formatdatetime(now(),2)
rs.update
end if

dim s, i,g
dim countlong,avg
countlong=6
avg=int(rs(0)\rs(4))
g =CStr(rs(0))
s =Len(g)

response.write "<a style=""CURSOR: hand""title=--------------"&HomeNameL&"--------------"&_
" 今日访问："&rs(3)&"人"&_
" 昨日访问："&rs(5)&"人" &_
" 最高日访问："&rs(6)&"人" &_
" 平均日访问："&avg&"人"&_
" 总访问人数："&rs(0)&"人"&_
" 总统计天数："&rs(4)&"天"&_
" 统计日期："&formatdatetime(rs(1),1)&""&_
"-------------"&HomeUrlL&"--------------"&_
">"
For i = 1 to countlong - s
response.write"<img src='images/counter/0.gif'></img>"
next
for i=1 to s
response.write "<img src='images/counter/" & mid(g,i,1) & ".gif'></img>"
next
response.write "</a>"
rs.close
set rs=nothing
end sub%>

以下代码放在你要现实计数器的地方：
<%call bbscount%>

补充答案:抱歉抱歉，忘了告诉你，还要在数据库中添加字段，详细的说明在这里：http://hi.baidu.com/bahes/blog/item/a7ee282d64ebf037359bf719.html
如果实在不明白，QQ:247836