asp 防刷新计数器

来源:百度知道 编辑:UC知道 时间:2024/06/15 20:46:30
访问计数器
<%
dim count
set count=server.CreateObject("mswc.pagecounter")
count.pagehit()
dim visit_number
visit_number=count.hits()
response.Write("您是第"& visit_number & "访问者")
%>
出现的问题:刷新一下,访问次数就加1。

请各位高手写以下防止刷新带来的访问次数的添加代码

<%
dim count
set count=server.CreateObject("mswc.pagecounter")
if Session("username") = "" then
count.pagehit()
Session("username") = "myguest"
end if
dim visit_number
visit_number=count.hits()
response.Write("您是第"& visit_number & "访问者")
%>

<%
dim count
set count=server.CreateObject("mswc.pagecounter")
if session("in")<>"in" then
count.pagehit()
session("in")="in"
end if
dim visit_number
visit_number=count.hits()
response.Write("您是第"& visit_number & "访问者")
%>

使用session做判断,也可以使用cookies
楼上都都行.