⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ag_dt.asp

📁 买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	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=14 To 20 
         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=14 To 20 
   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=14 To 20 
   Response.Write ("<TD col>"&ShowTable(9,I)&"</TD>")
  Next%></TR>
  <TR class=m_cen>
    <TD align=right bgcolor="#FFFF00" class=m_ag_ed>&nbsp;</TD>
<%For I=14 To 20 
if I=14 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%>
</TD></TR></TBODY></TABLE>
	
	
	<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</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">特别号B</TD>
    <TD width=156 bgcolor="#FFFF00">正码B</TD>
  </TR>
  <TR class=m_cen>
    <TD align=right bgcolor="#FFFF00" class=m_ag_ed>退水设定 <FONT color=#cc0000>A</FONT></TD>
<%For I=21 To 26 
          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=21 To 26 
          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=21 To 26 
         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=21 To 26 
         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=21 To 26 
   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=21 To 26 
   Response.Write ("<TD col>"&ShowTable(9,I)&"</TD>")
  Next%></TR>
  <TR class=m_cen>
    <TD align=right bgcolor="#FFFF00" class=m_ag_ed>&nbsp;</TD>
<%For I=21 To 26 


   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>")
  

  Next%>
</TD></TR></TBODY></TABLE>
	
	
	
	<table width="98%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>&nbsp;</td>
      </tr>
    </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>&nbsp;请输入</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>
                <TD>D盘</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>
                <TD><SELECT class=za_select name=war_set_4></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>&nbsp;</FONT>&nbsp;&nbsp;<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>单注限额&nbsp;&nbsp;<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>
var min_1,min_2,min_3;min_4
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 (min_4 > rs_form.war_set_4.value) {
    alert ('D盘低於会员!!');
    err = 1;
  }
  
  if (err == 0) {	
    rs_form.act.value='Y';
    close_win();
  }else return false;
}

function show_win(kind_str,whatkind,vs_str,rtype,sc,so,war_set_1,war_set_2,war_set_3,war_set_4,add_count,max,max_2,max_3,max_4,min1,min2,min3,min4) {
	document.all["r_title"].innerHTML = '<font color="#FFFFFF">['+ kind_str +'--'+ vs_str + '] 请设定</font>';
	min_1 = min1;
	min_2 = min2;
	min_3 = min3;
	min_4 = min4;
	j1=0;
	j2=0;
	j3=0;
	j4=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;
	}
	while (rs_form.war_set_4.length){
		document.rs_form.war_set_4.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++;
	}
	for(var i=0;i<=max_4;i+=d){
		document.rs_form.war_set_4.options[j4]=new Option(i,i);
		if(i==war_set_4) document.rs_form.war_set_4.selectedIndex=j4;
		j4++;
	}
	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>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -