?? report_class.asp
字號:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Not Isdate(Request("date_start")) Then
Response.Write ("<script language=javascript>alert('非法參數(shù)！');history.go(-1)</script>")
Response.End
End If
If Not Isdate(Request("date_end")) Then
Response.Write ("<script language=javascript>alert('非法參數(shù)！');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="現(xiàn)金"
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="網(wǎng)路下注"
case else
show_bet_type="全部"
end select
select case trim(request("wtype"))
case "1"
show_wtype="特別號"
case "2"
show_wtype="特別號:單雙"
case "3"
show_wtype="特別號:大小"
case "4"
show_wtype="特別號:合數(shù)單雙"
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="正碼過關(guān)"
case "18"
show_wtype="生肖"
case "19"
show_wtype="一肖"
case "20"
show_wtype="特碼補牌"
case else
show_wtype="全部"
end select
'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%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<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(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&"' "
'if session("SK2F")<>"0" then
'SQL6=SQL6&" Agent_first = '"&session("SK2B")&"'"
'else
'SQL6=SQL6&" Agent_second = '"&session("SK2B")&"'"
'end if
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="特別號:合數(shù)單雙"
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 = '正碼過關(guān)'"
'show_wtype="正碼過關(guān)"
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 and Rs6("re")>0 Then
Showmember_detail=Rs6.GetRows(-1)
%>
<TABLE class=m_tab cellSpacing=1 cellPadding=0 width=780 bgColor=#000000
border=0>
<TBODY>
<TR class=m_title_reall>
<TD colSpan=8>信用額度</TD></TR>
<TR class=m_title_reall>
<TD width=90>投注種類</TD>
<TD width=40>筆數(shù)</TD>
<TD width=80>下注金額</TD>
<TD width=80>會員</TD>
<TD width=80>代理商</TD>
<TD width=80>總代理</TD>
<TD width=80>備注</TD></TR>
<%select case trim(request("wtype"))
case "1"
show_wtype="特別號"%>
<TR class=m_rig>
<TD align=middle>特別號</TD>
<TD><%=Showmember_detail(5,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(1,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<TD> </TD></TR>
<%case "2"
show_wtype="特別號:單雙"%>
<TR class=m_rig>
<TD align=middle>特別號:單雙</TD>
<TD><%=Showmember_detail(5,0)%></TD>
<TD><a href="report_game.asp?wtype=2&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(1,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<TD> </TD></TR>
<%
case "3"
show_wtype="特別號:大小"%>
<TR class=m_rig>
<TD align=middle>特別號:大小</TD>
<TD><%=Showmember_detail(5,0)%></TD>
<TD><a href="report_game.asp?wtype=3&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(1,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<TD> </TD></TR>
<%
case "4"
show_wtype="特別號:合數(shù)單雙"%>
<TR class=m_rig>
<TD align=middle>特別號:合數(shù)單雙</TD>
<TD><%=Showmember_detail(5,0)%></TD>
<TD><a href="report_game.asp?wtype=4&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(1,0)+Showmember_detail(3,0),2,-1),",","")%></TD>
<TD><%=replace(formatnumber(Showmember_detail(1,0)+Showmember_detail(4,0),2,-1),",","")%></TD>
<TD> </TD></TR>
<%
case "5"
show_wtype="色波"%>
<TR class=m_rig>
<TD align=middle>色波</TD>
<TD><%=Showmember_detail(5,0)%></TD>
<TD><a href="report_game.asp?wtype=5&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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -