📄 tm1.asp
字号:
<!--#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
Set Rs6=Conn.Execute("Select Top 1 * From m_config Order By jm Desc")
tm=rs6("jm")
jm=rs6("jm")
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
'''''开始'''''''''
for i=1 to 49
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 '下级要补
next
for i=1 to 49
if i<10 then
jmjm="0"&i
else
jmjm=i
end if
SQL="select re=count(*),sum_m=sum(isnull(sum_m,0)),sum_m1=sum(sum_m*(rake/100)) from m_chilp where Kithe='"&Current_Kithe_Num&"' and sort='特别号' and chilp_value='"&jmjm&"' "
Set Rs6=Conn.Execute(SQL)
count_t(i)=Rs6("re")
if Rs6("sum_m")<>"" then
sum_money(i)=Rs6("sum_m")
else
sum_money(i)=0
end if
if Rs6("sum_m1")<>"" then
pz_pb(i)=Rs6("sum_m1")
else
pz_pb(i)=0
end if
tm_tm(i)=i
Set Rs6=Nothing
SQL="select * from m_rate where item_sort='特别号' and item_value="&i&" "
Set Rs6=Conn.Execute(SQL)
a_zc(i)=Rs6("rate")
Set Rs6=Nothing
next
sum_money55=0
count_t55=0
pz_pb55=0
bzczc=0
for i=1 to 49
pz_pb55=pz_pb55+pz_pb(i)
sum_money55=sum_money55+sum_money(i)
count_t55=count_t55+count_t(i)
if b_zc(i)>0 then
bzczc=bzczc+b_zc(i)
end if
next
for i=1 to 49
b_zc(i)=(sum_money(i)*a_zc(i)-pz_pb55-sum_money55-tm)/a_zc(i)
next
for i=1 to 49
if b_zc(i)>0 then
bzczc=bzczc+b_zc(i)
end if
next
for k = 1 to 49
for i = 1 to 48
if csng(sum_money(i)) < csng(sum_money(i+1)) then
tmp=b_zc(i+1)
b_zc(i+1)=b_zc(i)
b_zc(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=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>
<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;
}
.STYLE3 {color: #FF0000}
body,td,th {
color: #FF0000;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<xml id="myXml"></xml>
<TABLE cellSpacing=1 width="80%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle><FORM name=form1 action=system_oper.asp?K6=K11 method=post>
最大亏损金额
<INPUT
class=input id=jm value="<%=jm%>" name=jm>
<INPUT class=input type=submit value=.确认. name=Submit>
</FORM>
<P> </P></TD>
</TR>
</TABLE>
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="30" height="25" align="center" bgcolor="ffff00"> </td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">品种</span></td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">数量</span></td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">下注总额</span></td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">退水</span></td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">赔率</span></td>
<td align="center" bgcolor="ffff00"><span class="STYLE3">应补金额</span></td>
<td align="center" bgcolor="ffff00"> </td>
</tr>
<%for i = 1 to 49%>
<tr>
<td height="25" align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><%=i%></td>
<td align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><font color="<%if b_zc(i)>0 then%>#ff0000<%else%>#000000<%end if%>">特<%=tm_tm(i)%></font></td>
<td align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><%=count_t(i)%></td>
<td align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>">
<%if count_t(i)>0 then%>
<a href="888/submain.asp?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" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><%=pz_pb(i)%></td>
<td align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><%=a_zc(i)%></td>
<td align="center" nowrap bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"><%if b_zc(i)>0 then%><font color="#FF0000"><%=formatnumber(b_zc(i),2,-1)%></font><%end if%> </td>
<td align="center" bgcolor="<%if b_zc(i)>0 then%>#ffffcc<%else%>#FFFFFF<%end if%>"> </td>
</tr>
<%next%>
<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"><%=pz_pb55%></td>
<td align="center" bgcolor="#FFFFFF"> </td>
<td align="center" bgcolor="#FFFFFF"><%=formatnumber(bzczc,2,-1)%></td>
<td align="center" bgcolor="#FFFFFF"><font color=ff0000><%=tm%></font></td>
</tr>
</table>
<script language="javascript">
var sound=false;
var begin=0;
//显示的秒数
var timeStep=5;
var myXml=document.getElementById("myXml");
//openXml();
var s="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' WIDTH='1' HEIGHT='1'><param name='movie' value='../../sound/odds.swf'><param name='quality' value='high'><param name='wmode' value='transparent'></object>";
function openXml(){
myXml.load("../../tm.xml");
myXml.onreadystatechange=getSixXml;
window.setTimeout("openXml()", 2000);
}
var xml="";
function getSixXml(){
if (myXml.xml==null) return;
if(myXml.xml=="") return;
if(xml!=myXml.xml)
{
xml=myXml.xml;
getData();
}
}
function getData(){
//特码
var mynode=myXml.childNodes[1];
for(var i=1;i<50;i++){
var myData=mynode.selectSingleNode("//D"+i);
var dm=parseInt(myData.childNodes[0].text);
var ts=parseInt(myData.childNodes[1].text);
document.getElementById("td"+i).d=dm+"|"+ts;
if(dm>ts){
document.getElementById("td"+i).setAttribute("bgColor","yellow");
sound=true;
}else{
document.getElementById("td"+i).setAttribute("bgColor","");
}
}
if(sound){
if(begin==1){
document.getElementById("mySound").innerHTML=s;
}
sound=false;
}
begin=1;
}
</script>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -