<%
'<!--以下是计数器代码-->
days=now()
days=day(days)
set rsji=server.createobject("adodb.recordset")
sqlji="select top 1 * from jishu order by id desc"
rsji.open sqlji,conn,1,3
dataday=rsji("dates")
dataday=day(dataday)
if days=dataday then  
if Request.ServerVariables("REMOTE_ADDR")<>request.cookies("IPAddress") then
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") 
counts=rsji("counts")
counts=counts+1
persontime=rsji("persontime")
persontime=persontime+1
rsji("counts")=counts
rsji("persontime")=persontime
rsji.update 
else 
counts=rsji("counts")
counts=counts+1
rsji("counts")=counts
rsji.update 
end if 
else  
rsji.addnew 
rsji("counts")=1
rsji("persontime")=1
rsji.update 
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") 
end if
rsji.close
set rsji=nothing%>