<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="ID应该是数字！"
elseIf session("canmyserver")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　邮件服务器
<%=htmlwrite("html6")%>
<br>
<%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serveremaillist where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id asc"
if request.Form ("id")<>"" Then Sql="Select * from FreeHost.FreeHost_Serveremaillist where id='"&Request("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
服务器列表为空.
<%else%>

<table width="100%" border="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#C1BFBF">
    <td width="38" align="center">代号</td>
    <td width="444" bgcolor="#C1BFBF">　服务器名称</td>
    <td width="92" align="center" bgcolor="#C1BFBF">登陆</td>
    <td width="68" align="center">操作</td>
    <td width="107" align="center">操作</td>
  </tr>
<%while not ds.Eof%>	
    
  <tr>
    <td width="38" align="center" bgcolor="#FAFAFA"><%=ds("id")%></td>
    <td width="444" bgcolor="#FAFAFA">　<%=ds("servername")%>(<%=ds("site")%>)  IP:<%=ds("ip")%></td>
    <td width="92" align="center" bgcolor="#FAFAFA"><a href="<%=ds("webdomain")%>" target="_blank">登陆</a></td>
    <td width="68" align="center" bgcolor="#FAFAFA"><a href="serveremaillist.asp?id=<%=ds("id")%>"><font color=black>修改</font></a></td>
    <td width="107" align="center" bgcolor="#FAFAFA"><a href="systememailtest.asp?id=<%=ds("id")%>" target=_blank><font color=blue>系统自检>>></font></a></td>
  </tr>
    <%
ds.movenext
wend%>
</table>
<%end if%>
  
<br> 


<%if Request("id")<>"" then

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serveremaillist where id='"&Request("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')"
		ds.Open Sql,conn,1,1
If not ds.Eof Then
%>
<SCRIPT language=JavaScript>
<!--
	function chkForm(theform)
	{
			if(! confirm("请确认是否要修改或删除?"))	return false;
		return true;
	}
//-->
</SCRIPT>
<strong>修改旧的服务器:</strong>
<form name="form1" method="post" action="serveremailadd.asp" ID="Form1" onsubmit="return chkForm(this)">
    <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
      <tr>
        <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA">服务器命名：
          <input name="servername" type="text" id="servername" value="<%=ds("servername")%>" size="12">
受控网址：
<input name="site" type="text" id="site" value="<%=ds("site")%>" size="35">
<br>
共享密码：
<input name="FreeHostsharekey" type="password" id="FreeHostsharekey"  value="<%=ds("FreeHostsharekey")%>"><br>
WEB登陆域名：
<input name="webdomain" type="text" id="webdomain" value="<%=ds("webdomain")%>" size="20">
POP域名：
<input name="popdomain" type="text" id="spacelimit" size="15" value="<%=ds("popdomain")%>" maxlength="30">
<br>
SMTP域名：
<input name="smtpdomain" type="text" id="smtpdomain" value="<%=ds("smtpdomain")%>" size="20">
服务器ＩＰ：
<input name="ip" type="text" id="ip" value="<%=ds("ip")%>" size="20">
<br>
所用软件：
<select name="softtype" id="softtype">
  <option value="WebEasyMail" <%if ds("softtype")="WebEasyMail" then%>selected<%end if%>>WebEasyMail</option>
  <option value="Imail" <%if ds("softtype")="Imail" then%>selected<%end if%>>Imail</option>
</select>
<br>
管理员邮箱名：
<input name="admname" type="text" id="admname" value="<%=ds("admname")%>" size="10">
(webeasymail才需要)<br>
管理员邮箱密码：
<input name="admpass" type="password" id="admpass" value="<%=ds("admpass")%>" size="10">
(webeasymail才需要)<br>
<br>
<input type="submit" name="Submit" value="修改" ID="Submit1">
<input name="id" type="hidden" id="id" value="<%=ds("id")%>" size="12">
　　　　　　　　　　　　　　　　　　　　　　　　
<input type="submit" name="delit" value="删除" ID="Submit1">
</td>
      </tr>
    </table>
</form>
<%
end if
end if%>
    <br>
    <strong>添加新的服务器:</strong>
  <form name="form1" method="post" action="serveremailadd.asp" ID="Form1">
    <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
      <tr>
        <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA">服务器命名：
          <input name="servername" type="text" id="servername" size="12">
受控网址：
<input name="site" type="text" id="site" size="35" value="http://">
<br>
共享密码：
<input name="FreeHostsharekey" type="password" id="FreeHostsharekey">
<br>
　 (此密码是星外虚拟主机管理平台主控端与当前受控端共享密码，请修改成一个14位以上的密码)<br>
　 (此密码必须与此服务器“开始”-“7i24虚拟主机管理平台”-“修改共享密码[受控端]”一致）<br>
WEB登陆域名：
<input name="webdomain" type="text" id="webdomain" value="http://" size="20">
POP域名：
<input name="popdomain" type="text" id="spacelimit" size="15" maxlength="30">
<br>
SMTP域名：
<input name="smtpdomain" type="text" id="smtpdomain" size="20">
服务器ＩＰ：
<input name="ip" type="text" id="ip" size="20">
<br>
所用软件：
<select name="softtype" id="softtype">
  <option value="WebEasyMail" selected>WebEasyMail</option>
  <option value="Imail">Imail</option>
</select>
<br>
管理员邮箱名：
<input name="admname" type="text" id="admname" size="10">
(webeasymail才需要)<br>
管理员邮箱密码：
<input name="admpass" type="password" id="admpass" size="10">
(webeasymail才需要)<br>
<input type="submit" name="Submit" value="添加" id="Submit1"></td>
      </tr>
    </table>
  </form>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
