<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canagnper")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>

<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="agentpercent.asp"><font color="#FFFFFF">代理折扣</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="148">&nbsp;</TD>
      <TD width="18">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF">
<form name="form1" method="post" action="agentpercent-sub.asp">
	  <DIV class="tableborder" id=t1>
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">全部代理的级别折扣设置</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="2%" align="right">&nbsp;</td>
    <td width="98%" align="left"><%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent_pers where agenttype<>'子代理'"
		ds.Open Sql,conn,1,1
if ds.eof then
%>
      <font color="#FF0000">您第一次设置，请注意代理级别名称设定后就不能变更的。</font><br>
代理级别名称：
<input name="agenttype1" type="text" id="agenttype1" value="金牌代理" size="15" maxlength="20">
折扣：
<input name="pers1" type="text" id="pers1" value="0.5" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype2" type="text" id="agenttype2" value="银牌代理" size="15" maxlength="20">
折扣：
<input name="pers2" type="text" id="pers2" value="0.55" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype3" type="text" id="agenttype3" value="铜牌代理" size="15" maxlength="20">
折扣：
<input name="pers3" type="text" id="pers3" value="0.6" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype4" type="text" id="agenttype4" value="普通代理A" size="15" maxlength="20">
折扣：
<input name="pers4" type="text" id="pers4" value="0.65" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype5" type="text" id="agenttype5" value="普通代理B" size="15" maxlength="20">
折扣：
<input name="pers5" type="text" id="pers5" value="0.7" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype6" type="text" id="agenttype6" value="普通代理C" size="15" maxlength="20">
折扣：
<input name="pers6" type="text" id="pers6" value="0.75" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype7" type="text" id="agenttype7" value="普通代理D" size="15" maxlength="20">
折扣：
<input name="pers7" type="text" id="pers7" value="0.8" size="5" maxlength="5">
<br>
代理级别名称：
<input name="agenttype8" type="text" id="agenttype8" value="普通代理E" size="15" maxlength="20">
折扣：
<input name="pers8" type="text" id="pers8" value="0.9" size="5" maxlength="5">
<br>
<input type="submit" name="Submit" value="提交">
<%else%>
<font color="#FF0000">修改折扣：</font>
<%i=1
while not ds.eof
'if ds("agenttype")<>"子代理" then
%>
<br>
代理级别名称：
<input name="agenttype<%=i%>" type="text" value="<%=ds("agenttype")%>" size="15" maxlength="20" disabled>
折扣：
<input name="pers<%=i%>" type="text" value="<%=ds("pers")%>" size="5" maxlength="5">
价格模板的代理用户名(可以不设置)：
<input name="template<%=i%>" type="text" value="<%=ds("template")%>" size="5">  
<a href="resetagentprice.asp?id=<%=i%>">批量修改此级别代理>>></a>
<%
'end if
i=i+1
ds.movenext
wend%>
<br>
<br>
　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　  <a href="resetagentprice.asp?id=0">批量修改子代理级别价格>>></a><br>

<input type="submit" name="Submit" value="修改折扣">
<%end if%><br>
<br>
</td>
  </tr>
</table>
	  </div>
</form>  
	  
	  
	  
<form action="admagentprice.asp" method="get" name="form1">
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">手工设置单个代理的价格</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="12%" align="right">&nbsp;</td>
    <td width="88%" height="40" align="left">代理用户名：
        <input name="username" type="text" id="username" size="10" maxlength="14">
        <input name="Submit" type="submit" id="Submit" value="下一步">
    </td>
  </tr>
</table></div>
</form>

<form name="form2" method="post" action="admagentdomain.asp">
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">分配给代理网站的默认域名的设置</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="12%" rowspan="2" align="right">&nbsp;</td>
    <td width="88%" height="39" align="left">
<%
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent_domain where id=0"
		ds.Open Sql,conn,1,3
if not ds.eof then
domain=ds("domain")
end if

%>
	域名：
      <input name="domain" type="text" id="domain" value="<%=domain%>" size="15" maxlength="50">
              <input name="Submit" type="submit" id="Submit" value="设置">              </td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td height="40" align="left">　　　 例如是：7i24.com这样的，那么会自动分配一个<br>
      　　　 http://代理名.7i24.com 的网站给代理</td>
  </tr>
</table>
</div>
</form>
	  
	  </TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>

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