<table width="100%" height="5%" align="center" cellpadding="2" cellspacing="1"  bgcolor="#C0DBEF">
<tr>
<td align="center" bgcolor="#E3F2FD" class="smallTxt">
<p align="left">&nbsp;</p>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E3F2FD" class="smallTxt">
<%
'连接数据库
'on error resume next
hhconnstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/DataBase/#DataBaseSm.mdb")
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open hhconnstr1
%>
<%
hhstrcount1="select * from tongji"
set rscount1=conn1.execute(hhstrcount1)

if datediff("d",rscount1("today"),now()) >=1 then
hhstrcount2="update tongji set todaycount=0,today='"&dateadd("d",1,rscount1("today"))&"'"
conn1.execute(hhstrcount2)
end if

hhstrcount3="update tongji set todaycount=todaycount+1,totalcount=totalcount+1"
conn1.execute(hhstrcount3)

if not (rscount1.bof and rscount1.eof) then
response.write "本算命系统自&nbsp;<font color=#ff6600>"&rscount1("starttime")&"</font>&nbsp;以来一共使用&nbsp;<font color=#ff0000>"&rscount1("totalcount")&"</font>&nbsp;次,"&"其中今天使用&nbsp;<font color=#ff0000>"&rscount1("todaycount")&"</font>&nbsp;次"&",平均每秒使用&nbsp;<font color=#ff0000>"&FormatNumber((rscount1("totalcount")/(datediff("d",rscount1("starttime"),now())+1))/86400,4,-1)&"</font>&nbsp;次。&nbsp;"
end if
%>
<%
'连接数据库
hhconnstr2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/DataBase/#DataBaseSm.mdb")
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open hhconnstr2
%>
<%
hhstrcount2="select * from nowuser"
set rscount2=conn2.execute(hhstrcount2)
if request.Cookies("Bmcha")("xing") <> "" then
nowstr=request.Cookies("Bmcha")("xing")&request.Cookies("Bmcha")("ming")
conn2.execute("update nowuser set nowuser='"&nowstr&"'")
end if
%>
<%="最后一次是&nbsp;<font color=#ff0000>"&rscount2("nowuser")&"</font>&nbsp;在使用"%>
</td>
</tr>
</table>