<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%server.ScriptTimeout =20
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansetserver")="" Then
	ef=True
	ec="您没有此操作的权限。"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="ID应该是数字！"
end if

ID=request.QueryString("id")

If ID="" then
	ef=True
	ec="ID没有提供。"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsHostserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerEmaillist where id='"&Request("id")&"'"
		dsHostserver.Open Sql,conn,1,1
If dsHostserver.Eof Then
	ef=True
	ec="服务器不存在。"
end if
end if

if not ef then
'on error resume next
retstr=SystemEmailTest(ID)
if err.number<>0 then Response.Write "出现错误："&err.description
if instr(err.description,"could not be resolved")>0 then%>
在主控服务器上，无法解析受控域名：<a href="<%=dsHostserver("site")%>"><%=dsHostserver("site")%></a>
<%end if%>
<%if instr(retstr," 404 ")>0 then%>

<font color=red>错误：404 受控端没找到(<%=dsHostserver("site")%>)。</font><br>

如果您使用的是winwebmail,请注意，邮箱受控网址应该有8888端口号，应该类似这样的格式：　http://mail.abc.com:8888　如果端口号已加上，请您检查受控网址是否正确，检查域名有没有解析好，检查受控网站有没有启动，同时，请您注意，受控网址不能和主控网址一样，受控网址也无法在IE中直接访问，只能通过自检来了解是否正常。 <br>


<%
response.end
end if%>
<br><br>
<%Response.Write retstr%>
<br><br>
如果发生错误，请参考：<br>
<br>
<a href="http://sys.7i24.com/system/support/show.asp?id=106200956253" target="_blank">http://sys.7i24.com/system/support/show.asp?id=106200956253</a><br>
<br>
<%
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>