📄 agent_g.asp
字号:
<%'创建时间:2005/11/26
'创建人:
'功能:用于代理统计正码一到六的统计
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%'on error resume next
set AC_rs=server.createobject("adodb.recordset")
if session("a_rank")=1 then '区别是否为总代理
'row_2=4
AC_sql="select max(rate_z6) ,sum(isnull(money,0)),rate_number,count(re), sum(isnull(money2,0)) from (select r.rate_z6,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_agzc),r.rate_number,re=i.re,i.invest_second from (select money=isnull((invest_money),0) ,re=isnull((invest_id),0),invest_number,invest_second,invest_agzc from invest where (invest_number<50) and invest_issue="&count_issue&" and invest_frist='"&session("a_name")&"'and (invest_type=3 or invest_type=5) and invest_number<50) i right join (select * from rate_1 where (rate_number<50)) r on r.rate_number=i.invest_number) t group by rate_number "
'response.write ac_sql
else
'row_2=3
AC_sql="select max(rate_z6) ,sum(isnull(money,0)),rate_number,count(re), sum(isnull(money2,0)) from (select r.rate_z6,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_feizc),r.rate_number,re=i.re,i.invest_second from (select money=isnull((invest_money),0) ,re=isnull((invest_id),0),invest_number,invest_second,invest_feizc from invest where (invest_number<50) and invest_issue="&count_issue&" and invest_second='"&session("a_name")&"'and (invest_type=3 or invest_type=5) and invest_number<50) i right join (select * from rate_1 where (rate_number<50)) r on r.rate_number=i.invest_number) t group by rate_number "
end if
AC_rs.open AC_sql,conn,1,1
Dim AC(43,4)
col=1
do while not AC_rs.eof and col<43
for row=0 to 4
AC(col,row)=AC_rs(row)
next
AC_rs.movenext
col=col+1
loop
'for i=1 to 43
'for x=0 to 3
'response.write AC(i,x)&"|"
'next
'response.write "<br>"
'next
%>
<% dim s
s=session("A_name")
set M_rs=server.createobject("adodb.recordset")
M_sql="select Agent_page,Agent_online,Agent_id,Agent_name,Agent_realname,Agent_total,Agent_list,Agent_rank,Agent_restart,Agent_fronttime,Agent_regtime from Agent where Agent_name='"&s&"'"
M_rs.open M_sql,conn,1,3
M_rs("Agent_fronttime")=now()
M_rs("Agent_online")=now()
M_rs("Agent_page")="收付-过关"
M_rs.update%>
<%
x="单,双,大,小,红波,绿波,蓝波"
y="正码一,正码二,正码三,正码四,正码五,正码六"
x1=split(x,",")
y1=split(y,",")
dim aq(6,5)
dim mq(6,5)
dim xe(6,5)
set g_rs=server.createobject("adodb.recordset")
g_sql="select * from invest_l where (invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') and invest_issue='"&count_issue&"' and invest_type=8 "
g_rs.open g_sql,conn,1,3
for qq=0 to 6
for mm=0 to 5
aq(qq,mm)=0
mq(qq,mm)=0
xe(qq,mm)=0
next
next
do while not g_rs.eof and not g_rs.bof
hm=g_rs("invest_number")
cm=g_rs("invest_money")
ct=ct+cm
hm1=split(hm,",")
for i=1 to ubound(hm1)
rr=cint(hm1(i))
xw=cint(hm1(i)-1) mod 7
if int(hm1(i)) mod 7=0 then
select case int(hm1(i)/7)
case 1
yw=0
case 2
yw=1
case 3
yw=2
case 4
yw=3
case 5
yw=4
case 6
yw=5
end select
else
yw=int(cint(hm1(i))/7)
end if
xe(xw,yw)=rr
aq(xw,yw)=aq(xw,yw)+1
mq(xw,yw)=mq(xw,yw)+cm
next
g_rs.movenext
loop
%>
<html>
<head>
<link href="include/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-top: 0px;
}
.unnamed1 {
color: #FF9900;
text-decoration: none;
}
.style11 {color: #000000}
.lp {
color: #FF0000;
text-decoration: none;
}
a:hover {
color: #0066ff;
text-decoration: none;
}
.style1 {font-size: 12px}
.style2 {
color: #FF0000;
font-size: 12px;
}
.style3 {color: #009900}
.style4 {color: #0033FF}
-->
</style>
<meta http-equiv="refresh" content="360">
<title>无标题文档</title>
</head>
<body topMargin=0 style="background-color: #F2F2F2">
<table width="740" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" height="26">
<tr>
<td align="center"> 六合彩
<select name="menu1" onChange="MM_jumpMenu('self.parent.mainFrame',this)">
<option value="A_Countz.asp?pan=a" selected>盘口</option>
<option value="A_Count.asp?pan=a" <%if pan="a" then response.write "selected" %>>A盘</option>
<option value="A_Count.asp?pan=b" <%if pan="b" then response.write "selected" %>>B盘</option>
<option value="A_Count.asp?pan=c" <%if pan="c" then response.write "selected" %>>C盘</option>
</select>
<a href="A_Count.asp?pan=a"> 特码</a>---<a href="A_Countz.asp?pan=a">正码</a>---<a href="Agent_z6.asp?pan=a">正码1-6</a>---<a href="A_Count_l.asp">连码</a>---<a href="Agent_g.asp">正码过关</a>---<a href="A_Couns.asp">生肖色波一肖</a>---<a href="A_Count_6s.asp">六肖</a>---<a href="A_count_bb.asp">半波</a>---<a href="agent_dtail.asp"><font color="#248BCD">详细列表↓</font></a> </td>
</tr>
</table>
<table border="1" width="739" cellspacing="0" cellpadding="0" bordercolor="#AEB8C1" style="border-collapse: collapse" height="10%">
<tr>
<td width="739" valign="top">
<table width="100%" border="0" align="center" cellspacing="1" bgcolor="#999999" height="45">
<tr align="center" bgcolor="#CCCCCC">
<td height="19" bgcolor="#BCD5E4">类型</td>
<td bgcolor="#BCD5E4" height="19">单</td>
<td bgcolor="#BCD5E4" height="19">双</td>
<td bgcolor="#BCD5E4" height="19">大</td>
<td bgcolor="#BCD5E4" height="19">小</td>
<td bgcolor="#BCD5E4" height="19">红波</td>
<td bgcolor="#BCD5E4" height="19">绿波</td>
<td bgcolor="#BCD5E4" height="19">蓝波</td>
</tr>
<%dim lx(6)
lx(0)="正码一"
lx(1)="正码二"
lx(2)="正码三"
lx(3)="正码四"
lx(4)="正码五"
lx(5)="正码六"
x=0
l=0
for i=0 to 6
if l<6 then
response.write "</tr><tr align='center' bgcolor='#CCCCCC'>"
for j=0 to 6
type1=8
%>
<%if i=x then
x=x+1%>
<td height="20" align="center" bgcolor="#F2F2F2"><%=lx(i)%></td>
<%end if%>
<td align="center" bgcolor="#F2F2F2" height="20"><a href="view_count_g.asp?num=<%=xe(j,l)%>&type=<%=type1%>" class="style2">
<%response.write aq(j,l)%>/<%response.write mq(j,l)%></a></td>
<%next
l=l+1
end if
next
%>
</tr>
</table>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -