⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 a_count_bb.asp

📁 1。超强文件读写锁定
💻 ASP
字号:
<%'创建时间:2006/4/3
'创建人:
 %>

<!--#include virtual="/Agent/Include/conn.asp" -->

<%sql = "select isnull(max(kithe_issue),0) from kithe"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
Invest_issue=rs(0)+1
rs.close%>
  <% 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%>

<%set ss=server.CreateObject("adodb.recordset")
sql="select * from ss"
ss.open sql,conn,1,1
set rate=server.createobject("adodb.recordset")
rate_sql="select rate_bb from rate_1"
rate.open rate_sql,conn,1,1
set rate2=server.createobject("adodb.recordset")
rate2_sql="select rate_t,rate_number from rate_1 where rate_number >57"
rate2.open rate2_sql,conn,1,1

set rs_3=server.CreateObject("adodb.recordset")
 count_3= "SELECT a.rate_t AS rate, a.rate_number, ISNULL(b.money_all, 0) AS money_all, isnull(b.re,0) AS re FROM (SELECT rate_t, rate_number  FROM rate_1  WHERE rate_number > 57 AND rate_number < 61) a LEFT OUTER JOIN (SELECT invest_number, money_all = SUM(invest_money), isnull(COUNT(invest_id), 0) AS re FROM invest  WHERE (invest_type = 5) AND (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND  invest_issue = "&count_issue&"  GROUP BY invest_number) b ON b.invest_number = a.rate_number ORDER BY a.rate_number"
  rs_3.open count_3,conn,1,1
%>
<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;
	text-decoration: none;
}

-->
</style>
<meta>
</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>
&nbsp;<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" cellpadding="0" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#BCD5E4">
    <td width="6%" align="center">时间</td>
    <td width="5%" align="center">期数</td>
    <td width="6%" align="center">半波</td>
    <td width="6%" align="center">赔 率</td>
    <td width="6%" align="center">半波</td>
    <td width="6%" align="center">赔 率</td>
    <td width="6%" align="center">半波</td>
    <td width="6%" align="center">赔 率</td>
    <td width="6%" align="center">半波</td>
    <td width="6%" align="center">赔 率</td>
  </tr>
  <tr bgcolor="#BCD5E4">
    <td rowspan="3" align="center" bgcolor="#F2F2F2"><%=formatdatetime(now,0)%></td>
    <td rowspan="3" align="center" bgcolor="#F2F2F2"><%=count_issue%></td>
    <td width="6%" align="center" bgcolor="#F2F2F2">红单</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =65) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=65&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%></td>
    <td width="6%" align="center" bgcolor="#F2F2F2">红双</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">
	<% rate.movefirst
	response.write rate("rate_bb")
	rate.movenext
	%>
	<% response.write "<BR>"
	set rs_s2=server.CreateObject("adodb.recordset")
 count_2="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =66) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s2.open count_2,conn,1,1
if rs_s2.eof and  rs_s2.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=66&type=10' class='lp'>" &rs_s2("re")&"/"&rs_s2("in_money")&"</a>"
	end if
	%></td>
    <td width="6%" align="center" bgcolor="#F2F2F2">红大</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">
	<%response.write rate("rate_bb")
	rate.movenext%>
	<% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =67) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=67&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
	</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">红小</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">
	<%response.write rate("rate_bb")
	rate.movenext%>
    <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =68) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=68&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>	</td>
  </tr>
  <tr bgcolor="#BCD5E4">
    <td width="6%" align="center" bgcolor="#F2F2F2">绿单</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =69) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=69&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">绿双</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =70) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=70&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">绿大</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =71) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=71&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%></td>
    <td width="6%" align="center" bgcolor="#F2F2F2">绿小</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =72) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=72&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
  </tr>
  <tr bgcolor="#BCD5E4">
    <td width="6%" align="center" bgcolor="#F2F2F2">蓝单</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =73) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=73&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">蓝双</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =74) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=74&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">蓝大</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =75) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=75&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
    <td width="6%" align="center" bgcolor="#F2F2F2">蓝小</td>
    <td width="6%" align="center" bgcolor="#F2F2F2"><%response.write rate("rate_bb")
	rate.movenext%>
      <% response.write "<BR>"
	set rs_s1=server.CreateObject("adodb.recordset")
 count_1="SELECT Invest_rate1, Invest_secondtype, COUNT(*) AS re,SUM(Invest_money ) AS in_money FROM Invest_l WHERE (Invest_frist='"&session("a_name")&"' or invest_second='"&session("a_name")&"') AND (Invest_banlance = 0) AND (Invest_type = '10') AND (Invest_secondtype =76) AND (Invest_issue = "&count_issue&") GROUP BY Invest_secondtype, Invest_rate1" 
  rs_s1.open count_1,conn,1,1
if rs_s1.eof and  rs_s1.bof then
response.write "<font color='#FF0000'>0/0</font>"
else
	response.write "<a href='View_Counts.asp?num=76&type=10' class='lp'>" &rs_s1("re")&"/"&rs_s1("in_money")&"</a>"
	end if
	%>
</td>
  </tr>
</table>
    </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -