<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Data/TimesCount.asp")
conn.open connstr
	
set rs=conn.Execute("select * from counter")
if rs("statdtm")<>date() then
yesday=date()-1
application.lock
conn.Execute"Update counter set counter=counter+1,today=0,statdtm=date(),daynum=daynum+1,yesterday="&rs("today")&""
conn.Execute"Insert into yesday(yesday,stats) values ('"&yesday&"',"&rs("today")&")"
application.unlock
else
application.lock
if rs("top")<rs("today") then
conn.Execute"Update counter set counter=counter+1,today=today+1,[top]="&rs("today")&""
else
conn.Execute"Update counter set counter=counter+1,today=today+1"
end if
application.unlock
end if
counters=rs("counter")
today=rs("today")
yesterday=rs("yesterday")
rs.close
set rs=nothing
conn.close
set conn=nothing
%> document.write('<font style="FONT-SIZE: 12px;COLOR: #333333;">×Ü¹²£º<font color=#01A1BB><b><%=counters%></b></font>£¬½ñÈÕ£º<font color=#81B902><b><%=today%></b></font></font>');