📄 ag_dt.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
Response.End
End If
If Session("SK2F")="" Then
Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
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,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)
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select items,Rake_A,Rake_B,Rake_C,odd_numbers,odd_stock From m_quota Where accounts='"&Session("SK2B")&"' Order By ID")
If Not Rs6.Eof Then
TableCount=Rs6.GetRows(-1)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<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></HEAD>
<BODY text=#000000 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 class=m_tab_ed cellSpacing=1 cellPadding=0 width=820 border=0>
<TBODY>
<TR class=m_title_edit>
<TD width=180>六合彩</TD>
<TD width=156>特别号</TD>
<TD width=156>特别号单双</TD>
<TD width=156>特别号大小</TD>
<TD width=156>特别号合数单双</TD>
<TD width=156>正码</TD>
<TD width=156>总和单双</TD>
<TD width=156>总和大小</TD></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>退水设定 <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 class=m_ag_ed align=right><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 class=m_ag_ed align=right><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 class=m_ag_ed align=right>单项(号)限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(7,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>单注限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(8,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right> </TD>
<%For I=0 To 6
if I=0 or I=4 then
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",0.5,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",0.25,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
end if
Next%>
</TR></TBODY></TABLE>
<BR>
<!--第二列-->
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=820 border=0>
<TBODY>
<TR class=m_title_edit>
<TD width=180>六合彩</TD>
<TD width=156>二全中</TD>
<TD width=156>三全中</TD>
<TD width=156>三中二</TD>
<TD width=156>二中特</TD>
<TD width=156>特串</TD>
<TD width=156>正码过关</TD>
<TD width=156>色波</TD></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>退水设定 <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 class=m_ag_ed align=right><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 class=m_ag_ed align=right><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 class=m_ag_ed align=right>单项(号)限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(7,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>单注限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(8,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right> </TD>
<%For I=7 To 13
if I=13 then
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",0.5,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",1,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
end if
Next%>
</TD></TR></TBODY></TABLE><BR><!--第三列-->
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=508 border=0>
<TBODY>
<TR class=m_title_edit>
<TD width=156>六合彩</TD>
<TD width=156>生肖</TD>
<TD width=156>正码1-6单双</TD>
<TD width=156>正码1-6色波</TD>
<TD width=156>正码1-6大小</TD>
<TD width=156>一肖</TD></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>退水设定 <FONT color=#cc0000>A</FONT></TD>
<%For I=14 To 18
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 class=m_ag_ed align=right><FONT color=#cc0000>B</FONT></TD>
<%For I=14 To 18
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 class=m_ag_ed align=right><FONT color=#cc0000>C</FONT></TD>
<%For I=14 To 18
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 class=m_ag_ed align=right>单项(号)限额</TD>
<%For I=14 To 18
Response.Write ("<TD col>"&ShowTable(7,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right>单注限额</TD>
<%For I=14 To 18
Response.Write ("<TD col>"&ShowTable(8,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right> </TD>
<%For I=14 To 18
if I=14 then
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",0.5,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩','"&ShowTable(9,I)&"','"&ShowTable(3,I)&"','SP','"&ShowTable(7,I)&"','"&ShowTable(8,I)&"',"&ShowTable(4,I)&","&ShowTable(5,I)&","&ShowTable(6,I)&",0.25,"&TableCount(1,I)&","&TableCount(2,I)&","&TableCount(3,I)&",0,0,0) href='ag_dt.asp?P_AgentID="&P_AgentID&"#'>修改</A></TD>")
end if
Next%>
</TD></TR></TBODY></TABLE><!----------------------结帐视窗1---------------------------->
<DIV id=rs_window style="DISPLAY: none; POSITION: absolute">
<FORM name=rs_form onsubmit="return Chk_acc();" action=ag_dt_act.asp
method=post><INPUT type=hidden name=rtype> <INPUT type=hidden value=N name=act>
<INPUT type=hidden value=<%=P_AgentID%> name=P_AgentID>
<INPUT type=hidden value=<%=ShowTable(0,0)%> name=grade>
<INPUT
type=hidden name=aid>
<TABLE cellSpacing=1 cellPadding=2 width=220 bgColor=#00558e border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE class=m_tab_fix cellSpacing=0 cellPadding=0 width=220 border=0>
<TBODY>
<TR bgColor=#0163a2>
<TD id=r_title width=200><FONT color=#ffffff> 请输入</FONT></TD>
<TD vAlign=top align=right><A href="javascript:close_win()"><IMG
height=14 hspace=5 src="../images/close_win.gif" width=16 vspace=2
border=0></A></TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR bgColor=#a4c0ce>
<TD align=middle colSpan=2>退水
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=middle>
<TD>A盘</TD>
<TD>B盘</TD>
<TD>C盘</TD></TR>
<TR align=middle>
<TD><SELECT class=za_select name=war_set_1></SELECT> </TD>
<TD><SELECT class=za_select name=war_set_2></SELECT> </TD>
<TD><SELECT class=za_select name=war_set_3></SELECT>
</TD></TR></TBODY></TABLE></TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR bgColor=#a4c0ce>
<TD colSpan=2><FONT id=gam_limit> </FONT> <INPUT
class=za_text id=ft_sc_1 onkeyup=gold_set(this.value,rtype.value);
maxLength=8 size=8 name=SC></TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR bgColor=#a4c0ce>
<TD colSpan=2>单注限额 <INPUT class=za_text id=ft_so_2
maxLength=8 size=8 name=SO></TD></TR>
<TR bgColor=#000000>
<TD colSpan=2 height=1></TD></TR>
<TR bgColor=#a4c0ce>
<TD align=middle colSpan=2><INPUT class=za_button type=submit value=确定 name=rs_ok>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></DIV><!----------------------结帐视窗1---------------------------->
<SCRIPT language=javascript>
function Chk_acc(){
var err=0;
if (min_1 > rs_form.war_set_1.value) {
alert ('A盘低於会员!!');
err = 1;
}
if (min_2 > rs_form.war_set_2.value) {
alert ('B盘低於会员!!');
err = 1;
}
if (min_3 > rs_form.war_set_3.value) {
alert ('C盘低於会员!!');
err = 1;
}
if (err == 0) {
rs_form.act.value='Y';
close_win();
}else return false;
}
var min_1,min_2,min_3;
function show_win(kind_str,whatkind,vs_str,rtype,sc,so,war_set_1,war_set_2,war_set_3,add_count,max,max_2,max_3,min1,min2,min3) {
document.all["r_title"].innerHTML = '<font color="#FFFFFF">['+ kind_str +'--'+ vs_str + '] 请设定</font>';
min_1 = min1;
min_2 = min2;
min_3 = min3;
j1=0;
j2=0;
j3=0;
if (rtype=='SP' || rtype=='NA') {
document.all.gam_limit.innerHTML = '单号限额';
} else {
document.all.gam_limit.innerHTML = '单项限额';
}
var d=add_count;
while (rs_form.war_set_1.length){
document.rs_form.war_set_1.options[0]=null;
}
while (rs_form.war_set_2.length){
document.rs_form.war_set_2.options[0]=null;
}
while (rs_form.war_set_3.length){
document.rs_form.war_set_3.options[0]=null;
}
for(var i=0;i<=max;i+=d){
document.rs_form.war_set_1.options[j1]=new Option(i,i);
if(i==war_set_1) document.rs_form.war_set_1.selectedIndex=j1;
j1++;
}
for(var i=0;i<=max_2;i+=d){
document.rs_form.war_set_2.options[j2]=new Option(i,i);
if(i==war_set_2) document.rs_form.war_set_2.selectedIndex=j2;
j2++;
}
for(var i=0;i<=max_3;i+=d){
document.rs_form.war_set_3.options[j3]=new Option(i,i);
if(i==war_set_3) document.rs_form.war_set_3.selectedIndex=j3;
j3++;
}
rs_form.rtype.value=rtype;
rs_form.SC.value=sc;
rs_form.SO.value=so;
rs_form.aid.value=whatkind;
rs_window.style.top=document.body.scrollTop+event.clientY-120;
rs_window.style.left=document.body.scrollLeft+event.clientX+30;
document.all["rs_window"].style.display = "block";
}
function close_win() {
document.all["rs_window"].style.display = "none";
}
</SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -