📄 a_countz.asp
字号:
<%'创建时间:2004/07/12
'创建人:
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<% 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%>
<%
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 rate= case when rate_number<50 then max(rate_z) when rate_number>49 then max(rate_t) end ,money1=sum(isnull(money,0)),rate_number,re=count(re) , money2=sum(isnull(money2,0)),max(rate_color) from (select r.rate_z,r.rate_t,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_agzc),r.rate_number,r.rate_color,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<54 or(invest_number>53 and invest_number<58)) and invest_issue="&count_issue&" and invest_frist='"&session("a_name")&"' and invest_pan='"&mp&"' and ((invest_type=2 and invest_number<50) or (invest_type=3 and invest_number>53 and invest_number<58) )) i right join (select rate_z, rate_t = (rate_t - '"&pan&"'), rate_number, rate_color from rate_1 where rate_number<50 or (rate_number >53 and rate_number<58)) r on r.rate_number=i.invest_number) t group by rate_number"
else
row_2=4
AC_sql="select rate= case when rate_number<50 then max(rate_z) when rate_number>49 then max(rate_t) end ,money1=sum(isnull(money,0)),rate_number,re=count(re) , money2=sum(isnull(money2,0)),max(rate_color) from (select r.rate_z,r.rate_t,money=isnull(i.money,0),money2=(isnull(i.money,0)*invest_feizc),r.rate_number,r.rate_color,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<54 or(invest_number>53 and invest_number<58)) and invest_issue="&count_issue&" and invest_second='"&session("a_name")&"'and invest_pan='"&mp&"' and ((invest_type=2 and invest_number<50) or (invest_type=3 and invest_number>53 and invest_number<58) )) i right join (select rate_z, rate_t = (rate_t - '"&pan&"'), rate_number, rate_color from rate_1 where rate_number<50 or (rate_number >53 and rate_number<58)) 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(59,5)
col=1
do while not AC_rs.eof and col<56
if col=50 then
AC(col,0)=" "
else
for row=0 to row_2
AC(col,row)=AC_rs(row)
if row=row_2 and col<50 then AC(col,row+1)=AC_rs(row+1)
next
AC_rs.movenext
end if
col=col+1
loop
%>
<html>
<head>
<link href="Include/css.css" rel="stylesheet" type="text/css">
<meta http-equiv='refresh' content='360'>
<title>无标题文档</title>
<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;
}
-->
</style>
<meta http-equiv="refresh" content="60">
</head><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>
<body style="background-color: #F2F2F2" topMargin=0>
<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="A_Countz.asp?pan=a" selected>盘口</option>
<option value="A_Countz.asp?pan=a">A盘</option>
<option value="A_Countz.asp?pan=b">B盘</option>
<option value="A_Countz.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="#f2f2f2">
<td width="5%" height="29" bgcolor="#BCD5E4">时间</td>
<td width="4%" bgcolor="#BCD5E4">期数</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<td width="4%" bgcolor="#BCD5E4">号码</td>
<td width="9%" bgcolor="#BCD5E4">注单</td>
<%x=1
for i=1 to 10
response.write "</tr> <tr align='center' bgcolor='#f2f2f2'>"
for j=1+i to I+60 step 10
%>
<%
if x=1 then
x=x+1
%>
<td rowspan="10"><%=formatdatetime(now,0)%></td>
<td rowspan="10"><%=count_issue%></td>
<%end if%>
<%if j<56 and j-1<>50 then
set rss=server.createobject("adodb.recordset")
sqlrss="select rate_image from rate_1 where rate_number='"&j-1&"'"
rss.open sqlrss,conn,1,1%>
<td align=middle class="<%=rss("rate_image")%>"> <%
select case j-1
case 51
response.write "总单"
case 52
response.write "总双"
case 53
response.write "总大"
case 54
response.write "总小"
case else
response.write right("0" & trim(cstr(j-1)),2)
end select%></td>
<td align=middle><%if session("a_rank")=2 then
if j-1<50 then
response.write AC(j-1,0)%><% response.write "<BR><a href='View_Count.asp?num="&j-1&"&type=2' class='lp' > "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
else
if j-1=50 then
response.write "j"%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=5' class='lp'> "&AC(1,3)&"/"&AC(1,1)&"</href>"
else
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=3' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
end if
end if
else
if j-1<50 then
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="&j-1&"&type=2' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
else
response.write AC(j-1,0)%><%response.write "<BR><a href='View_Count.asp?num="& AC(j-1,2)&"&type=3' class='lp'> "&AC(j-1,3)&"/"&AC(j-1,1)&"</href>"
end if
end if%></td>
<%else%>
<td colspan="2"><%
if j-1=50 then
response.write AC(50,0)
else
response.write " "
end if
%></td>
<%j=j+1
exit for
end if%>
<%next
next%>
<td colspan="2"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -