📄 ag_edit.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"))
End If
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.Recordset")
Set Rs6=Conn.Execute("Select Top 1 Login_Name,Login_Pwd,TrueName,P_AgentID,Credits,Self_Cuts,Super_Cuts,stat From m_agent Where ID="&P_AgentID)
If Rs6.Eof Then
Set Rs6=Nothing
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Dim ShowTable
ShowTable=Rs6.GetRows(1)
Set Rs6=Conn.Execute("Select Current_Credits,ID From m_agent Where ID='"&request("P_AgentID")&"'")
If Not Rs6.Eof Then
Credit_R=Rs6("Current_Credits")
PID=Rs6("ID")
End If
Set Rs6=Conn.Execute("Select Sum(Credits) As Credit_A From m_agent Where stat='1' and P_AgentID='"&PID&"'")
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='"&PID&"'")
If Isnull(Rs6("Credit_A")) Then
Credit_B=0
Else
Credit_B=Rs6("Credit_A")
End If
%>
<!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>
var chk_account = 0;
function SubChk(){
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.focus(); alert("总信用额度请务必输入!!"); return false; }
if(!confirm("是否确定写入代理商?")){return false;}
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<FORM name=myFORM onsubmit="return SubChk()" action=ag_up_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 ShowTable(3,0)=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>帐号:</TD>
<TD><%=ShowTable(0,0)%></TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8 value='<%=ShowTable(1,0)%>'
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 value='<%=ShowTable(1,0)%>'
name=repassword> </TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>代理商名称:</TD>
<TD><INPUT class=za_text maxLength=10 size=10 value='<%=ShowTable(2,0)%>' 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 <%If ShowTable(7,0)=true Then Response.Write (" selected ")%>>停用</OPTION>
<OPTION value=0 <%If ShowTable(7,0)=false Then Response.Write (" 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 value=<%=ShowTable(4,0)%> name=maxcredit>
使用状况/启动:<%=Credit_B%> 停用:<%=Credit_A%> 可用:<%=Credit_R%> </TD>
</TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>股东占成数:</TD>
<TD><%=ShowTable(6,0)%> %</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed>总代理占成数:</TD>
<TD><%=ShowTable(5,0)%> %</TD></TR></TBODY></TABLE><INPUT type=hidden value=Y name=enable_f> <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 + -