|
<%
'连接数据库
'on error resume next
hhconnstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("http://www.1000sun.com/ml/cszx/count.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 "本系统自 "&rscount1("starttime")&" 以来一共使用 "&rscount1("totalcount")&" 次,"&"其中今天使用 "&rscount1("todaycount")&" 次"&",平均每秒使用 "&FormatNumber((rscount1("totalcount")/(datediff("d",rscount1("starttime"),now())+1))/86400,4,-1)&" 次。 "
end if
%>
<%
'连接数据库
hhconnstr2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("http://www.1000sun.com/mL/cszx/count.mdb")
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open hhconnstr2
%>
<%
hhstrcount2="select * from nowuser"
set rscount2=conn2.execute(hhstrcount2)
if request.Cookies("1000sun")("xing") <> "" then
nowstr=request.Cookies("1000sun")("xing")&request.Cookies("1000sun")("ming")
conn2.execute("update nowuser set nowuser='"&nowstr&"'")
end if
%>
<%="祝福 "&rscount2("nowuser")&" 好运相伴"%>
|
