📄 report_all.asp

📁 1。超强文件读写锁定
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      <td width=90>会员</td>
      <td width=70>退水</td>
      <td width=90>结果</td>
      <td width=90>代理商</td>
      <td width=70>退水</td>
      <td width=60>成数</td>
      <td width=90>结果</td>
      <td>备注</td>
    </tr>
    <tr class=m_rig>
      <td align=middle><%=Manager%></td>
      <td><%=ShowAgent(5,0)%></td>
      <td><a  href="report_agent.asp?wtype=<%=request("wtype")%>&amp;pay_type=<%=request("pay_type")%>&amp;bet_type=<%=request("bet_type")%>&amp;DATE_START=<%=request("DATE_START")%>&amp;DATE_END=<%=request("DATE_END")%>"><%=replace(formatnumber(ShowAgent(0,0),2,-1),",","")%></a></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
	  <td><%=replace(formatnumber(ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0)+ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(4,0),2,-1),",","")%></td>
      <td><%'="0"&(1-self_cuts)%>1.00</td>
      <td><%=replace(formatnumber((ShowAgent(1,0)+ShowAgent(4,0)),2,-1),",","")%></td>
      <td align=middle></td>
    </tr>
	<%'next%>
    <tr class=m_rig_re>
      <td><font color=#cc0000><%=manager%> 小计</font></td>
      <td><%=ShowAgent(5,0)%></td>
      <td><%=replace(formatnumber(ShowAgent(0,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0)+ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(4,0),2,-1),",","")%></td>
      <td></td>
      <td><%=replace(formatnumber((ShowAgent(1,0)+ShowAgent(4,0)),2,-1),",","")%></td>
      <td></td>
    </tr>
    <tr>
      <td colspan=10 height=1></td>
    </tr>
    <tr class=m_rig_to>
      <td>总计</td>
      <td><%=ShowAgent(5,0)%></td>
      <td><%=replace(formatnumber(ShowAgent(0,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0)+ShowAgent(2,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(1,0),2,-1),",","")%></td>
      <td><%=replace(formatnumber(ShowAgent(4,0),2,-1),",","")%></td>
      <td></td>
      <td><%=replace(formatnumber((ShowAgent(1,0)+ShowAgent(4,0)),2,-1),",","")%></td>
      <td></td>
    </tr>
  </tbody>
</table>
<%else%>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD align=middle bgColor=#cc0000 height=30>
      <MARQUEE behavior=alternate width=200 align="middle"><FONT 
      color=#ffffff>查无任何资料</FONT></MARQUEE></TD>
  <TR>
    <TD align=middle bgColor=#cccccc height=20><A 
      href="javascript:history.go(-1);">离开</A></TD></TR></TBODY></TABLE>
	<%end if%>
<%else%>
<%SQL6="select Agent_first,dai_zc=isnull(SUM(dai_zc) / COUNT(*),0),zong_zc=isnull(SUM(zong_zc) / COUNT(*),0) from m_chilp where chilp_time >='"&date_start&"' and chilp_time <='"&date_end&"'  AND Agent_second='"&Manager&"' group by Agent_first "
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
	If Not Rs6.Eof  Then
     ShowAgent=Rs6.GetRows(-1)
	 %>
<TABLE class=m_tab cellSpacing=1 cellPadding=0 width=800 bgColor=#000000 
border=0>
  <TBODY>
  <TR class=m_title_reall>
    <TD colSpan=9>信用额度</TD></TR></TR>
  <TR class=m_title_reall>
    <TD width=90>代理商</TD>
    <TD width=60>笔数</TD>
    <TD width=120>下注金额</TD>
    <TD width=120>会员</TD>
    <TD width=120>代理商</TD>
    <TD width=120>总代理</TD>
    <TD>备注</TD></TR>
	<%sum_money=0
	mem_result=0
	dai_result=0
	zong_result=0
	for I=0 to ubound(ShowAgent,2)%>
	<%if trim(ShowAgent(0,I))="0" then
	else
	SQL6="SELECT sum_m = isnull(SUM(sum_m), 0), mem_result = isnull(SUM(mem_result), 0),mem_ds = isnull(SUM(mem_ds), 0), ag_ds = isnull(SUM(ag_ds), 0),zong_ds = isnull(SUM(zong_ds), 0), re = COUNT(*) FROM (SELECT sum_m, mem_ds = CASE WHEN banlance = 0 or amount='和局'  THEN 0 ELSE sum_m * rake / 100 END,mem_result = CASE WHEN banlance = 0 or amount='和局'  THEN 0 ELSE CASE WHEN result = 0 THEN - sum_m WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l* rate * result - sum_m ELSE sum_m * (rate - 1) END) END END, ag_ds = CASE WHEN banlance = 0 or amount='和局'  THEN 0 ELSE sum_m * dai_ds / 100 END, zong_ds = CASE WHEN banlance = 0 THEN 0 ELSE sum_m * zong_ds / 100 END FROM m_chilp WHERE chilp_time >='"&date_start&"' and chilp_time <='"&date_end&"'  AND Agent_first = '"&ShowAgent(0,I)&"'"
	select case trim(request("wtype"))
case "1"
SQL6=SQL6&" and sort = '特别号' and chilp_value<>'单' and chilp_value<>'双' and chilp_value<>'大' and chilp_value<>'小' and chilp_value<>'合单' and chilp_value<>'合双'"
'show_wtype="特别号"
case "2"
SQL6=SQL6&" and sort = '特别号' and (chilp_value='单' or chilp_value='双')"
'show_wtype="特别号:单双"
case "3"
SQL6=SQL6&" and sort = '特别号' and (chilp_value='大' or chilp_value='小')"
'show_wtype="特别号:大小"
case "4"
SQL6=SQL6&" and sort = '特别号' and (chilp_value='合单' or chilp_value='合双')"
'show_wtype="特别号:合数单双"
case "5"
'show_wtype="色波"
SQL6=SQL6&" and sort = '色波'"
case "6"
SQL6=SQL6&" and sort = '正码' and chilp_value<>'总单' and chilp_value<>'总双' and chilp_value<>'总大' and chilp_value<>'总小'"
'show_wtype="正码"
case "7"
SQL6=SQL6&" and (chilp_value = '总单' or chilp_value = '总双')"
'show_wtype="总和:单双"
case "8"
SQL6=SQL6&" and (chilp_value = '总大' or chilp_value = '总小')"
'show_wtype="总和:大小"
case "9"
SQL6=SQL6&" and sort = '正码1-6' and (chilp_value='单' or chilp_value='双')"
'show_wtype="正码1-6:单双"
case "10"
SQL6=SQL6&" and sort = '正码1-6' and (chilp_value='大' or chilp_value='小')"
'show_wtype="正码1-6:大小"
case "11"
SQL6=SQL6&" and sort = '正码1-6' and (chilp_value='红波' or chilp_value='绿波' or chilp_value='蓝波')"
'show_wtype="正码1-6:色波"
case "12"
SQL6=SQL6&" and chilp_types = '三全中'"
'show_wtype="三全中"
case "13"
SQL6=SQL6&" and chilp_types = '三中二'"
'show_wtype="三中二"
case "14"
SQL6=SQL6&" and chilp_types = '二全中'"
'show_wtype="二全中"
case "15"
SQL6=SQL6&" and chilp_types = '二中特'"
'show_wtype="二中特"
case "16"
SQL6=SQL6&" and chilp_types = '特串'"
'show_wtype="特串"
case "17"
SQL6=SQL6&" and sort = '正码过关'"
'show_wtype="正码过关"
case "18"
SQL6=SQL6&" and sort = '十二生肖'"
'show_wtype="生肖"
case "19"
SQL6=SQL6&" and sort = '一肖'"
'show_wtype="一肖"
case "20"
SQL6=SQL6&" and sort = '特码补牌'"
'show_wtype="特码补牌"
case else
'show_wtype="全部"
end select
	SQL6=SQL6&" ) i "
	'response.write SQL6
	Set Rs6=Conn.Execute(SQL6)
	If Not Rs6.Eof  Then
     Showzong=Rs6.GetRows(1)
	end if%>
  <TR class=m_rig>
    <TD align=middle><%=ShowAgent(0,I)%></TD>
    <TD><%=Showzong(5,0)%></TD>
    <TD><a  href="report_agent.asp?AgentName=<%=trim(ShowAgent(0,I))%>&wtype=<%=request("wtype")%>&amp;pay_type=<%=request("pay_type")%>&amp;bet_type=<%=request("bet_type")%>&amp;DATE_START=<%=request("DATE_START")%>&amp;DATE_END=<%=request("DATE_END")%>"><%=replace(formatnumber(Showzong(0,0),2,-1),",","")%></A></TD>
    <TD><%=replace(formatnumber(Showzong(1,0)+Showzong(2,0),2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(Showzong(1,0)+Showzong(3,0),2,-1),",","")%></TD>
    <TD><%=replace(formatnumber((Showzong(1,0)+Showzong(4,0)),2,-1),",","")%></TD>
    <TD>0.00/0.00</TD></TR>
	<%count_sum=count_sum+Showzong(5,0)
	sum_money=sum_money+Showzong(0,0)
	mem_ds=mem_ds+Showzong(2,0)
	mem_result=mem_result+Showzong(1,0)+Showzong(2,0)
	dai_result=dai_result+Showzong(1,0)+Showzong(3,0)
	zong_result=zong_result+(Showzong(1,0)+Showzong(4,0))
	zong=zong+Showzong(1,0)
	zong_ds=zong_ds+Showzong(4,0)
	end if
	next%>
  <TR class=m_rig_to>
    <TD>小计</TD>
    <TD><%=count_sum%></TD>
    <TD><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(mem_result,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(dai_result,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(zong_result,2,-1),",","")%></TD>
    <TD></TD></TR></TBODY></TABLE>
<BR><!-----------------↓ 加总资料区段 ↓------------------------->
<TABLE class=m_tab cellSpacing=1 cellPadding=0 width=800 border=0>
  <TBODY>
  <TR class=m_title_reall>
    <TD width=90>总代理</TD>
    <TD width=60>笔数</TD>
    <TD width=120>下注金额</TD>
    <TD width=120>会员</TD>
    <TD width=95>总代理</TD>
    <TD width=90>退水</TD>
    <TD width=50>成数</TD>
    <TD>结果</TD></TR>
  <TR class=m_rig>
    <TD><%=Manager%></TD>
    <TD><%=count_sum%></TD>
    <TD><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(mem_result,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(zong,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(zong_ds,2,-1),",","")%></TD>
    <TD><%'=formatnumber(self_cuts,2,-1)%>1.00</TD>
    <TD><%=replace(formatnumber(zong+zong_ds,2,-1),",","")%></TD>
  </TR></TBODY></TABLE>
  <%else%>
  <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD align=middle bgColor=#cc0000 height=30>
      <MARQUEE behavior=alternate width=200 align="middle"><FONT 
      color=#ffffff>查无任何资料</FONT></MARQUEE></TD>
  <TR>
    <TD align=middle bgColor=#cccccc height=20><A 
      href="javascript:history.go(-1);">离开</A></TD></TR></TBODY></TABLE>
    <%end if%>
<%end if%>

<!-----------------↑ 加总资料区段 ↑-------------------------><!-----------------↑ 信用额度资料区段 ↑-------------------------></BODY></HTML>
上一页 12
💿 文件大小 1123 K
👤 上传用户 liubixing
📂 所属分类数据库系统
🏷️ 相关标签

#读写
⌨️ 快捷键说明

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