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

📄 report_agent.asp

📁 买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql
💻 ASP
字号:
🔍 
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
  If Session("SK2Admin")="" Then
    Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
    Response.End
  End If
  
If Not Isdate(Request("date_start")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Not Isdate(Request("date_end")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Request("AgentName")="" Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
Manager=request("Agentname")
Set Rs6=Conn.Execute("select top 1 self_cuts,super_cuts,P_AgentID from m_agent where Login_Name='"&Manager&"'")
	If Not Rs6.Eof Then
     self_cuts=cdbl(Rs6("self_cuts")/100)
	 super_cuts=cdbl(Rs6("super_cuts")/100)
	 P_AgentID=Rs6("P_AgentID")
	End If
dim date_start,date_end,pay_type,bet_type,wtype
date_start= cdate(Request("date_start"))
date_end =dateadd("d",1,cdate(Request("date_end")))
pay_type=trim(request("pay_type"))
select case trim(request("pay_type"))
case "0"
show_pay_type="信用额度"
case "1"
show_pay_type="现金"
case else
show_pay_type="全部"
end select

bet_type=trim(request("bet_type"))
select case trim(request("bet_type"))
case "T"
show_bet_type="电话下注"
case "N"
show_bet_type="网路下注"
case else
show_bet_type="全部"
end select

wtype=trim(request("wtype"))
select case trim(request("wtype"))
case "1"
show_wtype="特别号"
case "2"
show_wtype="特别号:单双"
case "3"
show_wtype="特别号:大小"
case "4"
show_wtype="特别号:合数单双"
case "5"
show_wtype="色波"
case "6"
show_wtype="正码"
case "7"
show_wtype="总和:单双"
case "8"
show_wtype="总和:大小"
case "9"
show_wtype="正码1-6:单双"
case "10"
show_wtype="正码1-6:大小"
case "11"
show_wtype="正码1-6:色波"
case "12"
show_wtype="三全中"
case "13"
show_wtype="三中二"
case "14"
show_wtype="二全中"
case "15"
show_wtype="二中特"
case "16"
show_wtype="特串"
case "17"
show_wtype="正码过关"
case "18"
show_wtype="生肖"
case "19"
show_wtype="一肖"
case "20"
show_wtype="六肖"
case "21"
show_wtype="半波"
case else
show_wtype="全部"
end select

  Show_Kithe
%>

<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="../images/control_main.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR><style type="text/css">
<!--
body,td,th {
	color: #FF0000;
}
-->
</style></HEAD>
<BODY vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0 
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=800 border=0>
  <TBODY>
  <TR>
    <TD colSpan=2 height=4></TD></TR>
  <TR>
    <TD class=m_tline width=750>&nbsp;&nbsp;代理:<%=request("AgentName")%> --日期:<%=request("date_start")%>~<%=request("date_end")%> -- 
      报表分类:总帐 -- 投注方式:<%=show_pay_type%> -- 投注种类:<%=show_wtype%> -- 下注管道:<%=show_bet_type%> -- <A 
      href="javascript:history.go(-1);">回上一页</A> </TD>
    <TD width=30></TD></TR>
  <TR>
    <TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<%
Agent_first=request("AgentName")
%>
<TABLE width="100%" border=1 cellPadding=2 cellSpacing=1 >
  <TBODY>

  <TD colSpan=8 align="center" bgcolor="#FFFF00">信用额度</TD>
    </TR></TR>
  <TR >
    <TD width=120 align="center" bgcolor="#FFFF00">会员</TD>
    <TD width=60 align="center" bgcolor="#FFFF00">笔数</TD>
    <TD width=100 align="center" bgcolor="#FFFF00">下注金额</TD>
    <TD width=100 align="center" bgcolor="#FFFF00">会员</TD>
    <TD width=100 align="center" bgcolor="#FFFF00">代理商金额</TD>
    <TD width=100 align="center" bgcolor="#FFFF00">代理商</TD>
    <TD width=120 align="center" bgcolor="#FFFF00">币值</TD>
    <TD width=60 align="center" bgcolor="#FFFF00">成数</TD>
  </TR>
	<%sum_money=0
	mem_result=0
	dai_result=0
	zong_result=0
	set rs8=conn.execute("select DISTINCT member from m_chilp where Agent_first = '"&Agent_first&"'")
	do while not rs8.eof
	SQL6="SELECT sum_m = isnull(SUM(sum_m), 0), mem_result = isnull(SUM(mem_result), 0), mem_ds = isnull(Sum(sum_m * mem_ds/100), 0), dai_ds = isnull(Sum(sum_m * (dai_ds - mem_ds)/100), 0), zong_ds = isnull(Sum(sum_m * (zong_ds - dai_ds)/100), 0), guan_ds = isnull(Sum(sum_m * (guan_ds - zong_ds)/100), 0), re = COUNT(*), dai_result = isnull(sum((mem_result+Abs(sum_m) * mem_ds/100)*(1-(dai_zc/10))), 0), zong_result = isnull(sum((mem_result+Abs(sum_m) * mem_ds/100)*(1-(zong_zc/10))),0), guan_result = isnull(sum((mem_result+Abs(sum_m) * mem_ds/100)*(1-(guan_zc/10))),0), dagu_result = isnull(sum((mem_result+Abs(sum_m) * mem_ds/100)*(1-(dagu_zc/10))),0),dagu_ds=isnull(Sum(mem_result * guan_ds/100-mem_result * mem_ds/100),0),total_guan_zc=Isnull(sum(total_guan_zc), 0) FROM (SELECT sum_m, mem_ds = IsNull(Abs(rake),0), 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, dai_zc = isNull(dai_zc,0), zong_zc = isNull(zong_zc,0), guan_zc = isNull(guan_zc,0), dagu_zc = isNull(dagu_zc,0), dai_ds = IsNull(Abs(dai_ds),0), zong_ds = isNull(Abs(zong_ds),0), guan_ds = IsNull(Abs(guan_ds),0), total_guan_zc=sum_m*guan_zc/10 FROM m_chilp WHERE chilp_time >='"&date_start&"' and chilp_time <='"&date_end&"'  AND Agent_first = '"&Agent_first&"' and member='"&rs8("member")&"'"
	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 = '六肖'"
case "21"
SQL6=SQL6&" and sort = '半波'"
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><%=rs8("member")%>(人民币)</TD>
    <TD><%=Showzong(6,0)%></TD>
    <TD><a  href="report_member.asp?member=<%=rs8("member")%>&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(7,0)+Showzong(3,0),2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(Showzong(7,0)+Showzong(3,0),2,-1),",","")%></TD>
    <TD>(人民币)<%=replace(formatnumber(Showzong(7,0)+Showzong(3,0),2,-1),",","")%></TD>
    <TD><%If Abs(Showzong(1,0)+Showzong(2,0)) > 0 Then
    Response.Write replace(formatnumber(1-Showzong(7,0)/(Showzong(1,0)+Showzong(2,0)),2,-1),",","")
    Else
    Response.Write "0.00"
    End If
    %></TD></TR>
	<%
	count_sum=count_sum+Showzong(6,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(7,0)+Showzong(3,0)
	zong=zong+Showzong(1,0)
	agent_ds=agent_ds+Showzong(5,0)
	rs8.movenext
  loop
	%>
  <TR class=m_rig_to>
    <TD bgcolor="#FFFFCC">小计</TD>
    <TD bgcolor="#FFFFCC"><%=count_sum%></TD>
    <TD bgcolor="#FFFFCC"><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
    <TD bgcolor="#FFFFCC"><%=replace(formatnumber(mem_result,2,-1),",","")%></TD>
    <TD bgcolor="#FFFFCC"><%=replace(formatnumber(dai_result,2,-1),",","")%></TD>
    <TD bgcolor="#FFFFCC"><%=replace(formatnumber(dai_result,2,-1),",","")%></TD>
    <TD bgcolor="#FFFFCC"></TD>
<TD bgcolor="#FFFFCC"></TD>
  </TR></tbody></table>
    <br>
 <TABLE width="100%" border=1 cellPadding=2 cellSpacing=1 >
  <tbody>
  <TR >
    <TD colSpan=8 align="center" bgcolor="#FFFF00">总计</TD>
  </TR>
<!-----------------↓ 加总资料区段 ↓------------------------->
  <TR >
    <TD width="120" align="center" bgcolor="#FFFF00">代理</TD>
    <TD width="60" align="center" bgcolor="#FFFF00">笔数</TD>
    <TD width="100" align="center" bgcolor="#FFFF00">下注金额</TD>
    <TD width="100" align="center" bgcolor="#FFFF00">代理</TD>
    <TD width="100" align="center" bgcolor="#FFFF00">退水</TD>
    <TD width="100" align="center" bgcolor="#FFFF00">结果</TD>
    <TD width="60" align="center" bgcolor="#FFFF00">成数</TD>
    <TD width="120" align="center" bgcolor="#FFFF00">备注</TD>
  </TR>
  <TR class=m_rig>
    <TD><%=request("AgentName")%> 总计</TD>
    <TD><%=count_sum%></TD>
    <TD><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(dai_result,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(men_ds-agent_ds,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(dai_result-(men_ds-agent_ds),2,-1),",","")%></TD>
    <TD><%If Abs(mem_result) = 0 Then
    	Response.Write "0.00"
    Else
    	Response.Write replace(formatnumber(1-(dai_result-agent_ds)/mem_result,2,-1),",","")
    End If%></TD>
    <TD></TD>
</TR></TBODY></TABLE>
<!-----------------↑ 加总资料区段 ↑-------------------------><!-----------------↑ 信用额度资料区段 ↑------------------------->
</BODY></HTML>

⌨️ 快捷键说明

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