📄 index_agentdata.asp
字号:
<!--#include file="../Manage/mConn.asp"-->
<!--#include file="../Manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
Dim Rs6,Login_Pwd,Credits,P_AgentID,Caution
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 1 Login_Pwd,P_AgentID,Credits,Caution From m_agent where Login_Name='"&Cstr(Session("SK2B"))&"'")
If Rs6.Eof Then
Response.Write ("<script language=javascript>alert('登陆超时！');location.href='Index_Logout.asp'</script>")
End If
Login_Pwd=Rs6("Login_Pwd")
Credits=Rs6("Credits")
P_AgentID=Rs6("P_AgentID")
Caution=Rs6("Caution")
Dim ShowTable,TableCount
TableCount=-1
Set Rs6=Conn.Execute("Select items,Rake_A,Rake_B,Rake_C,odd_numbers,odd_stock From m_quota Where accounts='"&Session("SK2B")&"' Order By ID")
If Not Rs6.Eof Then
ShowTable=Rs6.GetRows(-1)
TableCount=Ubound(ShowTable,2)
End If
Set Rs6=Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>ag_data</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript>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; }}</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=700 border=0>
<TBODY>
<TR>
<TD>
<%If P_AgentID=0 Then
Response.Write ("总代理")
Else
Response.Write ("代理")
End if%>资料 --修改 </TD></TR>
<TR>
<TD vAlign=top align=middle>
<TABLE height=96 cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height="100%">
<FORM onsubmit="return SubChk();" action=agent_Oper.asp?K6=K2
method=post>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR class=m_title_edit>
<TD colSpan=3>
<%If P_AgentID=0 Then
Response.Write ("总代理")
Else
Response.Write ("代理")
End if%>资料</TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed align=right width="18%">帐户名称:</TD>
<TD width="82%"><%=Session("SK2B")%></TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed align=right>信用额度:</TD>
<TD><%=Credits%></TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed align=right>密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8
value='<%=Login_Pwd%>' name=password> </TD></TR>
<TR class=m_bc_ed>
<TD class=m_ag_ed align=right>确认密码:</TD>
<TD><INPUT class=za_text type=password maxLength=8 size=8
value='<%=Login_Pwd%>' name=REpassword> </TD></TR>
<TR>
<TD align=middle colSpan=2><INPUT class=za_button type=submit value=确定 name=OK>
</TD></TR></TBODY></TABLE></FORM><BR>
<TABLE class=m_tab_ed cellSpacing=1 cellPadding=0 width="100%"
align=left border=0>
<TBODY>
<TR class=m_title_edit>
<TD align=middle colSpan=6>六合彩</TD></TR>
<TR align=middle>
<TD>
<DIV align=right>项目</DIV></TD>
<TD>
<DIV align=right>退水设定 <FONT color=red>A</FONT></DIV></TD>
<TD>
<DIV align=right>退水设定 <FONT color=red>B</FONT></DIV></TD>
<TD>
<DIV align=right>退水设定 <FONT color=red>C</FONT></DIV></TD>
<TD>
<DIV align=right>单项(号)限额</DIV></TD>
<TD>
<DIV align=right>单注限额</DIV></TD></TR>
<%If TableCount>=0 Then
Dim I
For I=0 To TableCount%>
<TR class=m_bc_ed>
<TD align=right><%=ShowTable(0,I)%></TD>
<TD align=right><%=ShowTable(1,I)%></TD>
<TD align=right><%=ShowTable(2,I)%></TD>
<TD align=right><%=ShowTable(3,I)%></TD>
<TD align=right><%=ShowTable(4,I)%></TD>
<TD align=right><%=ShowTable(5,I)%></TD></TR>
<%Next
End If%>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -