📄 system_user.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
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 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%>
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>main</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">
<!--
.style9 {
font-size: small;
font-weight: bold;
}
-->
</style>
</HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_bg>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR height=25>
<FORM name=acc
action=index_submain.asp
method=get>
<TD width="456"> <a href=index_system.asp><b>开封盘</b></a>
<a href=system_affice.asp><b>公告</b></a>
<a href=system_autodrop.asp><b>自动降水</b></a>
<a href=system_remem.asp><b>会员信用额还原</b></a>
<a href=system_clear.asp ><b>清除数据</b></a>
∵ <a href=system_user.asp style="BACKGROUND-COLOR: #3399ff"><b></b></a>
</TD>
</FORM></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD height=4></TD></TR>
<TR>
<TD><span class="style9">选择用户</span></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=800 border=0>
<TBODY>
<TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<%SQL6="select Agent_second,dai_zc=isnull(SUM(dai_zc) / COUNT(*),0),zong_zc=isnull(SUM(zong_zc) / COUNT(*),0) from m_chilp where kithe='"&Current_Kithe_num&"' group by Agent_second "
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
ShowAgent=Rs6.GetRows(-1)
%>
<TABLE width=800
border=0 align="center" cellPadding=0 cellSpacing=1 bgColor=#000000 class=m_tab>
<TBODY>
</TR>
<TR class=m_title_reall>
<TD width=183>总代理</TD>
<TD width=147>笔数</TD>
<TD width=219>下注金额</TD>
<TD width=246>期数</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 THEN 0 ELSE sum_m * rake / 100 END,mem_result = CASE WHEN banlance = 0 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 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 kithe='"¤t_Kithe_num&"' AND Agent_second = '"&ShowAgent(0,I)&"'"
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="system_user2.asp?AgentName=<%=trim(ShowAgent(0,I))%>"><%=replace(formatnumber(Showzong(0,0),2,-1),",","")%></A></TD>
<TD>第<%=current_kithe_num%>期</TD>
</TR>
<%count_sum=count_sum+Showzong(5,0)
sum_money=sum_money+Showzong(0,0)
end if
next%>
<TR class=m_rig_to>
<TD>小计</TD>
<TD><%=count_sum%></TD>
<TD><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
<TD> </TD>
</TR></TBODY></TABLE>
<BR><!-----------------↓ 加总资料区段 ↓------------------------->
<%else%>
<TABLE width="100%" border=0 align="center" cellPadding=0 cellSpacing=1>
<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%>
<!-----------------↑ 加总资料区段 ↑-------------------------><!-----------------↑ 信用额度资料区段 ↑------------------------->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -