📄 ag_add.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
If Not Isnumeric(Request("P_AgentID")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim P_AgentID
If Request("P_AgentID")="" Then
P_AgentID=0
Else
P_AgentID=cInt(Request("P_AgentID"))
End If
Dim I
%>
<!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>
<SCRIPT>
function LoadBody(){
document.all.num_1.selectedIndex=document.all.num_1[0];
document.all.num_2.selectedIndex=document.all.num_2[0];
document.all.num_3.selectedIndex=document.all.num_3[0];
}
function SubChk()
{
if(document.all.num_1.value=='')
{ document.all.num_1.focus(); alert("帐号请务必输入!!"); return false; }
if(document.all.num_2.value=='')
{ document.all.num_2.focus(); alert("帐号请务必输入!!"); return false; }
if(document.all.num_3.value=='')
{ document.all.num_3.focus(); alert("帐号请务必输入!!"); return false; }
if(document.all.password.value=='')
{ document.all.password.focus(); alert("密码请务必输入!!"); return false; }
if(document.all.repassword.value=='')
{ document.all.repassword.focus(); alert("确认密码请务必输入!!"); return false; }
if(document.all.password.value != document.all.repassword.value)
{ document.all.password.focus(); alert("密码确认错误,请重新输入!!"); return false; }
if(document.all.alias.value=='')
{ document.all.alias.focus(); alert("代理商名称请务必输入!!"); return false; }
if(document.all.maxcredit.value=='' || document.all.maxcredit.value=='0')
{ document.all.maxcredit.focus(); alert("总信用额度请务必输入!!"); return false; }
if(!confirm("是否确定写入代理商?")){
return false;
}
}
function roundBy(num,num2) {
return(Math.floor((num)*num2)/num2);
}
function show_count(w,s) {
//alert(w+' - '+s);
var org_str=document.all.ag_count.innerHTML
if (s!=''){
switch(w){
//case 0:document.all.ag_count.innerHTML = s+org_str.substr(1,4);break;
case 1:document.all.ag_count.innerHTML = org_str.substr(0,2)+s+org_str.substr(3,4);break;
case 2:document.all.ag_count.innerHTML = org_str.substr(0,3)+s+org_str.substr(4,5);break;
case 3:document.all.ag_count.innerHTML = org_str.substr(0,4)+s+org_str.substr(5,4);break;
case 4:document.all.ag_count.innerHTML = org_str.substr(0,5)+s+org_str.substr(6,5);break; }
}
}
function changelocation(locationid,result)
{
var onecount;
subcat = new Array();
document.testFrm.zc.length = 1;
var locationid=locationid;
var i;
var k
for (j=0.1;j.toFixed(3)<=(result-locationid).toFixed(3);j=j+0.1)
{
document.testFrm.zc.options[document.testFrm.zc.length] = new Option((j*100).toFixed(0)+"%");
}
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0 onload=LoadBody();>
<FORM name=testFrm onsubmit="return SubChk()" action=ag_add_act.asp?P_AgentID=<%=P_AgentID%> method=post>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD height=4></TD></TR>
<TR>
<TD class=m_tline> <%If P_AgentID=0 Then
Response.Write ("总代理管理")
Else
Response.Write ("代理商管理")
End If%>--新增 --<A
href="javascript:history.go(-1)">回上一页</A>
</TD></TR>
<TR>
<TD height=4></TD></TR>
<TR><%if request("error2")<>"" then%>
<TD height=4> <IMG
src="../images/icon_err.gif" align=absMiddle border=0> <FONT
style="BACKGROUND-COLOR: #ff0000" color=#ffffff
size=2>您输入的帐号已经有人使用了!!</FONT></TD></TR><%end if%></TBODY></TABLE>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=m_title_edit>
<TD colSpan=2>基本资料设定</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed width=120>帐号: <INPUT class=za_text_00 readOnly
type=hidden size=1 value=i name=username_level> <FONT size=3>i</FONT>
<%If P_AgentID=0 Then
Response.Write ("<FONT id=ag_count>hh____</FONT>")
Else
Response.Write ("<FONT id=ag_count>hh___0</FONT>")
End If%></TD>
<TD><SELECT class=za_select_t
style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid"
onchange=show_count(1,this.value); size=1 name=num_1> <OPTION value=""
selected></OPTION>
<%For I=0 To 9
Response.Write ("<OPTION value="&I&">"&I&"</OPTION>")
Next%>
</SELECT> <SELECT class=za_select_t
style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid"
onchange=show_count(2,this.value); size=1 name=num_2> <OPTION value=""
selected></OPTION>
<%For I=0 To 9
Response.Write ("<OPTION value="&I&">"&I&"</OPTION>")
Next%></SELECT> <SELECT class=za_select_t
style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid"
onchange=show_count(3,this.value); size=1 name=num_3> <OPTION value=""
selected></OPTION>
<%For I=0 To 9
Response.Write ("<OPTION value="&I&">"&I&"</OPTION>")
Next%></SELECT>
<%
If P_AgentID=0 Then
%>
<SELECT class=za_select_t
style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid"
onchange=show_count(4,this.value); size=1 name=num_4> <OPTION value=""
selected></OPTION>
<%
For I=0 To 9
Response.Write ("<OPTION value="&I&">"&I&"</OPTION>")
Next
Else
Response.Write "0"
End If
%></select>
</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8 name=password>
</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>确认密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8 name=repassword>
</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>
<%If P_AgentID=0 Then
Response.Write ("总代理名称")
Else
Response.Write ("代理商名称")
End If
%>:</TD>
<TD><INPUT class=za_text maxLength=10 size=10 name=alias>
</TD></TR></TBODY></TABLE>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=m_title_edit>
<TD colSpan=2>下注资料设定</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed width=120>即时注单:</TD>
<TD><SELECT class=za_select id=type name=type> <OPTION value=1
selected>启动</OPTION></SELECT> </TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>总信用额度:</TD><% Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 1 Current_Credits From m_agent Where ID="&P_AgentID&" Order By ID Desc")
If Not Rs6.Eof Then
Credit_R=Rs6("Current_Credits")
End If
Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_agent Where stat='1' and P_AgentID='"&P_AgentID&"'")
If Isnull(Rs6("Credit_A")) Then
Credit_A=0
Else
Credit_A=Rs6("Credit_A")
End If
Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_agent Where stat='0' and P_AgentID='"&P_AgentID&"'")
If Isnull(Rs6("Credit_A")) Then
Credit_B=0
Else
Credit_B=Rs6("Credit_A")
End If
Set Rs6=Conn.Execute("Select Self_Cuts,super_cuts From m_agent Where ID='"&P_AgentID&"'")
If Isnull(Rs6("Self_cuts")) Then
Self_cuts=0
super_cuts=1
Else
Self_cuts=Rs6("Self_cuts")
super_cuts=Rs6("super_cuts")
End If%>
<TD><INPUT class=za_text maxLength=10 size=10 name=maxcredit>
使用状况/启动:<%=Credit_B%> 停用:<%=Credit_A%> 可用:<%=Credit_R%> </TD></TR>
<%If P_AgentID=0 Then%>
<TR class=m_bc_ed>
<TD class=m_ag_ed>管理员占成数:</TD>
<TD><SELECT class=za_select_02 name=winloss id="fei_max" onChange="changelocation(document.myFORM.fei_max.options[document.myFORM.fei_max.selectedIndex].value,100)">
<OPTION value=0 selected>0%</OPTION>
<%For I=10 To 100 Step 10
Response.Write ("<OPTION value="&I&">"&I&"%</OPTION>")
Next
%></SELECT></TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>总代理占成数:</TD>
<TD><SELECT class=za_select_02 name=bank id="zc">
<OPTION value=0 selected>0%</OPTION>
<%For I=10 To 100 Step 10
Response.Write ("<OPTION value="&I&">"&I&"%</OPTION>")
Next
%></SELECT>
<%Else
agent_zc2=0%>
<TR class=m_bc_ed>
<TD class=m_ag_ed>总代理占成数:</TD>
<TD><select class=za_select_02 name=winloss id="fei_max" onChange="changelocation(document.testFrm.fei_max.options[document.testFrm.fei_max.selectedIndex].value,<%=formatnumber(1-agent_zc2)%>)">
<%'for i=0 to formatnumber(1.01-agent_zc2) step 0.1%>
<option value="0">0%</option>
<!--option value="<%'=formatnumber(i,1,-1)%>">
<% 'select case i
'case 0
'response.write "不占成"
'case else
'response.write i*100&"%"
'end select%>
</option-->
<%'next%>
</select> </TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>代理商占成数:</TD>
<TD><select class=za_select_02 name=bank id="zc">
<option value="0">0%</option>
<%'for i=0 to round(formatnumber(1.01-agent_zc2),2) step 0.1%>
<!--option value="<%=i%>">
<% 'select case i
'case 0
'response.write "不占成"
'case else
'if cint(i*100)=100 then
'response.write "100%"
'else
'response.write left(i*100,2)&"%"
'end if
'end select%>
</option-->
<%'next%>
</select>
</TD></TR><%End IF%></TBODY></TABLE><INPUT class=za_button type=submit value=确定 name=OK>
<INPUT class=za_button id=FormsButton2 onclick=javascript:history.go(-1) type=button value=取消 name=FormsButton2>
</FORM></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -