📄 ag_add.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
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"))
set rs5=conn.execute("select Login_name,self_cuts,super_cuts from m_agent where ID="&P_AgentID&"")
if not rs5.eof then
self_cuts=rs5("self_cuts")
super_cuts=rs5("super_cuts")
end if
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></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>帐号:
<%If P_AgentID=0 Then%>
<INPUT class=za_text_00 readOnly
type=hidden size=1 value=h name=username_level> <FONT size=3>h</FONT><%
Response.Write ("<FONT id=ag_count>hy____</FONT>")%>
<%Else%>
<INPUT class=za_text_00 readOnly
type=hidden size=1 value=i name=username_level> <FONT size=3>i</FONT>
<%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>
<TD><INPUT class=za_text maxLength=10 size=10 name=maxcredit> </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.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="<%=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">
<%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>
<%Else
%>
<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="<%=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">
<%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 + -