<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cannextagn")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　名下子代理管理
<%=htmlwrite("html6")%>

<br>
<form action="searchagent.asp" method="get" name="form1" target="_blank">
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td colspan="2"><strong>　查询下级代理：</strong></td>
      <td width="70%">&nbsp;</td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　子代理名：
              <input name="username" type="text" value="<%=request("username")%>" size="10">
          或姓名（中文）：
          <input name="truename" type="text" id="truename">
或QQ：
<input name="qq" type="text" id="qq" size="10">
<br>
　或手机：
<input name="mobi" type="text" id="mobi" size="15">
或Email：
<input name="email" type="text" id="email">
或电话：
<input name="tel" type="text" id="tel" size="10">
<input type="submit" name="Submit" value="执行">
      </p></td>
    </tr>
  </table>
</form>
<form action="resetpasswordagent.asp" method="post" name="form1" target="_blank">
  <strong></strong>
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td bgcolor="#CCCCCC"><strong>　<font color="#000000">重新设置</font>下级<font color="#000000">代理登陆密码：</font></strong></td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　子代理名：
              <input name="username" type="text" value="<%=request("username")%>" size="20">
          新密码：
          <input name="password" type="text" size="20">
          <input type="submit" name="Submit222" value="执行">
      </p></td>
    </tr>
  </table>
</form>
<form action="userupagent.asp" method="post" name="form1">
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td><strong>　将普通用户升级成未定代理级别的代理用户：</strong></td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　普通用户名：
              <input name="username" type="text" size="10">
          <input type="submit" name="Submit" value="执行">
      </p></td>
    </tr>
  </table>
</form>
<form action="admagentsettype.asp" method="post" name="form1">
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td colspan="2" bgcolor="#CCCCCC"><strong>　<font color="#000000">开通或取消代理资格：</font></strong></td>
      <td width="44%">&nbsp;</td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　
              子代理用户名：
          <input name="username" type="text" id="username" value="<%=request("username")%>" size="10" maxlength="14">
          <input name="agenttype" type="radio" value="y" checked>
新开通子代理或设置代理价格　　
<input name="agenttype" type="radio" value="n">
取消代理资格:


<input name="Submit" type="submit" id="Submit" value="下一步">
</p></td>
    </tr>
  </table>
</form>
<form action="admagentsetnextagn.asp" method="post" name="form1">
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td colspan="2" bgcolor="#CCCCCC"><strong>　<font color="#000000">无限级子代理：</font></strong></td>
      <td width="44%">&nbsp;</td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　
              子代理用户名：
          <input name="username" type="text" id="username" value="<%=request("username")%>" size="10" maxlength="14">
          <input name="cannextagn" type="radio" value="y">
          允许开设下级代理　　
          <input name="cannextagn" type="radio" value="n" checked>
不允许          
<input name="Submit" type="submit" id="Submit" value="下一步">
</p></td>
    </tr>
  </table>
</form>

<form action="/agent/changeagnnext.asp" method="get" name="form1">		
            <strong></strong>
            <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
              <tr bgcolor="#CCCCCC">
                <td bgcolor="#CCCCCC"><strong>　<font color="#000000">切换身份：</font></strong></td>
              </tr>
            </table>
            <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
              <tr>
                <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用以下身份进入网站　子代理用户名：
                    <input name="username" type="text" size="20">
<input type="submit" name="Submit222" value="执行">
</p></td>
              </tr>
            </table>

</form>
<%if Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then%>
<strong><a href="/agent/register2.asp" target="_blank"><font color="#000000">注册名下新代理>>></font></a></strong><br>
<br>
<%End if%>
<strong><a href="admuserlistagent.asp?op=all" target="_blank"><font color="#000000">列出所有代理>>></font></a></strong><br>
<br>
<strong><a href="admuserlistagent.asp?op=netset" target="_blank"><font color="#000000">列出未审批的代理>>></font></a></strong><br>
<br>
<strong><a href="admuserlistagent.asp?op=waitmoney"><font color="#000000">等待处理的网上支付成功但未入帐代理>>></font></a></strong><br>
<br>
<strong><a href="admuserlistagent.asp?op=notzero" target="_blank"><font color="#000000">列出所有金额不为零的代理>>></font></a></strong><br>
<br>
<strong><a href="admuserlistagent.asp?op=zero" target="_blank"><font color="#000000">列出所有金额为零的代理>>></font></a></strong> <br>
<br>
<!--
<strong><a href="gemail.asp?type=agent&da=all" target="_blank"><font color="#000000">群发邮件给所有代理>>></font></a></strong> <br>
<br>-->

<br>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
