?? agent_z6.asp
字號:
<%'創建時間:2004/08/09
'創建人:
'功能:用于代理統計正碼一到六的統計
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<%'on error resume next
mp="a"
mp=Trim(Request.QueryString("pan"))
pan_t=0
pan=0
select case mp
case "a"
pan_t=0
pan=0
case "b"
pan_t=0.5
pan=0.01
case "c"
pan_t=1
pan=0.02
end select
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_pan='"&mp&"' and (invest_type=3 or invest_type=5) and invest_number<50) i right join (select rate_number,rate_z6 = (CASE WHEN (rate_number = 5 OR rate_number % 7 >= 5 OR rate_number % 7 = 0 OR rate_number = 7) THEN rate_z6 ELSE (rate_z6 -'"&pan&"') END) 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_pan='"&mp&"' and (invest_type=3 or invest_type=5) and invest_number<50) i right join (select rate_number,rate_z6 = (CASE WHEN (rate_number = 5 OR rate_number % 7 >= 5 OR rate_number % 7 = 0 OR rate_number = 7) THEN rate_z6 ELSE (rate_z6 -'"&pan&"') END) 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")="收付-正碼1-6"
M_rs.update%>
<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}
a:hover {
color: #0066FF;
text-decoration: none;
}
-->
</style>
<meta http-equiv="refresh" content="360">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<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"> <span class="style1"><span class="style2">六</span><span class="style3">合</span><span class="style4">彩</span></span>
<select name="menu1" onChange="MM_jumpMenu('self.parent.mainFrame',this,0)">
<option value="Agent_z6.asp?pan=a" selected>盤口</option>
<option value="Agent_z6.asp?pan=a">A盤</option>
<option value="Agent_z6.asp?pan=b">B盤</option>
<option value="Agent_z6.asp?pan=c">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">
<tr align="center" bgcolor="#CCCCCC">
<td height="22" bgcolor="#BCD5E4">類型</td>
<td bgcolor="#BCD5E4" height="22">正碼一</td>
<td bgcolor="#BCD5E4" height="22">正碼二</td>
<td bgcolor="#BCD5E4" height="22">正碼三</td>
<td bgcolor="#BCD5E4" height="22">正碼四</td>
<td bgcolor="#BCD5E4" height="22">正碼五</td>
<td bgcolor="#BCD5E4" height="22">正碼六</td>
</tr>
<%dim lx(6)
lx(0)="大"
lx(1)="小"
lx(2)="單"
lx(3)="雙"
lx(4)="紅"
lx(5)="綠"
lx(6)="藍"
x=1
for i=1 to 7
response.write "</tr><tr align='center' bgcolor='#CCCCCC'>"
for j=i to i+35 step 7
type1=5
if (j mod 7 >0 and j mod 7<5) then type1=3
%>
<%if i=x then
x=x+1%>
<td height="30" align="center" bgcolor="#f2f2f2"><%=lx(i-1)%></td>
<%end if%>
<td align="center" bgcolor="#f2f2f2" height="30"><%response.write AC(j,0)%><br><a href="view_count.asp?num=<%=j%>&type=<%=type1%>">
<font color="#FF0000"><%response.write AC(j,3)%>/<%response.write AC(j,1)%></font></a></td>
<%next
next%>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -