📄 rate_just.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 53 item_value,rate,current_rate,wager_gold from m_rate where item_sort='正码' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(53)
Set Rs6=Nothing
dim ShowTable_mon(53)
Get_Kithe_Para
for J=0 to ubound(ShowTable,2)
Set Rs5=Conn.Execute("Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='正码' and chilp_value='"&ShowTable(0,J)&"'")
'response.write "Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='正码' and chilp_value='"&ShowTable(0,J)&"'"
If Rs5.Eof Then
Set Rs5=Nothing
'Response.redirect "user_left.asp"
'Response.End
else
ShowTable_mon(J)=Rs5("sum_money")
end if
'response.Write ShowTable_mon(J)&"<br>"
next
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>main</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<style type="text/css">
<!--
.style1 { color: #0000CC;
font-weight: bold;
}
.style2 {color: #FFFFFF}
-->
</style>
</HEAD>
<SCRIPT language=javascript>
window.setTimeout("self.location='rate_just.asp'", 30000);
</SCRIPT>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_bg>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR height=25>
<TD width="596"> <a href=index_rate.asp><b>特别号</b></a>
∷<a href=rate_just.asp style="BACKGROUND-COLOR: #3399ff"><b>正码</b></a>∷
<a href=rate_just1-6.asp><b>正码1-6</b></a> <a href=rate_join.asp><b>连码</b></a> <a href=rate_justpass.asp><b>正码过关</b></a> <a href=rate_12.asp><b>生肖色波</b></a> <a href=rate_ys.asp ><span class="style1">一肖</span></a><a href=rate_ys.asp ><b></b></a> <a href=system_rate.asp ><b>统一修改赔率</b></a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD height=4></TD></TR>
<TR>
<TD><FONT color=#000099> 正码</FONT></TD></TR></TBODY></TABLE>
<SCRIPT language=vbscript>
dim flag1,flag2,flag3,flag4,t_all1,t_all2,t_all3,t_all4
flag1=false
flag2=false
flag3=false
flag4=false
sub checkhm(y)
if (not isnumeric(form1.q_40(y).value)) or form1.q_40(y).value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form1.q_40(y).select
else if cdbl(form1.q_40(y).value)>45 then
alert("修改的号码大于45,请重新输入")
form1.q_40(y).select
end if
end if
end sub
sub check(x,t_all)
select case x
case 1
if (not isnumeric(form2.t_signle.value)) or form2.t_signle.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.t_signle.select
else if form2.chk1.checked = true then
if flag1=true then t_all=t_all1
form2.t_double.value=cdbl(t_all)-cdbl(form2.t_signle.value)
else
flag1=true
t_all1=cdbl(form2.t_signle.value)+cdbl(form2.t_double.value)
end if
end if
case 2
if (not isnumeric(form2.t_double.value)) or form2.t_double.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.t_double.select
else if form2.chk1.checked = true then
if flag1=true then t_all=t_all1
form2.t_signle.value=cdbl(t_all)-cdbl(form2.t_double.value)
else
flag1=true
t_all1=cdbl(form2.t_signle.value)+cdbl(form2.t_double.value)
end if
end if
case 3
if (not isnumeric(form2.t_big.value)) or form2.t_big.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.t_big.select
else if form2.chk2.checked = true then
if flag2=true then t_all=t_all2
form2.t_small.value=cdbl(t_all)-(form2.t_big.value)
else
flag2=true
t_all2=cdbl(form2.t_small.value)+cdbl(form2.t_big.value)
end if
end if
case 4
if (not isnumeric(form2.t_small.value)) or form2.t_small.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.t_small.select
else if form2.chk2.checked = true then
if flag2=true then t_all=t_all2
form2.t_big.value=cdbl(t_all)-cdbl(form2.t_small.value)
else
flag2=true
t_all2=cdbl(form2.t_small.value)+cdbl(form2.t_big.value)
end if
end if
case 5
if (not isnumeric(form2.z_signle.value)) or form2.z_signle.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.z_signle.select
else if form2.chk3.checked = true then
if flag3=true then t_all=t_all3
form2.z_double.value=cdbl(t_all)-cdbl(form2.z_t_signle.value)
else
flag3=true
t_all3=cdbl(form2.z_double.value)+cdbl(form2.z_t_signle.value)
end if
end if
case 6
if (not isnumeric(form2.z_double.value)) or form2.z_double.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.z_double.select
else if form2.chk3.checked = true then
if flag3=true then t_all=t_all3
form2.z_t_signle.value =cdbl(t_all)-cdbl(form2.z_double.value)
else
flag3=true
t_all3= cdbl(form2.z_double.value)+cdbl(form2.z_t_signle.value)
end if
end if
case 7
if (not isnumeric(form2.z_big.value)) or form2.z_big.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.z_big.select
else if form2.chk2.checked = true then
if flag4=true then t_all=t_all4
form2.z_small.value=cdbl(t_all)-cdbl(form2.z_big.value)
else
flag4=true
t_all4=cdbl(form2.z_small.value)+cdbl(form2.z_big.value)
end if
end if
case 8
if (not isnumeric(form2.z_small.value)) or form2.z_small.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.z_small.select
else
if form2.chk2.checked = true then
if flag4=true then t_all=t_all4
form2.z_big.value=cdbl(t_all)-cdbl(form2.z_small.value)
else
flag4=true
t_all4=cdbl(form2.z_small.value)+cdbl(form2.z_big.value)
end if
end if
case 9
if (not isnumeric(form2.red_wave.value)) or form2.red_wave.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.red_wave.select
end if
case 10
if (not isnumeric(form2.blue_wave.value)) or form2.blue_wave.value="" then
alert("修改的号码不能为空或不为数字,请重新输入")
form2.blue_wave.select
end if
end select
end sub
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY >
<TABLE TABLE cellSpacing=1 cellPadding=1 width="98%" align=center border=0>
<TBODY>
<TR bgColor=#cccccc>
<TD height=19 bgcolor="#003366"><div align="center"><span class="style2">号码</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">下注总额</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">当前赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">预计赢利</span></div></TD>
<TD height=19 bgcolor="#003366"><div align="center"><span class="style2">号码</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">下注总额</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">当前赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">预计赢利</span></div></TD>
<TD height=19 bgcolor="#003366"><div align="center"><span class="style2">号码</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">下注总额</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">当前赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">预计赢利</span></div></TD>
<TD height=19 bgcolor="#003366"><div align="center"><span class="style2">号码</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">下注总额</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">当前赔率</span></div></TD>
<TD bgcolor="#003366"><div align="center"><span class="style2">预计赢利</span></div></TD>
</TR>
<FORM name=form1 action=rate_save.asp?K6=K3 method=post>
<TR bgColor=#cccccc hight="19">
<%For I=1 To 13%>
<TR>
<TD height=11 bgcolor="#efeff0"><FONT size=+0><SPAN
style="COLOR: <%=NumberWriteColor(I)%>">
<%If I<10 Then
Response.Write "0"&I
Else
Response.Write I
End If
%>
</SPAN></FONT></TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,I-1)%> name=Num_<%=I%>> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num1><%=ShowTable_mon(I-1)%></LABEL></font></A></TD>
<TD align=center bgcolor="#efeff0" id=num_11><%=ShowTable(2,I-1)%></TD>
<TD bgcolor="#efeff0" id=yj1> </TD>
<TD height=11 bgcolor="#efeff0"><FONT size=+0><SPAN
style="COLOR: <%=NumberWriteColor(I+13)%>"><%=I+13%></SPAN></FONT></TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,I+12)%> name=Num_<%=I+13%>> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num14><%=ShowTable_mon(I+12)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_114><%=ShowTable(2,I+12)%></TD>
<TD bgcolor="#efeff0" id=yj14> </TD>
<TD height=11 bgcolor="#efeff0"><FONT size=+0><SPAN
style="COLOR: <%=NumberWriteColor(I+26)%>"><%=I+26%></SPAN></FONT></TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,I+25)%> name=Num_<%=I+26%>> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num29><%=ShowTable_mon(I+25)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_129><%=ShowTable(2,I+25)%></TD>
<TD bgcolor="#efeff0" id=yj29> </TD>
<%If I+39<50 Then%>
<TD height=11 bgcolor="#efeff0"><FONT size=+0><SPAN
style="COLOR: <%=NumberWriteColor(I+39)%>"><%=I+39%></SPAN></FONT></TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,I+38)%> name=Num_<%=I+39%>> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num43><%=ShowTable_mon(I+38)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_143><%=ShowTable(2,I+38)%></TD>
<TD bgcolor="#efeff0" id=yj43> </TD>
<%
Else
If I+39=50 Then%>
<TD height=11 colspan=5 align=center><INPUT onclick=javascript:location.reload(); type=button value=刷新本页></TD>
<%
End If
If I+39=51 Then%>
<TD height=11 colspan=5 align=center><INPUT type=submit value=修改赔率 name=submit> </TD>
<%
End If
End If%></TR>
<%Next%>
<TR align=center>
<TD height=11 colspan=2 bgcolor="#efeff0">总单</TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,49)%> name=z_single> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num1><%=ShowTable_mon(49)%></LABEL></font></A></TD>
<TD align=center bgcolor="#efeff0" id=num_11><%=ShowTable(2,49)%></TD>
<TD height=11 colspan=2 bgcolor="#efeff0">总双</TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,50)%> name=z_double> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num14><%=ShowTable_mon(50)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_114><%=ShowTable(2,50)%></TD>
<TD height=11 colspan=2 bgcolor="#efeff0">总大</TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,51)%> name=z_big> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num29><%=ShowTable_mon(51)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_129><%=ShowTable(2,51)%></TD>
<TD height=11 colspan=2 bgcolor="#efeff0">总小</TD>
<TD bgcolor="#efeff0"><INPUT class=squ
style="HEIGHT: 18px" maxLength=6 size=4 value=<%=ShowTable(2,52)%> name=z_small> </TD>
<TD align=center bgcolor="#efeff0"><font color=blue>
<LABEL
id=num43><%=ShowTable_mon(52)%></LABEL></font></TD>
<TD align=center bgcolor="#efeff0" id=num_143><%=ShowTable(2,52)%></TD>
</TR>
</FORM></TBODY></TABLE>
<SCRIPT language=javascript>
function chgCol(x)
{
if (x==1)
{
document.all[tt].style.background = "#e4e1ff";
}
if (x==2)
{
document.all[tt].style.background = "#Cc99ff";
}
if (x==3)
{
document.all[tt].style.background = "#9999FF";
}
}
var tt;
var pos;
var col=new Array();
function GetResult()
{
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
oBao.open("POST","restartz.asp",false);
oBao.send();
strResult = unescape(oBao.responseText);
var arrResult = strResult.split(",");
var re = / /g;
for(var i=0;i<arrResult.length-1;i++)
{
arrTmp = arrResult[i].split(":");
tt=arrTmp[0]
if (10000 <= yy && 30000 > yy)
{
chgCol(1)
}
if (30000 <= yy && 50000 > yy)
{
chgCol(2)
}
if (50000 <= yy)
{
chgCol(3)
}
document.all[arrTmp[0]].innerText =arrTmp[1].toString().replace(re,"");
}
}
function MyShow()
{
timer = window.setInterval("GetResult()",30000);
}
</SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -