system_user3.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 131 行
ASP
131 行
<!--#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 Request("AgentName")="" Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
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></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;
}
a:link {
color: #FF0000;
}
a:visited {
color: #FF0000;
}
-->
</style></HEAD>
<BODY aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=1 cellPadding=2 width="100%" border=1>
<TBODY>
<TR>
<TD bgcolor="#FFFF00" >
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR height=25>
<FORM name=acc
action=index_submain.asp
method=get>
<TD width="400"> <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: #ff6600"><b></b></a>
</TD>
</FORM></TR></TBODY></TABLE></TD>
</TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD colSpan=2 height=4></TD></TR>
<TR>
<TD colSpan=3> 代理商:<%=request("AgentName") %> -- <A href="javascript:history.go(%20-1%20);">回上一页</A></TD>
</TR>
<TR>
<TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<TABLE width=100%
border=1 align="center" cellPadding=2 cellSpacing=1 >
<TBODY>
<TR >
<TD width=183 align="center" bgcolor="ffff00">会员</TD>
<TD width=147 align="center" bgcolor="ffff00">笔数</TD>
<TD width=219 align="center" bgcolor="ffff00">金额</TD>
<TD width=246 align="center" bgcolor="ffff00">期数</TD>
</TR>
<%AgentName=request("AgentName")
SQL6="SELECT sum_m = isnull(SUM(sum_m), 0), mem_result = isnull(SUM(mem_result), 0), mem_ds = isnull(SUM(mem_ds), 0), ag_result = isnull(SUM(ag_result), 0),ag_ds = isnull(SUM(ag_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,ag_result = CASE WHEN banlance = 0 THEN 0 ELSE CASE WHEN result = 0 THEN - sum_m * dai_zc / 100 WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN (sum_m / count_l * rate * result - sum_m) * dai_zc / 100 ELSE sum_m * (rate - 1) * dai_zc / 100 END) END END FROM m_chilp WHERE Kithe='"&Current_Kithe_num&"' AND Agent_first = '"&AgentName&"'"
SQL6=SQL6&" ) i "
'response.write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
ShowAgent=Rs6.GetRows(-1)
end if
'if ShowAgent(5,0)>0 then
SQL6="select member from m_chilp where Kithe='"&Current_Kithe_num&"' AND Agent_first='"&AgentName&"' group by member "
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
Showmember=Rs6.GetRows(-1)
end if
count_num=0
sum_money=0
mem_result=0
mem_ds=0
result=0
%>
<%for I=0 to ubound(Showmember,2)%>
<%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='"&Current_kithe_num&"' AND member = '"&Showmember(0,I)&"'"
SQL6=SQL6&" ) i "
'response.write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
Showmember_detail=Rs6.GetRows(-1)
%>
<TR class=m_rig>
<TD><div align="center"><%=Showmember(0,I)%>(人民币)</div></TD>
<TD><%=Showmember_detail(5,0)%></TD>
<TD><a href="system_user4.asp?AgentName=<%=request("AgentName")%>&member=<%=Showmember(0,I)%>"><%=replace(formatnumber(Showmember_detail(0,0),2,-1),",","")%></A></TD>
<TD>第<%=Current_Kithe_num%>期</TD>
</TR>
<%end if
count_num=count_num+Showmember_detail(5,0)
sum_money=sum_money+Showmember_detail(0,0)
mem_result=mem_result+Showmember_detail(1,0)
mem_ds=mem_ds+Showmember_detail(2,0)
dai_ds=dai_ds+Showmember_detail(3,0)
result=result+Showmember_detail(1,0)+Showmember_detail(2,0)
next%>
<TR class=m_rig_to>
<TD> </TD>
<TD><%=count_num%></TD>
<TD><%=replace(formatnumber(sum_money,2,-1),",","")%></TD>
<TD> </TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?