<%
dim rs,strsql
'Session("IP")=Request.ServerVariables("REMOTE_ADDR")
Session("Boot")="True"
if Session("User")="" then
Session("User")=Session.SessionID
set rs=Server.CreateObject("ADODB.Recordset")
set cnn=server.createobject("ADODB.Connection")
cnn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("database\data.asp")
strsql="Select * From counter"
rs.open strsql,cnn,1,3
if cstr(month(rs("Date")))<>cstr(month(Date)) then
'月份不同，当月和当天浏览数置1
rs("Date")=now
rs("Month")=1
rs("Today")=1
rs("Total")=rs("Total")+1
elseif cstr(day(rs("Date")))<>cstr(day(date)) then
'天数不同，当天浏览数置1
rs("Date")=now
rs("Month")=rs("Month")+1
rs("Total")=rs("total")+1
rs("Today")=1
else
rs("Date")=now
rs("Total")=rs("Total")+1
rs("Month")=rs("Month")+1
rs("Today")=rs("today")+1
end if
rs.update
rs.close
cnn.close
set rs=nothing
set cnn=nothing
end if
%>
www.aserp.net
