?<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="流量查詢" >
<p>
<%
Set rs1= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum(lc) as lcc from 66hc_url" 
rs1.open sql1,conn 
allnum=rs1("lcc") 
response.write "總的連出"&allnum&"次<br/>" 
rs1.close
set rs1=nothing

Set rs2= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum([66hc_zl]) as ljj from 66hc_url" 
rs2.open sql1,conn 
zjr=rs2("ljj") 
response.write "總的連入"&zjr&"次<br/>" 
rs2.close
set rs2=nothing

response.write "總的贏利"&zjr-allnum&"次<br/>" 
Set rs3= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum([66hc_jr]) as jrr from 66hc_url" 
rs3.open sql1,conn 
jrjr=rs3("jrr") 
response.write "今日進入"&jrjr&"次<br/>" 
rs3.close
set rs3=nothing

Set rs6= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum([66hc_jrc]) as jrc from 66hc_url" 
rs6.open sql1,conn 
jrcc=rs6("jrc") 
response.write "今日連出"&jrcc&"次<br/>" 
rs6.close
set rs6=nothing
response.write "今日贏利"&jrjr-jrcc&"次<br/>" 

Set rs4= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum([66hc_zr]) as zrr from 66hc_url" 
rs4.open sql1,conn 
zrzr=rs4("zrr") 
response.write "昨日進入"&zrzr&"次<br/>" 
rs4.close
set rs4=nothing

Set rs5= Server.CreateObject("ADODB.Recordset") 
sql1="Select sum([66hc_zrc]) as zrc from 66hc_url" 
rs5.open sql1,conn 
zrcc=rs5("zrc") 
response.write "昨日連出"&zrcc&"次<br/>" 
rs5.close
set rs5=nothing
response.write "昨日贏利"&zrzr-zrcc&"次<br/>" 

%>
----------<br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首頁</a><br/>
<a href="/?sb=<%=sb%>">返回網站首頁</a><br/>
報時:<%=time%>
</p></card></wml>