📄 system_autodrop.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
'Set Rs6=Conn.Execute("Delete from m_config")
'Set Rs6=Conn.Execute("Insert into m_config (tray_time) values (Getdate())")
Set Rs6=Conn.Execute("Select ID,drop_sort,drop_value,drop_unit,low_drop from m_drop order by ID")
Dim drop_count
drop_count=-1
If Not Rs6.Eof Then
drop_table=Rs6.GetRows(-1)
drop_count=ubound(drop_table,2)
Else
Set Rs6=Conn.Execute("Delete From m_drop")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('特别号',1000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('特别号单双',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('特别号大小',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('特别号合数单双',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('总数单双',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('总数大小',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('正码1-6单双',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('正码1-6大小',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('正码1-6色波',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('特别号色波',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('十二生肖',5000,1.5)")
Set Rs6=Conn.Execute("insert into m_drop (drop_sort,drop_value,drop_unit) values ('一肖',5000,1.5)")
Set Rs6=Nothing
Response.Redirect "system_autodrop.asp"
Response.End
End If
Set Rs6=Nothing
%>
<!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>
</HEAD>
<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>
<FORM name=acc
action=index_submain.asp
method=get>
<TD> <a href=index_system.asp><b>开封盘</b></a>
<a href=system_affice.asp><b>公告</b></a>
∵<a href=system_autodrop.asp style="BACKGROUND-COLOR: #3399ff"><b>自动降水</b></a>∵
<a href=system_remem.asp><b>会员信用额还原</b></a>
<a href=system_clear.asp><b>清除数据</b></a>
<a href=system_user.asp><b></b></a>
</TD></FORM></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>
<table height=103 cellspacing=1 cellpadding=1 width="60%" align=center
bgcolor=#cccccc border=0>
<tbody>
<form name=form1 action=system_oper.asp?K6=K3 method=post>
<tr class=m_title_edit>
<td >类型</td>
<td >数值</td>
<td >每次下调赔率的单位</td>
<td >最低赔率</td>
</tr>
<%Dim I
For I=0 To drop_count
%>
<tr align=middle>
<td width="22%" class=m_mem_ed><div align="center"><strong><%=drop_table(1,I)%></strong></div></td>
<td width="23%" class=m_bc_ed>
<input type=hidden name=drop_id value='<%=drop_table(0,I)%>'>
<input type=hidden name=drop_name value='<%=drop_table(1,I)%>'>
<input id=rank size=10 value='<%=drop_table(2,I)%>'
name=rate></td>
<td width="28%" class=m_bc_ed><input id=rank size=10 value='<%=drop_table(3,I)%>'
name=ratedrop></td>
<td width="27%"class=m_bc_ed><input id=rank size=10 value='<%=drop_table(4,I)%>'
name=low_drop></td>
</tr>
<%Next%>
<tr align=middle>
<td colspan=4 bgcolor=#FFFFFF>
<input type=submit value=修改 name=Submit></td>
</tr>
</form>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -