自己使用的一套ASP网页计数器代码每次刷新都会增加访问数,帮忙看看加入怎样的代码才能防刷新计数?

[复制链接]
查看11 | 回复1 | 2017-7-3 23:09:24 | 显示全部楼层 |阅读模式
自己使用的一套ASP网页计数器代码每次刷新都会增加访问数,帮忙看看在count.asp中加入怎样的代码才能防刷新计数?
自己使用的ASP网页计数器代码coun.asp

document.write("");
以上代码文件中涉及到的文件conn.asp(也许无用,仅列于此,供参考)
", ">")
fString = replace(fString, "
")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString
end function
'检查输入email是否合法
function IsValidEmail(email)
Dim names
Dim name
Dim i
Dim c
IsValidEmail = true
names = Split(email, "@")
if UBound(names)1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name)2 and i3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
%>

回复

使用道具 举报

千问 | 2017-7-3 23:09:24 | 显示全部楼层
<%dim rs_hitsset rs_hits=server.CreateObject("adodb.recordset") sql="select * from hits"rs_hits.open sql,conn,1,3 If IsNull(session("UsingCount")) Or session("UsingCount")="" Then rs_hits("hits")=rs_hits("hits")+1rs_hits.updatesession("UsingCount")=TrueEnd Ifhits=rs_hits("hits")rs_hits.closeset rs_hits=
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行