<% Dim conn,sqlstr,db db="count.asa" 'ÊäĊ�뗖 set conn = Server.CreateObject("ADODB.Connection") sqlstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open sqlstr function closedb conn.close set conn=nothing end function dim kicktime kicktime=120 'ɨփɾ㽔ڏߊ�᭖§ØəðÜӄڲ뻮عuª�dim ownsitekey,ownsiteurl ownsitekey="pinghu.net" ownsiteurl="www.pinghu.net" 'ה캕춓⃻ %> <% sql="select * from cnt where id =1" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 totalip=rs("totalip") totalpv=rs("totalpv") startday=rs("startday") yesdayip=rs("yesdayip") yesdaypv=rs("yesdaypv") day2ip=rs("day2ip") day2pv=rs("day2pv") dd=datediff("d",startday,date()) if dd=0 then dd=1 end if set rs=nothing function todayip() sql="Select count(id) from ip" set ips=conn.execute(sql) todayip=ips(0) ips.close set ips=nothing end function function todaypv() sql="Select sum(n) from ip" set rs=conn.execute(sql) If rs.eof and rs.bof Then todaypv=0 Else todaypv=rs(0) end if rs.close set rs=nothing end function function online() sql="Select count(id) from ip WHERE DATEDIFF('s', lastime, now()) < "&kicktime&"*60" set ips=conn.execute(sql) online=ips(0) ips.close set ips=nothing end function %> document.write('�գ꼦ont color="#FF6600"><%=todaypv()%>  ײȕ㺼font color="#FF6600"><%=yesdaypv%>'); <% call closedb %>