<%
'点击数统计
On Error Resume Next
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from [计数器]"
Rs.open Sql,Conn,1,3
if rs(3)=date() then
'利用session对象,防止刷新增加计数
if session("current_program")<>Request.ServerVariables("url") then
'点击数加1
rs(0)=rs(0)+1
rs(2)=rs(2)+1
session("current_program")=Request.ServerVariables("url")
end if
else
'新的一天计数初始化
rs(1)=rs(0)
rs(0)=1
rs(2)=rs(2)+1
rs(3)=date()
'利用session对象,防止刷新增加计数
session("current_program")=Request.ServerVariables("url")
End if
click_num=rs(2)
rs.update
rs.close
%>
访问量：<%=click_num%>16210
次
