📄 report_class.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/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_end")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
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"))
bet_type=trim(request("bet_type"))
wtype=trim(request("wtype"))
select case trim(request("pay_type"))
case "0"
show_pay_type="信用额度"
case "1"
show_pay_type="现金"
response.Redirect "report_error.asp?wtype="&wtype&"&bet_type="&bet_type&"&pay_type="&pay_type&"&date_start="&date_start&"&date_end="&Request("date_end")&""
case else
show_pay_type="全部"
end select
select case trim(request("bet_type"))
case "T"
show_bet_type="电话下注"
response.Redirect "report_error.asp?wtype="&wtype&"&bet_type="&bet_type&"&pay_type="&pay_type&"&date_start="&date_start&"&date_end="&Request("date_end")&""
case "N"
show_bet_type="网路下注"
case else
show_bet_type="全部"
end select
dim Arrsqlc(22), arrShow_wtype(22)
Arrsqlc(0) = ""
Arrsqlc(1) = " and sort = '特别号' and chilp_value<>'单' and chilp_value<>'双' and chilp_value<>'大' and chilp_value<>'小' and chilp_value<>'合单' and chilp_value<>'合双'"
Arrsqlc(2) = " and sort = '特别号' and (chilp_value='单' or chilp_value='双')"
Arrsqlc(3) = " and sort = '特别号' and (chilp_value='大' or chilp_value='小')"
Arrsqlc(4) = " and sort = '特别号' and (chilp_value='合单' or chilp_value='合双')"
Arrsqlc(5) = " and sort = '色波'"
Arrsqlc(6) = " and sort = '正码' and chilp_value<>'总单' and chilp_value<>'总双' and chilp_value<>'总大' and chilp_value<>'总小'"
Arrsqlc(7) = " and (chilp_value = '总单' or chilp_value = '总双')"
Arrsqlc(8) = " and (chilp_value = '总大' or chilp_value = '总小')"
Arrsqlc(9) = " and sort = '正码1-6' and (chilp_value='单' or chilp_value='双')"
Arrsqlc(10) = " and sort = '正码1-6' and (chilp_value='大' or chilp_value='小')"
Arrsqlc(11) = " and sort = '正码1-6' and (chilp_value='红波' or chilp_value='绿波' or chilp_value='蓝波')"
Arrsqlc(12) = " and chilp_types = '三全中'"
Arrsqlc(13) = " and chilp_types = '三中二'"
Arrsqlc(14) = " and chilp_types = '二全中'"
Arrsqlc(15) = " and chilp_types = '二中特'"
Arrsqlc(16) = " and chilp_types = '特串'"
Arrsqlc(17) = " and sort = '正码过关'"
Arrsqlc(18) = " and sort = '十二生肖'"
Arrsqlc(19) = " and sort = '一肖'"
Arrsqlc(20) = " and sort = '六肖'"
Arrsqlc(21) = " and sort = '半波'"
arrShow_wtype(0) = "全部"
arrShow_wtype(1) = "特别号"
arrShow_wtype(2) = "特别号:单双"
arrShow_wtype(3) = "特别号:大小"
arrShow_wtype(4) = "特别号:合数单双"
arrShow_wtype(5) = "色波"
arrShow_wtype(6) = "正码"
arrShow_wtype(7) = "总和:单双"
arrShow_wtype(8) = "总和:大小"
arrShow_wtype(9) = "正码1-6:单双"
arrShow_wtype(10) = "正码1-6:大小"
arrShow_wtype(11) = "正码1-6:色波"
arrShow_wtype(12) = "三全中"
arrShow_wtype(13) = "三中二"
arrShow_wtype(14) = "二全中"
arrShow_wtype(15) = "二中特"
arrShow_wtype(16) = "特串"
arrShow_wtype(17) = "正码过关"
arrShow_wtype(18) = "生肖"
arrShow_wtype(19) = "一肖"
arrShow_wtype(20) = "六肖"
arrShow_wtype(21) = "半波"
pwtype = trim(request("wtype"))
If pwtype = "" Then
show_wtype=arrShow_wtype(0)
sqlc = Arrsqlc(0)
Else
If IsNumeric(pwtype) Then
If pwtype >=1 And pwtype <= 21 Then
show_wtype=arrShow_wtype(pwtype)
sqlc = Arrsqlc(pwtype)
Else
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Else
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
End If
'Get_Kithe_Para
Show_Kithe
'Set Rs6=Conn.Execute("Select Agent_first from m_chilp where Agent_first is not null group by Agent_first")
'If Not Rs6.Eof Then
' Agent_info=Rs6.GetRows(-1)
'Kithe_Sum=Ubound(Kithe_Table,2)
'End If%>
<HTML><HEAD><TITLE>reports_all</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<SCRIPT>
function showREC(showid) {
window.open("show_winloss_rec.php?aid="+showid , "show_WR","top="+event.clientX/2+",left="+event.clientY/2+",width=320,height=400");
}
</SCRIPT>
<SCRIPT language=javascript>
if(self == top) location = '/';
</SCRIPT>
<META content="MSHTML 6.00.2800.1226" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD colSpan=2 height=4></TD></TR>
<TR>
<TD class=m_tline width=750> 日期:<%=request("date_start")%>~<%=request("date_end")%> --
报表分类:分类帐 -- 投注方式:<%=show_pay_type%> -- 投注种类:<%=show_wtype%> -- 下注管道:<%=show_bet_type%> -- <A
href="javascript:history.go(%20-1%20);">回上一页</A> </TD>
<TD width=30></TD></TR>
<TR>
<TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<%
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&"'"
SQL6=SQL6&sqlc&" ) i "
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof and Rs6("re")>0 Then
Showmember_detail=Rs6.GetRows(-1)
sum_money=0
mem_result=0
dai_result=0
zong_result=0
dagu_result=0
mem_ds=0
zong_ds=0
count_sum=0
zong=0
count_sum=count_sum+Showmember_detail(6,0)
sum_money=sum_money+Showmember_detail(0,0)
mem_ds=mem_ds+Showmember_detail(2,0)
mem_result=mem_result+Showmember_detail(1,0)+Showmember_detail(2,0)
dai_result=dai_result+Showmember_detail(7,0)+Showmember_detail(3,0)
zong_result=zong_result+Showmember_detail(8,0)+Showmember_detail(4,0)
guan_result=guan_result+Showmember_detail(9,0)+Showmember_detail(5,0)
dagu_result=dagu_result+Showmember_detail(10,0)+Showmember_detail(11,0)
zong=zong+Showmember_detail(1,0)
dagu_ds=dagu_ds+Showmember_detail(11,0)
%>
<TABLE class=m_tab cellSpacing=1 cellPadding=2 width=100%
border=1>
<TBODY>
<TR class=m_title_reall>
<TD colSpan=10>信用额度</TD></TR>
<TR class=m_title_reall>
<TD width=190>投注种类</TD>
<TD width=60>笔数</TD>
<TD width=120>下注金额</TD>
<TD width=120>会员</TD>
<TD width=120>代理商</TD>
<%If session("agenttype") <=2 Then%>
<TD width=120>总代理</TD>
<%End If: If session("agenttype") =1 Then%>
<TD width=120>股东</TD>
<%End If%>
<TD width=120>备注</TD></TR>
<%If pwtype >= "1" And pwtype <= "21" Then%>
<TR class=m_rig>
<TD align=middle><%=show_wtype%></TD>
<TD><%=Showmember_detail(6,0)%></TD>
<TD><a href="report_game.asp?wtype=1&pay_type=<%=request("pay_type")%>&bet_type=<%=request("bet_type")%>&DATE_START=<%=request("DATE_START")%>&DATE_END=<%=request("DATE_END")%>"><%=replace(formatnumber(Showmember_detail(0,0),2,-1),",","")%></A></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(2,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(7,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<%If session("agenttype") <=2 Then%>
<TD><%=replace(formatnumber(Showmember_detail(8,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<%End If: If session("agenttype") =1 Then%>
<TD><%=replace(formatnumber(Showmember_detail(9,0)+Showmember_detail(5,0),2,-1),",","")%></TD>
<%End If%>
<TD> </TD></TR>
<%else
sum_money=0
mem_result=0
dai_result=0
zong_result=0
dagu_result=0
mem_ds=0
zong_ds=0
count_sum=0
zong=0
for k=1 to 20%>
<%
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&"'"
k = trim(cstr(k))
If IsNumeric(k)=False Then
show_wtype = arrShow_wtype(0)
SQL6=SQL6&sqlc(0)
Else
If CInt(k) >= 1 And CInt(k) <= 21 Then
show_wtype = arrShow_wtype(CInt(k))
SQL6=SQL6&arrsqlc(CInt(k))
Else
show_wtype = arrShow_wtype(0)
SQL6=SQL6&arrsqlc(0)
End If
End If
SQL6=SQL6&" ) i "
'response.write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof and Rs6("re")>0 Then
Showmember_detail=Rs6.GetRows(-1)
count_sum=count_sum+Showmember_detail(6,0)
sum_money=sum_money+Showmember_detail(0,0)
mem_ds=mem_ds+Showmember_detail(2,0)
mem_result=mem_result+Showmember_detail(1,0)+Showmember_detail(2,0)
dai_result=dai_result+Showmember_detail(7,0)+Showmember_detail(3,0)
zong_result=zong_result+Showmember_detail(8,0)+Showmember_detail(4,0)
guan_result=guan_result+Showmember_detail(9,0)+Showmember_detail(5,0)
dagu_result=dagu_result+Showmember_detail(10,0)+Showmember_detail(11,0)
zong=zong+Showmember_detail(1,0)
dagu_ds=dagu_ds+Showmember_detail(11,0)%>
<TR class=m_rig>
<TD align=middle><%=show_wtype%></TD>
<TD><%=Showmember_detail(6,0)%></TD>
<TD><a href="report_game.asp?wtype=1&pay_type=<%=request("pay_type")%>&bet_type=<%=request("bet_type")%>&DATE_START=<%=request("DATE_START")%>&DATE_END=<%=request("DATE_END")%>"><%=replace(formatnumber(Showmember_detail(0,0),2,-1),",","")%></A></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(2,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(7,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<%If session("agenttype") <=2 Then%>
<TD><%=replace(formatnumber(Showmember_detail(8,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<%End If: If session("agenttype") =1 Then%>
<TD><%=replace(formatnumber(Showmember_detail(9,0)+Showmember_detail(5,0),2,-1),",","")%></TD>
<%End If%>
<TD> </TD></TR>
<%end if%>
<%next
end if%>
<TR>
<TD colSpan=8 height=1></TD></TR>
<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>
<%If session("agenttype") <=2 Then%>
<TD><%=replace(formatnumber(zong_result,2,-1),",","")%></TD>
<%End If: If session("agenttype") =1 Then%>
<TD><%=replace(formatnumber(guan_result,2,-1),",","")%></TD>
<%End If%>
<TD></TD></TR>
<%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%>
</TBODY></TABLE><!-----------------↑ 信用额度资料区段 ↑-------------------------></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -