x3.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 152 行
ASP
152 行
<!--#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("SK2B")="" and Session("Sk2sub")="" Then
Response.Write ("<script Language=Javascript>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></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<!--#include file="top.asp"-->
<%Agent_three=request("username")
SQL6="select Agent_first,dai_zc=isnull(SUM(dai_zc) / COUNT(*),0),zong_zc=isnull(SUM(zong_zc) / COUNT(*),0) from m_chilp where kithe ='"&Current_Kithe_Num&"' and Agent_second='"&Agent_three&"' group by Agent_first "
'SQL6="select Agent_second,dai_zc=isnull(SUM(dai_zc) / COUNT(*),0),zong_zc=isnull(SUM(zong_zc) / COUNT(*),0) from m_chilp where chilp_time >='"&date_start&"' and chilp_time <='"&date_end&"' and Agent_three='"&Agent_three&"' group by Agent_second "
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
ShowAgent=Rs6.GetRows(-1)
end if
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 class=m_tab>
<TBODY>
</TR>
<TR class=m_title_reall>
<TD>代理</TD>
<TD>注数</TD>
<TD>下注金额</TD>
<TD>代理占成</TD>
<TD nowrap>总代占成</TD>
<TD>股东占成</TD>
<TD>公司占成</TD>
</TR>
<%
for I=0 to ubound(ShowAgent,2)
if trim(ShowAgent(0,I))="0" then
else
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 = '"&ShowAgent(0,I)&"' "
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><%=ShowAgent(0,I)%></TD>
<TD align="center"><%=Showzong(0,0)%></TD>
<TD align="center"><a href="x4.asp?username=<%=ShowAgent(0,I)%>"><%=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
end if
next
%>
<TR class=m_rig_to>
<TD bgcolor="ffffcc">小计</TD>
<TD bgcolor="ffffcc"><%=l1%></TD>
<TD bgcolor="ffffcc"><%=replace(formatnumber(l2,2,-1),",","")%></TD>
<TD bgcolor="ffffcc"><%=replace(formatnumber(l3,2,-1),",","")%></TD>
<TD bgcolor="ffffcc"><%=replace(formatnumber(l4,2,-1),",","")%></TD>
<TD bgcolor="ffffcc"><%=replace(formatnumber(l5,2,-1),",","")%></TD>
<TD bgcolor="ffffcc"><%=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 + =
减小字号Ctrl + -
显示快捷键?