66hc_ll.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#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>