📄 rate_ys.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 15 item_value,rate,current_rate,wager_gold from m_rate where item_sort='一肖' Order By ID")
Dim ShowTable
if not RS6.eof then
ShowTable=Rs6.GetRows(15)
Set Rs6=Nothing
end if
dim ShowTable_mon(15)
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;
}
-->
</style>
</HEAD>
<SCRIPT language=javascript>
window.setTimeout("self.location='rate_ys.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="597"> <a href=index_rate.asp><b>特别号</b></a>
<a href=rate_just.asp><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 style="BACKGROUND-COLOR: #3399ff"><b>一肖</b></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=javascript>
function check(x)
{
if (document.all[x].value>3.5)
{
alert("你修改的赔率大于3.5,重新输入")
document.all[x].select()
}
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY>
<FORM name=form1 action=rate_save.asp?K6=K8 method=post>
<TABLE cellSpacing=1 cellPadding=1 width="60%" align=center border=0>
<TBODY>
<TR height=25 align=center bgColor=#003366>
<TD><Font color=white>十二生肖</font></TD>
<TD><Font color=white>赔率</font></TD>
<TD><Font color=white>最新赔率</font></TD>
<TD><Font color=white>下注金额</font></TD>
<TD><Font color=white>十二生肖</font></TD>
<TD><Font color=white>赔率</font></TD>
<TD><Font color=white>最新赔率</font></TD>
<TD><Font color=white>下注金额</font></TD></TR>
<%For I=0 To 5%>
<TR align=middle bgColor=#efeff0>
<TD><%=ShowTable(0,I)%></TD>
<TD><INPUT id=rate size=6 value='<%=ShowTable(2,I)%>' name=s<%=I+1%>></TD>
<TD><LABEL id=num1><%=ShowTable(2,I)%></LABEL></TD>
<TD><font color=blue><LABEL
id=zz1><%=ShowTable_mon(I)%></LABEL></font></TD>
<TD><%=ShowTable(0,I+6)%></TD>
<TD><input id=rate size=6 value='<%=ShowTable(2,I+6)%>' name=s<%=I+7%>></TD>
<TD><LABEL id=num2><%=ShowTable(2,I+6)%></LABEL></TD>
<TD><font color=blue><LABEL
id=zz1><%=ShowTable_mon(I+6)%></LABEL></font></TD></TR>
<%Next%>
</TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=1 width=400 align=center border=0>
<TBODY>
<TR align=middle bgColor=#efeff0>
<TD><INPUT type=submit value=修改 name=Submit></TD>
<TD bgColor=#efeff0><INPUT onclick=javascript:location.reload(); type=button value=刷新本页></TD>
<TD align=middle colSpan=5 rowSpan=3></TD></TR></TBODY></TABLE></FORM>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -