📄 x4.asp

📁 买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql
💻 ASP
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/sk2.asp"-->
<SCRIPT language=javascript>
if(self == top) location = '/';
</SCRIPT>

<% If Session("SK2Admin")<>"" or  Session("SK2B")<>"" Then
  else
    Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
    Response.End
  End If


  Show_Kithe
 Get_Kithe_Para
 
 Set Rs6=Conn.Execute("Select Top 1 * From m_agent Where Login_Name='"&session("SK2B")&"' Order By ID Desc")
   If not Rs6.Eof Then
    isshowcolor=Rs6("caution")
	p_agentid=rs6("p_agentid")
	agenttypem=rs6("agenttype")
	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.asp?aid="+showid , "show_WR","top="+event.clientX/2+",left="+event.clientY/2+",width=320,height=400");
}
</SCRIPT>

<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<style type="text/css">
<!--
.STYLE1 {color: #ff0000}
-->
</style>
</HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0 
topMargin=0>

<!--#include file="top.asp"-->
<%Agent_three=request("username")
	
		
	sum_money=0
	mem_result=0
	dai_result=0
	zong_result=0
	guan_result=0
	total_guan_zc = 0
	l1=0
	l2=0
	l3=0
	l4=0
	l5=0
	l6=0
	l7=0
	l8=0
	l9=0
	l10=0
	l11=0
	l12=0
	p10 = 0
	
	

	
	
	
	
	
	%>
 
<TABLE width="100%" 
border=1 cellPadding=2 cellSpacing=1>
  <TBODY>

  <TR >
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">客户</span></TD>
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">注数</span></TD>
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">下注金额</span></TD>
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">代理占成</span></TD>
    <TD align="center" nowrap bgcolor="ffff00"><span class="STYLE1">总代占成</span></TD>
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">股东占成</span></TD>
    <TD align="center" bgcolor="ffff00"><span class="STYLE1">公司占成</span></TD>
	</TR>
	
 <%
 
set rs8=conn.execute("select DISTINCT member from m_chilp where Agent_first = '"&Agent_three&"'")
	i=0
	do while not rs8.eof
	
	SQL6="SELECT re = COUNT(*),sum_m = isnull(SUM(sum_m), 0), mem_0 = isnull(SUM(sum_m*dai_zc/10), 0), mem_1 = isnull(SUM(sum_m*zong_zc/10), 0), mem_2 = isnull(SUM(sum_m*guan_zc/10), 0), mem_3 = isnull(SUM(sum_m*dagu_zc/10), 0)  FROM m_chilp WHERE  kithe ='"&Current_Kithe_Num&"' and Agent_first = '"&Agent_three&"' and member='"&rs8("member")&"' "
	
	
	
	
	Set Rs6=Conn.Execute(SQL6)
	
	If Not Rs6.Eof  Then
	'dai_ds1=rs6("dai_ds")
     Showzong=Rs6.GetRows(1)
	end if
 
 if Showzong(0,0)>0 then%> <TR bgColor=#ffffff  onmouseover=javascript:this.bgColor='#FFFFCC'  onmouseout=javascript:this.bgColor='#ffffff'>
    <TD align=center><%=rs8("member")%></TD>
    <TD align="center"><%=Showzong(0,0)%></TD>
    <TD align="center"><a  href="x5.asp?username=<%=rs8("member")%>"><%=replace(formatnumber(Showzong(1,0),2,-1),",","")%></A></TD><TD align="center"><%=formatnumber(Showzong(2,0),2,-1)%></TD>
    <TD align="center"><%=replace(formatnumber(Showzong(3,0),2,-1),",","")%></TD>
    <TD align="center"><%=replace(formatnumber(Showzong(4,0),2,-1),",","")%></TD>
    <TD align="center"><%=replace(formatnumber(Showzong(5,0),2,-1),",","")%></TD>
	</TR>
  
	<%
	l1=l1+Showzong(0,0)
	l2=l2+Showzong(1,0)
	l3=l3+Showzong(2,0)
	l4=l4+Showzong(3,0)
	l5=l5+Showzong(4,0)
	l6=l6+Showzong(5,0)
	
end if
i=i+1
	rs8.movenext
  loop

	%>
  <TR class=m_rig_to>
    <TD>小计</TD>
    <TD><%=l1%></TD>
    <TD><%=replace(formatnumber(l2,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(l3,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(l4,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(l5,2,-1),",","")%></TD>
    <TD><%=replace(formatnumber(l6,2,-1),",","")%></TD>
	</TR>
	<%%>
</TBODY></TABLE>
<table width="98%" border="0" cellspacing="3" cellpadding="3">
  <tr>
    <td align="center"><A 
      href="javascript:history.go(-1);">回上一页</A> </td>
  </tr>
</table>
<!-----------------↑ 加总资料区段 ↑-------------------------><!-----------------↑ 信用额度资料区段 ↑------------------------->
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -