Question

内部网站防刷新的访问人数计数器代码，要详细的代码

我的是静态网站,求详细代码，不需注册的

Answer 1

<%

dim rs_hits
set 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")+1
rs_hits.update
session("UsingCount")=True
End If
hits=rs_hits("hits")
rs_hits.close
set rs_hits=nothing
conn.close
set conn=Nothing

End If
%>
document.write("<%= hits %>");

——广东新碧图文信息技术工作室 WEB研发部 竭诚为您服务。