tm.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 277 行
ASP
277 行
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.Asp"-->
<!--#include file="sk2.Asp"-->
<% Get_Kithe_Para
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
ztype=1
pz_sort="特别号"
Dim K1,K2,K3
dim sum_money(49),count_t(49),tm_tm(49),a_zc(49),z_zc(49),b_zc(49),ss_q(49),z_bl(49),pz_pa(49),pz_pa1(49),pz_pb(49),pz_pb1(49),all_money,pz_za(49),pz_zb(49),r_rate(49),r_rate1(49),ds_ds(49)
'''''开始'''''''''
for i=1 to 49
ds_ds(i)=0
r_rate(i)=0
r_rate1(i)=0
sum_money(i)=0
count_t(i)=0
tm_tm(i)=0
a_zc(i)=0
b_zc(i)=0
z_zc(i)=0
z_bl(i)=0
ss_q(i)=0 '胜出金额
pz_pa(i)=0 '已补补仓
pz_pa1(i)=0 '下级要补
pz_pb(i)=0 '已补补仓
pz_pb1(i)=0 '下级要补
pz_za(i)=0
pz_zb(i)=0
next
for i=1 to 49
if i<10 then
zi="0"&I
else
zi=i
end if
'''取赔率
SQL="select * from m_rate where item_sort='特别号' and item_name='特别号' and item_value='"&zi&"' "
Set Rs6=Conn.Execute(SQL)
r_rate(i)=Rs6("current_rate")
Set Rs6=Nothing
''''取赔率结束
''''取赔率结束
zsort="特别号"
SQL="select re=count(*),sum_m=sum(isnull(sum_m,0)),sum_m1=sum(sum_m*dagu_zc/10),sum_m3=sum(sum_m*rate*dagu_zc/10),sum_m4=sum(isnull(rate,0)),sum_m5=sum(sum_m*guan_zc/100) from m_chilp where Kithe='"&Current_Kithe_Num&"' and sort='"&zsort&"' and chilp_value='"&zi&"' "
Set Rs6=Conn.Execute(SQL)
count_t(i)=Rs6("re")
if Rs6("sum_m")<>"" then
sum_money(i)=Rs6("sum_m")+pz_za(i)+pz_zb(i)
else
sum_money(i)=pz_za(i)+pz_zb(i)
end if
tm_tm(i)=zi
if Rs6("sum_m3")<>"" then
z_zc(i)=Rs6("sum_m3")
else
z_zc(i)=0
end if
if Rs6("sum_m4")<>"" then
z_bl(i)=Rs6("sum_m4")/Rs6("re")
else
z_bl(i)=0
end if
if Rs6("sum_m5")<>"" then
ds_ds(i)=Rs6("sum_m5")
else
ds_ds(i)=0
end if
if rs6("sum_m1")<>"" then
a_zc(i)=rs6("sum_m1")
else
a_zc(i)=0
end if
Set Rs6=Nothing
next
sum_money55=0
count_t55=0
a_zc55=0
b_zc55=0
z_zc55=0
z_bl55=0
yq55=0
for i=1 to 49
sum_money55=sum_money55+sum_money(i)
count_t55=count_t55+count_t(i)
'tm_tm=tm_tm+tm_tm(i)
a_zc55=a_zc55+a_zc(i)
b_zc55=b_zc55+b_zc(i)
z_zc55=z_zc55+z_zc(i)
z_bl55=z_bl55+z_bl(i)
yq55=yq55+ds_ds(i)
next
for k = 1 to 49
for i = 1 to 48
if csng(sum_money(i)) < csng(sum_money(i+1)) then
tmp=ss_q(i+1)
ss_q(i+1)=ss_q(i)
ss_q(i)=tmp
tmp=sum_money(i+1)
sum_money(i+1)=sum_money(i)
sum_money(i)=tmp
tmp=count_t(i+1)
count_t(i+1)=count_t(i)
count_t(i)=tmp
tmp=tm_tm(i+1)
tm_tm(i+1)=tm_tm(i)
tm_tm(i)=tmp
tmp=a_zc(i+1)
a_zc(i+1)=a_zc(i)
a_zc(i)=tmp
tmp=b_zc(i+1)
b_zc(i+1)=b_zc(i)
b_zc(i)=tmp
tmp=ds_ds(i+1)
ds_ds(i+1)=ds_ds(i)
ds_ds(i)=tmp
tmp=z_zc(i+1)
z_zc(i+1)=z_zc(i)
z_zc(i)=tmp
tmp=z_bl(i+1)
z_bl(i+1)=z_bl(i)
z_bl(i)=tmp
tmp=r_rate(i+1)
r_rate(i+1)=r_rate(i)
r_rate(i)=tmp
tmp=r_rate1(i+1)
r_rate1(i+1)=r_rate1(i)
r_rate1(i)=tmp
tmp=pz_pa(i+1)
pz_pa(i+1)=pz_pa(i)
pz_pa(i)=tmp
tmp=pz_pb(i+1)
pz_pb(i+1)=pz_pb(i)
pz_pb(i)=tmp
end if
next
next
%>
<script language=javascript>
function new_win(html_name,winname,w,h){
if(winname=='') winname='WINDOWS';
if(w=='') w=640;
if(h=='') h=480;
//undefined
winformat="toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,width="+w+",height="+h;
winid = window.open(html_name,winname,winformat)
}
</script>
<SCRIPT language=javascript>
window.setTimeout("self.location='tm.asp'", 18000);
</SCRIPT>
<script language="javascript" type="text/javascript" src="js_admin.js"></script>
<HTML><HEAD><TITLE>main</TITLE>
<META http-equiv="refresh" content="<%=retime%>;text/html; charset=gb2312">
<LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {
color: #993333;
font-weight: bold;
}
-->
</style>
</HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<!--#include file="top.asp"-->
<xml id="myXml"></xml>
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="30" height="25" align="center" bgcolor="#FFFF00"> </td>
<td width="14%" align="center" bgcolor="#FFFF00">品种</td>
<td width="14%" align="center" bgcolor="#FFFF00">数量</td>
<td width="14%" align="center" bgcolor="#FFFF00">下注总额</td>
<td width="14%" align="center" bgcolor="#FFFF00">占成</td>
<td width="14%" align="center" bgcolor="#FFFF00">佣金</td>
<td width="14%" align="center" bgcolor="#FFFF00">彩金</td>
<td width="14%" align="center" bgcolor="#FFFF00">赔率</td>
</tr>
<%m=0
for i = 1 to 49
if count_t(i)>0 then%>
<tr bgColor=#ffffff onmouseover=javascript:this.bgColor='#FFCC66' onmouseout=javascript:this.bgColor='#ffffff'>
<td height="25" align="center"><%=i%></td>
<td align="center">特<%=tm_tm(i)%></td>
<td align="center"><%=count_t(i)%></td>
<td align="center">
<%if count_t(i)<>0 then%><a href="submain.asp?yl=2&manager=<%=manager%>&rtype=0&Ashow=1&wtype=1&spnum=<%=tm_tm(i)%>"><%=formatnumber(sum_money(i),2,-1)%></a>
<%else%>0<%end if%> </td>
<td align="center"><%if a_zc(i)<>0 then%><a href="submain.asp?yl=0&manager=<%=manager%>&rtype=0&Ashow=0&wtype=1&spnum=<%=tm_tm(i)%>"><%=formatnumber(a_zc(i),2,-1)%></a><%else%>0<%end if%></td>
<td align="center">-<%=formatnumber(ds_ds(i),2,-1)%></td>
<td align="center"><%=formatnumber(z_zc(i),2,-1)%></td>
<td align="center"><%=r_rate(i)%></td>
</tr>
<%
end if
next
pzpz=49%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"> </td>
<td align="center" bgcolor="#FFFFFF"> </td>
<td align="center" bgcolor="#FFFFFF"><%=count_t55%></td>
<td align="center" bgcolor="#FFFFFF"><%=sum_money55%></td>
<td align="center" bgcolor="#FFFFFF"><%=a_zc55%></td>
<td align="center" bgcolor="#FFFFFF">-<%=yq55%></td>
<td align="center" bgcolor="#FFFFFF"> </td>
<td align="center" bgcolor="#FFFFFF"> </td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?