<%@ Language=VBScript %> <%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%> <%session("FreeHostCom").FreeHost_WR("html5")%> 　邮件服务器 <%session("FreeHostCom").FreeHost_WR("html6")%>
<% 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%> <%while not ds.Eof%> <% ds.movenext wend%>
代号 　服务器名称 登陆 操作 操作
<%=ds("id")%> 　<%=ds("servername")%>(<%=ds("site")%>) IP:<%=ds("ip")%> " target="_blank">登陆 ">修改 " target=_blank>系统自检>>>
<%end if%>
<%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 %> 修改旧的服务器:
服务器命名： " size="12"> 受控网址： " size="35">
共享密码： ">
WEB登陆域名： " size="20"> POP域名： " maxlength="30">
SMTP域名： " size="20"> 服务器ＩＰ： " size="20">
所用软件：
管理员邮箱名： " size="10"> (webeasymail才需要)
管理员邮箱密码： " size="10"> (webeasymail才需要)

" size="12"> 　　　　　　　　　　　　　　　　　　　　　　　　
<% end if end if%>
添加新的服务器:
服务器命名： 受控网址：
共享密码：
　 (此密码是星外虚拟主机管理平台主控端与当前受控端共享密码，请修改成一个14位以上的密码)
　 (此密码必须与此服务器“开始”-“7i24虚拟主机管理平台”-“修改共享密码[受控端]”一致）
WEB登陆域名： POP域名：
SMTP域名： 服务器ＩＰ：
所用软件：
管理员邮箱名： (webeasymail才需要)
管理员邮箱密码： (webeasymail才需要)
<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>