📄 report_game.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/sk2.asp"-->
<% If Session("SK2B")="" and Session("Sk2sub")="" Then
Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
Response.End
End If
if session("Sk2manager")<>"" then
Manager=session("Sk2manager")
else
Manager=session("SK2B")
end if
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
Set Rs6=Conn.Execute("select top 1 Login_Name,self_cuts,super_cuts,P_AgentID from m_agent where ID='"&P_AgentID&"'")
If Not Rs6.Eof Then
manager=Rs6("Login_Name")
'super_cuts=Rs6("super_cuts")/100
End If
dim date_start,date_end,pay_type,bet_type,wtype
if request("member")<>"" then
member=request("member")
session("member")=request("member")
else
member=session("member")
end if
if Request("date_start")<>"" and Request("date_end")<>"" then
date_start= cdate(Request("date_start"))
date_end =dateadd("d",1,cdate(Request("date_end")))
session("date_start")=cdate(Request("date_start"))
session("date_end")=dateadd("d",1,cdate(Request("date_end")))
else
date_start= cdate(session("date_start"))
date_end =cdate(session("date_end"))
end if
If Not Isdate(cdate(session("date_start"))) Then
Response.Write ("<script language=javascript>alert('非法参数1！');history.go(-1)</script>")
Response.End
End If
If Not Isdate(cdate(session("date_end"))) Then
Response.Write ("<script language=javascript>alert('非法参数2！');history.go(-1)</script>")
Response.End
End If
'response.Write date_start&" "&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 else
show_wtype="全部"
end select
'Get_Kithe_Para
Show_Kithe
SQL6="SELECT order_num, Kithe, Member, chilp_time, rake, sort, chilp_types, chilp_value, rate,sum_m, order_num2, result, count_l, l_type, banlance,result_money = CASE WHEN banlance = '0' or amount='和局' THEN 0 ELSE (CASE WHEN result = 0 THEN - sum_m* (1-rake / 100) WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l * rate * result - sum_m * (1 - rake / 100) ELSE sum_m * (rate - 1 + rake / 100) END) END) END FROM m_chilp WHERE chilp_time >='"&date_start&"' and chilp_time <='"&date_end&"' and "
if session("SK2F")<>"0" then
SQL6=SQL6&" Agent_first = '"&Manager&"'"
else
SQL6=SQL6&" Agent_second = '"&Manager&"'"
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="特别号:合数单双"
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&" order by ID desc"
'response.write SQL6
Set Rs6=Conn.Execute(SQL6)
'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
Member_info=Rs6.GetRows(-1)
Kithe_Sum=Ubound(Member_info,2)
End If
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=5000:Page_Count=1:Record_Count=Kithe_Sum
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
If (Record_Count+1)-DiffList<=0 Then
Page_Count=1
Else
Page_Count=(Record_Count+1)\DiffList
If (Record_Count+1) Mod DiffList >0 Then
Page_Count=Page_Count+1
End If
End If
If Page<=0 Then
Page=1
End If
If Page>Page_Count Then
Page=Page_Count
End If
If Page=1 Then
StartList=0
EndList=DiffList-1
Else
StartList=(Page-1)*DiffList
EndList=DiffList*Page-1
End If
If StartList>Record_Count Then
StartList=Record_Count
End If
If EndList>Record_Count Then
EndList=Record_Count
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>reports_member</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="../images/std.js"></SCRIPT>
<SCRIPT language=javascript>
if(self == top) location = '/';
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<FORM name=myFORM action=report_member.asp method=get><INPUT type=hidden name=game_type> <INPUT
type=hidden name=wtype> <INPUT type=hidden value=<%=request("pay_type")%> name=pay_type> <INPUT
type=hidden name=is_pay> <INPUT type=hidden value=<%=request("bet_type")%> name=bet_type>
<INPUT type=hidden value=<%=request("date_start")%> name=date_start> <INPUT type=hidden value=<%=request("date_end")%>
name=date_end> <INPUT type=hidden value=<%=request("member")%>
name=member>
<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> 投注种类: --<FONT
color=#cc0000><%=show_wtype%></FONT> 日期:<%=request("date_start")%>~<%=dateadd("d",-1,date_end)%>
-- 下注管道:<%=show_bet_type%> -- 总页数: <SELECT
class=select_lef
onchange="window.location = this.options[this.selectedIndex].value;">
<%For I=1 To Page_Count
Response.Write ("<Option Value=?Page="&I&"")
If Page=I Then
Response.Write (" selected ")
End If
Response.Write (">"&I&"</Option>")
Next
%>
</SELECT>/ <%=Page_Count%> 页 -- <A
href="javascript:history.go(-1);">回上一页</A> -- <A
href="Index_report.asp">回报表查询</A></TD>
<TD width=30></TD></TR>
<TR>
<TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<TABLE class=rp_m_tab cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=rp_m_title>
<TD width=160>时间</TD>
<TD width=80>退水</TD>
<TD width=90>种类</TD>
<TD>内容</TD>
<TD width=90>金额</TD>
<TD width=90>结果</TD></TR>
<%money_sum=0
win_money=0
'If Record_Count=-1 Then%>
<%
'Else
For I=StartList To EndList
if Member_info(5,I)="正码过关" then
show1=split(Member_info(6,I),",")
show2=split(Member_info(7,I),",")
z=ubound(show1)
end if%>
<TR class=m_rig onmousedown="light_bar(this,'clk')"
onmouseover="light_bar(this,'ovr')" onmouseout="light_bar(this,'out')">
<TD align=middle><FONT color=#0000ff><%=Member_info(0,I)%></FONT> <%=mid(Member_info(3,I),6,15)%></TD>
<TD align=middle><%=Member_info(2,I)%> <FONT color=#cc0000><%if cdbl(Member_info(4,I))>0 and cdbl(Member_info(4,I))<1 then
response.Write "0"
end if
response.Write Member_info(4,I)%> </FONT></TD>
<TD align=middle>六合彩<%if Member_info(5,I)="连码" or Member_info(5,I)="正码过关" then
if Member_info(5,I)="连码" then
response.Write Member_info(6,I)
end if
if Member_info(5,I)="正码过关" then
response.Write z&"串一"&Member_info(5,I)
end if
else
if Member_info(7,I)="总大" or Member_info(7,I)="总小" or Member_info(7,I)="总单" or Member_info(7,I)="总双" then
if Member_info(7,I)="总大" or Member_info(7,I)="总小" then
response.write "总和:大小"
else
response.write "总和:单双"
end if
else
response.Write Member_info(5,I)
end if
end if
if Member_info(7,I)="合单" or Member_info(7,I)="合双" then
response.write "合数单双"
end if
if Member_info(7,I)="单" or Member_info(7,I)="双" then
response.write ":单双"
end if
if Member_info(7,I)="大" or Member_info(7,I)="小" or Member_info(7,I)="合大" or Member_info(7,I)="合小" then
response.write ":大小"
end if
if Member_info(5,I)="正码1-6" and (Member_info(7,I)="红波" or Member_info(7,I)="蓝波" or Member_info(7,I)="绿波") then
response.write ":色波"
end if
if Member_info(5,I)="特别号" and (Member_info(7,I)="红波" or Member_info(7,I)="蓝波" or Member_info(7,I)="绿波") then
response.write ":色波"
end if%></TD>
<%if trim(Member_info(5,I))="正码过关" then%>
<TD><%k=0
for j=0 to ubound(show1)-1
'rate1=rate1*cint(show3(j))
'response.Write show1(j)
%>
第<%=Member_info(1,I)%>期 <SPAN
style="COLOR: rgb(188,0,0)"><%=show1(j)%> <%=Show2(k)%></SPAN> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=Show2(k+1)%></B></SPAN><br>
<% k=k+2
next%>
<%=Member_info(10,I)%></TD>
<%else%>
<TD>第<%=Member_info(1,I)%>期 <FONT color=#cc0000><%if Member_info(7,I)="总大" or Member_info(7,I)="总小" or Member_info(7,I)="总单" or Member_info(7,I)="总双" then
response.write "总和:"&mid(Member_info(7,I),2,3)
else
response.write Member_info(6,I)
end if
if Member_info(6,I)="三中二" then
response.write "之"&Member_info(13,I)
end if
if Member_info(6,I)="二中特" then
response.write "之"&Member_info(13,I)
end if
%>
<%if Member_info(7,I)="总大" or Member_info(7,I)="总小" or Member_info(7,I)="总单" or Member_info(7,I)="总双" then
else
response.write Member_info(7,I)
end if%> </FONT> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=Member_info(8,I)%> </B></SPAN></TD>
<%end if%>
<TD><%=replace(formatnumber(Member_info(9,I),2,-1),",","")%> </TD>
<TD><%=replace(formatnumber(Member_info(15,I),2,-1),",","")%></TD></TR>
<%money_sum=money_sum+Member_info(9,I)
win_money=win_money+Member_info(15,I)%>
<%next%>
<%set Count_rs=server.createobject("adodb.recordset")
sql=SQL6
Count_rs.open sql,conn,1,1
count_num=0
money_sum=0
mem_result=0
do while not Count_rs.eof
count_num=count_num+1
money_sum=money_sum+Count_rs("sum_m")
mem_result=mem_result+Count_rs("result_money")
Count_rs.movenext
loop%>
<TR class=m_rig_re>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><%=count_num%></TD>
<TD><%=replace(formatnumber(money_sum,2,-1),",","")%></TD>
<TD class=rp_m_bt><%=replace(formatnumber(mem_result,2,-1),",","")%></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD height=15></TD></TR></TBODY></TABLE>
</FORM></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -