x5.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 173 行
ASP
173 行
<!--#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")
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 width="60">客户</TD>
<TD width="120">下单时间</TD>
<TD width="80">下注金额</TD>
<TD width="70">退水</TD>
<TD width="40">赔率</TD>
<TD>内容</TD>
<TD width="70">代理%</TD>
<TD width="70" nowrap>总代%</TD>
<TD width="70">股东%</TD>
</TR>
<%
SQL6="SELECT chilp_time,sum_m,dai_zc,zong_zc,guan_zc,dagu_zc,rake,rate,sort,chilp_types,chilp_value FROM m_chilp WHERE kithe ='"&Current_Kithe_Num&"' and member = '"&Agent_three&"' "
Set Rs8=Conn.Execute(SQL6)
do while not rs8.eof
d1=0
d2=0
money_sum=0
win_money=0
ds_cha = 0
if rs8("sort")="正码过关" then
show1=split(rs8("chilp_types"),",")
show2=split(rs8("chilp_value"),",")
z=ubound(show1)
end if
%> <TR bgColor=#ffffff onmouseover=javascript:this.bgColor='#FFFFCC' onmouseout=javascript:this.bgColor='#ffffff'>
<TD align=center><%=Agent_three%></TD>
<TD align="center"><%=rs8("chilp_time")%></TD>
<TD align="center"><%=replace(formatnumber(rs8("sum_m"),2,-1),",","")%></TD>
<TD align="center"><%=replace(formatnumber(rs8("rake")*rs8("sum_m")/100,2,-1),",","")%></TD>
<TD align="center"><%=rs8("rate")%></TD>
<TD align="center">
<%=rs8("sort")%>
<font color=ff6600><%if trim(rs8("sort"))="正码过关" then%>
<%k=0
for j=0 to ubound(show1)-1
'rate1=rate1*cint(show3(j))
'response.Write show1(j)
%>
<%=show1(j)%> <%=Show2(k)%></SPAN> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=Show2(k+1)%></B></SPAN><br>
<% k=k+2
next%>
<%else%><%=rs8("chilp_types")%> <%=rs8("chilp_value")%><%end if%></font></TD>
<TD align="center"><%=rs8("dai_zc")*10%>%</TD>
<TD align="center"><%=rs8("zong_zc")*10%>%</TD>
<TD align="center"><%=rs8("guan_zc")*10%>%</TD>
</TR>
<%
l1=l1+i
l2=l2+rs8("sum_m")
l3=l3+rs8("dai_zc")*rs8("sum_m")/10
l4=l4+rs8("zong_zc")*rs8("sum_m")/10
l5=l5+rs8("guan_zc")*rs8("sum_m")/10
l6=l6+rs8("dagu_zc")*rs8("sum_m")/10
l7=l7+rs8("rake")*rs8("sum_m")/100
i=i+1
rs8.movenext
loop
%>
<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(l7,2,-1),",","")%></TD>
<TD bgcolor="ffffcc"> </TD>
<TD bgcolor="ffffcc"> </TD>
<TD bgcolor="ffffcc"> </TD>
<TD bgcolor="ffffcc"> </TD>
<TD bgcolor="ffffcc"> </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 + -
显示快捷键?