📄 userdt.asp
字号:
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
If CheckStr(Request("rid"))="" Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim ID
rid=CheckStr(Request("rid"))
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 1 Login_Name,TrueName,memed From m_member Where Login_Name='"&rid&"' Order By ID Desc")
If Rs6.Eof Then
Set Rs6=Nothing
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim Login_Name,TrueName,memed
Login_Name=Rs6("Login_Name")
TrueName=Rs6("TrueName")
memed=Rs6("memed")
Select Case memed
Case "a"
Set Rs6=Conn.Execute("Select grade,accounts,tag,items,Rake_A,odd_numbers,odd_stock,ID From m_quota Where accounts='"&rid&"' Order By ID")
Case "b"
Set Rs6=Conn.Execute("Select grade,accounts,tag,items,Rake_B,odd_numbers,odd_stock,ID From m_quota Where accounts='"&rid&"' Order By ID")
Case "c"
Set Rs6=Conn.Execute("Select grade,accounts,tag,items,Rake_C,odd_numbers,odd_stock,ID From m_quota Where accounts='"&rid&"' Order By ID")
End Select
If Rs6.Eof Then
Set Rs6=Nothing
Response.Write ("<script language=javascript>alert('遇到未知错误！');history.go(-1)</script>")
Response.End
End If
Dim ShowTable
If Not Rs6.Eof Then
ShowTable=Rs6.GetRows(-1)
end if
Select Case memed
Case "a"
Set Rs6=Conn.Execute("Select items,Rake_A,odd_numbers,odd_stock From m_quota Where accounts='"&Session("SK2B")&"' Order By ID")
Case "b"
Set Rs6=Conn.Execute("Select items,Rake_B,odd_numbers,odd_stock From m_quota Where accounts='"&Session("SK2B")&"' Order By ID")
Case "c"
Set Rs6=Conn.Execute("Select items,Rake_C,odd_numbers,odd_stock From m_quota Where accounts='"&Session("SK2B")&"' Order By ID")
end select
If Not Rs6.Eof Then
TableCount=Rs6.GetRows(-1)
End If
Set Rs6=Nothing
%>
<!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> 会员详细设定 帐号:<%=Login_Name%> --
会员名称:<%=TrueName%> --<A
href="index_member.asp">回上一页</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=130>六合彩</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 bgColor=#99cccc>退水设定</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 bgColor=#99cccc>单项(号)限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc>单注限额</TD>
<%For I=0 To 6
Response.Write ("<TD col>"&ShowTable(6,I)&"</TD>")
Next%>
</TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc> </TD>
<%For I=0 To 6
if I=0 or I=4 then
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',0.5,"&TableCount(1,I)&") href=#>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',0.25,"&TableCount(1,I)&") href=#>修改</A></TD>")
end if
Next%>
</TD></TR></TBODY></TABLE><BR><!--2nd row-->
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=820 border=0>
<TBODY>
<TR class=m_title_edit>
<TD width=130>六合彩</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 bgColor=#99cccc>退水设定</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 bgColor=#99cccc>单项(号)限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc>单注限额</TD>
<%For I=7 To 13
Response.Write ("<TD col>"&ShowTable(6,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc> </TD>
<%For I=7 To 13
if I<>13 then
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',1,"&TableCount(1,I)&") href=#>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',0.5,"&TableCount(1,I)&") href=#>修改</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=76>六合彩</TD>
<TD width=79>生肖</TD>
<TD width=86>正码1-6单双</TD>
<TD width=86>正码1-6色波</TD>
<TD width=86>正码1-6大小</TD>
<TD width=86>一肖</TD></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc>退水设定</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 bgColor=#99cccc>单项(号)限额</TD>
<%For I=14 To 18
Response.Write ("<TD col>"&ShowTable(5,I)&"</TD>")
Next%></TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc>单注限额</TD>
<%For I=14 To 18
Response.Write ("<TD col>"&ShowTable(6,I)&"</TD>")
Next%>
</TR>
<TR class=m_cen>
<TD class=m_ag_ed align=right bgColor=#99cccc> </TD>
<%For I=14 To 18
if I=14 then
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',0.5,"&TableCount(1,I)&") href=#>修改</A></TD>")
else
Response.Write ("<TD><A onclick=show_win('六合彩',"&ShowTable(7,I)&",'"&ShowTable(3,I)&"','SP',"&ShowTable(5,I)&","&ShowTable(6,I)&",'"&ShowTable(4,I)&"',0.25,"&TableCount(1,I)&") href=#>修改</A></TD>")
end if
Next%>
</TD></TR></TBODY></TABLE><!----------------------结帐视窗1---------------------------->
<DIV id=rs_window
style="DISPLAY: none; LEFT: 10px; POSITION: absolute; TOP: 257px">
<FORM name=rs_form onsubmit="return Chk_acc();" action=mem_dt_act.asp
method=post><INPUT type=hidden name=rtype> <INPUT type=hidden value=N name=act>
<INPUT type=hidden value=<%=rid%> name=rids>
<INPUT type=hidden name=rid> <INPUT type=hidden value=1 name=ratio> <INPUT
type=hidden name=aid_f> <INPUT type=hidden value=Y name=enable_f> <INPUT
type=hidden value=1 name=page_f> <INPUT type=hidden value=3 name=orderby> <INPUT
type=hidden value=1 name=ad_sc>
<TABLE cellSpacing=1 cellPadding=2 width=240 bgColor=#00558e border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE class=m_tab_fix cellSpacing=0 cellPadding=0 width=240 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 colSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=middle>
<TD>退水 <SELECT class=za_select name=war_set_1></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=Chg_Sc_Mcy();gold_set(this.value,rtype.value);Chg_So_Mcy();
maxLength=8 size=8 name=SC> 人民币: <FONT id=mcy_sc
color=#ff0033>0</FONT></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
onkeyup=Chg_So_Mcy(); maxLength=8 size=8 name=SO> 人民币: <FONT
id=mcy_so color=#ff0033>0</FONT></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(){
rs_form.act.value='Y';
close_win();
}
function show_win(kind_str,whatkind,vs_str,rtype,sc,so,war_set_1,add_count,max) {
document.all["r_title"].innerHTML = '<font color="#FFFFFF">['+ kind_str +'--'+ vs_str + '] 请设定</font>';
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;
}
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++;
}
rs_form.rtype.value=rtype;
rs_form.SC.value=sc;
rs_form.SO.value=so;
rs_form.rid.value=whatkind;
document.all.mcy_sc.innerHTML=sc;
document.all.mcy_so.innerHTML=so;
rs_window.style.top=document.body.scrollTop+event.clientY+15;
rs_window.style.left=document.body.scrollLeft+event.clientX-20;
document.all["rs_window"].style.display = "block";
}
function close_win() {
document.all["rs_window"].style.display = "none";
}
function SubChk(){
if(!confirm("是否确定写入代理商?"))
{
return false;
}else{
location='mem.php';
}
}
function Chg_Sc_Mcy(){
ratio=eval(document.all.ratio.value);
tmp_sc=ratio*eval(document.all.SC.value);
document.all.mcy_sc.innerHTML=tmp_sc;
}
function Chg_So_Mcy(){
ratio=eval(document.all.ratio.value);
tmp_so=ratio*eval(document.all.SO.value);
document.all.mcy_so.innerHTML=tmp_so;
}
</SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -