<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(Request.QueryString ("id"))  Then
	ef=True
	ec="ID应该是数字！"
end If



if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
  Set dsagent = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'"
		dsagent.Open Sql,conn,1,1
If dsagent.Eof Then
	ef=True
	ec="代理不存在!"
end if
end if

if not ef then
if isnull(dsagent("canuseapi"))  then
	ef=True
	ec="管理员没有授权您有API模式的权限，请联系管理员开通!"
end if
end if

if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　API模式
<%=htmlwrite("html6")%>
<form action="admagentsetapi.asp" method="post" name="form1">
<DIV class="tableborder" id="table1">
<table width="100%"  border="0" cellspacing="1">
        <tr >
          <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">设置API接口参数</font></td>
        </tr>
        <tr bgcolor="#E4EAF2">
          <td width="9%" height="40" align="right" bgcolor="#E4EAF2">&nbsp;</td>
          <td width="91%" align="left"><br>　
            设置API密码：
              <input name="ApiPass" type="text" id="ApiPass" value="<%=dsagent("apipass")%>" size="10" maxlength="14">
              (必须填写)<br>　
            允许调用的远程IP1:
              <input name="apiip1" type="text" id="apiip1" size="15" maxlength="15" value="<%=dsagent("apiip1")%>">
              (必须填写)<br>
              　 允许调用的远程IP2:
              <input name="apiip2" type="text" id="apiip2" size="15" maxlength="15" value="<%=dsagent("apiip2")%>">
              (可以不设置)<br>
              　 允许调用的远程IP3:
              <input name="apiip3" type="text" id="apiip3" size="15" maxlength="15" value="<%=dsagent("apiip3")%>">
              (可以不设置)<br>
              　 允许调用的远程IP4:
              <input name="apiip4" type="text" id="apiip4" size="15" maxlength="15"value="<%=dsagent("apiip4")%>">              (可以不设置)<br>
              <br>　　
              <input name="Submit" type="submit" id="Submit" value="设置">
              <br></td>
        </tr>
      </table>
  </div>
</form>
</div>



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