📄 ag_dt.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
Dim P_AgentID
P_AgentID=Request("P_AgentID")
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select grade,accounts,tag,items,Rake_A,Rake_B,Rake_C,Rake_D,odd_numbers,odd_stock,ID From m_quota Where accounts='"&P_AgentID&"' Order By ID")
If Rs6.Eof Then
Set Rs6=Nothing
Response.Write ("<script language=javascript>alert('遇到未知错误！');history.go(-1)</script>")
End If
Dim ShowTable
ShowTable=Rs6.GetRows(-1)
%>
<HTML><HEAD><TITLE></TITLE>
<SCRIPT language=javascript>
function gold_set(gold,rtype){
var ratio;
switch(rtype)
{
case 'SP': ratio = 10; break //特别号
case 'NA': ratio = 10; break //正码
case 'EO': ratio = 10; break //单双
case 'OU': ratio = 10; break //大小
case 'CH2': ratio = 10; break //二全中
case 'CH3': ratio = 10; break //三全中
case 'CH1': ratio = 10; break //三中二
case 'CH4': ratio = 10; break //二中特
case 'CH5': ratio = 10; break //特串
case 'NAP': ratio = 10; break //正码过关
case 'SPC': ratio = 10; break //色波
case 'SPA': ratio = 10; break //生肖
case 'SOE': ratio = 10; break //特别号单双
case 'SOU': ratio = 10; break //特别号大小
case 'NOE': ratio = 10; break //正码1-6单双
case 'NOU': ratio = 10; break //正码1-6大小
default: ratio = 10;
}
document.all.ft_so_2.value = gold / ratio;
}
</SCRIPT>
<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">
<!--
body,td,th {
color: #FF0000;
}
-->
</style></HEAD>
<BODY vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD class=a_topline>
<%If ShowTable(0,0)=2 Then
Response.Write ("总代理")
Else
Response.Write ("代理商")
End If
%>详细设定 帐号:<%=ShowTable(1,0)%> --
<%If ShowTable(0,0)=2 Then
Response.Write ("总代理")
Else
Response.Write ("代理商")
End If
%>
名称:<%=ShowTable(2,0)%> -- <A
href="javascript:history.go(-1)">回上一页</A>
</TD>
<TD width=30></TD></TR>
<TR>
<TD colSpan=2 height=4></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=2 width=100% border=1>
<TBODY>
<TR class=m_title_edit>
<TD width=180 bgcolor="#FFFF00">彩票</TD>
<TD width=156 bgcolor="#FFFF00">特别号</TD>
<TD width=156 bgcolor="#FFFF00">特别号单双</TD>
<TD width=156 bgcolor="#FFFF00">特别号大小</TD>
<TD width=156 bgcolor="#FFFF00">特别号合数单双</TD>
<TD width=156 bgcolor="#FFFF00">正码</TD>
<TD width=156 bgcolor="#FFFF00">总和单双</TD>
<TD width=156 bgcolor="#FFFF00">总和大小</TD>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>退水设定 <FONT color=#cc0000>A</FONT></TD>
<%For I=0 To 6
Response.Write ("<TD col>")
if cdbl(ShowTable(4,I))<1 and cdbl(ShowTable(4,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(4,I)&"</TD>")
Next%>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>B</FONT></TD>
<%For I=0 To 6
Response.Write ("<TD col>")
if cdbl(ShowTable(5,I))<1 and cdbl(ShowTable(5,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>C</FONT></TD>
<%For I=0 To 6
Response.Write ("<TD col>")
if cdbl(ShowTable(6,I))<1 and cdbl(ShowTable(6,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(6,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>D</FONT></TD>
<%For I=0 To 6
Response.Write ("<TD col>")
if cdbl(ShowTable(7,I))<1 and cdbl(ShowTable(7,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(7,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>单项(号)限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(8,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>单注限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(9,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed> </TD>
<%For I=0 To 6
if I=0 or I=4 then
Response.Write ("<TD><A onclick=show_win('彩票','"&ShowTable(10,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(8,I)&"','"&ShowTable(9,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&","&ShowTable(7,I)&",0.5,13.00,14.00,15.00,15.00,0,0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('彩票','"&ShowTable(10,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(8,I)&"','"&ShowTable(9,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&","&ShowTable(7,I)&",0.25,3.00,3.00,3.00,3.00,0,0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
end if
Next%>
</TR></TBODY></TABLE>
<BR>
<!--第二列-->
<TABLE cellSpacing=1 cellPadding=2 width=100% border=1>
<TBODY>
<TR class=m_title_edit>
<TD width=180 bgcolor="#FFFF00">彩票</TD>
<TD width=156 bgcolor="#FFFF00">二全中</TD>
<TD width=156 bgcolor="#FFFF00">三全中</TD>
<TD width=156 bgcolor="#FFFF00">三中二</TD>
<TD width=156 bgcolor="#FFFF00">二中特</TD>
<TD width=156 bgcolor="#FFFF00">特串</TD>
<TD width=156 bgcolor="#FFFF00">正码过关</TD>
<TD width=156 bgcolor="#FFFF00">色波</TD>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>退水设定 <FONT color=#cc0000>A</FONT></TD>
<%For I=7 To 13
Response.Write ("<TD col>")
if cdbl(ShowTable(4,I))<1 and cdbl(ShowTable(4,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(4,I)&"</TD>")
Next%>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>B</FONT></TD>
<%For I=7 To 13
Response.Write ("<TD col>")
if cdbl(ShowTable(5,I))<1 and cdbl(ShowTable(5,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>C</FONT></TD>
<%For I=7 To 13
Response.Write ("<TD col>")
if cdbl(ShowTable(6,I))<1 and cdbl(ShowTable(6,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(6,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>D</FONT></TD>
<%For I=7 To 13
Response.Write ("<TD col>")
if cdbl(ShowTable(7,I))<1 and cdbl(ShowTable(7,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(7,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>单项(号)限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(8,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>单注限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(9,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed> </TD>
<%For I=7 To 13
if I=13 then
Response.Write ("<TD><A onclick=show_win('彩票','"&ShowTable(10,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(8,I)&"','"&ShowTable(9,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&","&ShowTable(7,I)&",0.25,15.00,15.00,15.00,15.00,0,0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('彩票','"&ShowTable(10,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(8,I)&"','"&ShowTable(9,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&","&ShowTable(7,I)&",0.5,15.00,15.00,15.00,15.00,0,0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
end if
Next%>
</TD></TR></TBODY></TABLE><BR><!--第三列-->
<TABLE cellSpacing=1 cellPadding=2 width=100% border=1>
<TBODY>
<TR class=m_title_edit>
<TD width=180 bgcolor="#FFFF00">彩票</TD>
<TD width=156 bgcolor="#FFFF00">生肖</TD>
<TD width=156 bgcolor="#FFFF00">正码1-6单双</TD>
<TD width=156 bgcolor="#FFFF00">正码1-6色波</TD>
<TD width=156 bgcolor="#FFFF00">正码1-6大小</TD>
<TD width=156 bgcolor="#FFFF00">一肖</TD>
<TD width=156 bgcolor="#FFFF00">六肖</TD>
<TD width=156 bgcolor="#FFFF00">半波</TD>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed>退水设定 <FONT color=#cc0000>A</FONT></TD>
<%For I=14 To 20
Response.Write ("<TD col>")
if cdbl(ShowTable(4,I))<1 and cdbl(ShowTable(4,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(4,I)&"</TD>")
Next%>
</TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>B</FONT></TD>
<%For I=14 To 20
Response.Write ("<TD col>")
if cdbl(ShowTable(5,I))<1 and cdbl(ShowTable(5,I))>0 then
response.Write "0"
end if
response.Write (ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD align=right bgcolor="#FFFF00" class=m_ag_ed><FONT color=#cc0000>C</FONT></TD>
<%For I=14 To 20
Response.Write ("<TD col>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -