<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
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
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerVPSlist where id='"&Request("id")&"'"
		dsserver.Open Sql,conn,1,1
If dsserver.Eof Then
	ef=True
	ec="服务器不存在。"
end if
end If

if not ef Then
If dsserver("OStype")="Windows Server 2012" Or dsserver("OStype")="Windows Server 2012R2" Or dsserver("OStype")="Windows Server 2016" Then 
If IsNull(Application("ctldomain")) Or Application("ctldomain")="" Then
	ef=True
	ec="请您先设置系统参数中的控制面板域名。"
End If
End If
End if


if not ef then
'on error resume next
URL=dsserver("site")
FreeHostsharekey=dsserver("FreeHostsharekey")
FreeHostDir=dsserver("homedir")
'retstr=SystemTestNew(URL,FreeHostsharekey,FreeHostDir)

vpscon="list all now"
If dsserver("OStype")="Windows Server 2012" or dsserver("OStype")="Windows Server 2012R2" or dsserver("OStype")="Windows Server 2016" Then vpscon="list all now  "&dsserver("id")&" "&Application("ctldomain")

op=0
retstr=VPSOP(URL,FreeHostsharekey,vpscon,op)

'response.write vpscon
'response.end

if session("servertype")="Microsoft-IIS/7.0" Then
'iis7
'dsserver("iisver")=7
'dsserver.update
End If

if session("servertype")="Microsoft-IIS/8.0" Or session("servertype")="Microsoft-IIS/8.5" Then
'iis8
'dsserver("iisver")=8
'dsserver.update
'response.write session("servertype")
End If

if err.number<>0 then Response.Write "出现错误："&err.description


if instr(retstr,"执行失败！")>0 Then%>
<font color=red>VPS的受控端需要单独购买,请联系客服QQ购买.</font>
<%end if

if instr(retstr," IMPLEMENTED")>0 Then%>
请升级受控端.
<%end if

if instr(err.description,"could not be resolved")>0 then%>
在主控服务器上，无法解析受控域名：<a href="<%=dsserver("site")%>"><%=dsserver("site")%></a><br>
请在主控服务器上ping 此域名试试。
<%end if%>
<%if instr(retstr," 403.6 ")>0 then%>

<font color=red>错误：403.6客户端的IP被拒绝,受控端不接受主控端的IP(<%=Request.ServerVariables("LOCAL_ADDR")%>)。</font><br>

造成这个问题的原因是，您在开始--运行受控端自动设置时，输入的IP不对，请注意，要输入的IP是主控IP(<%=Request.ServerVariables("LOCAL_ADDR")%>)，而不是受控IP，请输入正确的IP，然后点击建立受控网站再建立一次。 <br>

另一个解决办法是： 
打开受控服务器上的IIS，找到受控网站，点击受控网站的属性--目录安全性--IP地址限制中，修改为正确的主控IP(<%=Request.ServerVariables("LOCAL_ADDR")%>)，注意，如果您有多个主控IP，请全部加上。<br>
如果您的主控服务器的IP变动，您也要这样处理才能正常使用。

<%
response.end
end if%>
<%if instr(retstr," 404 ")>0 then%>

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

请您检查受控网址是否正确，检查域名有没有解析好，检查受控网站有没有启动，同时，请您注意，受控网址不能和主控网址一样，受控网址也无法在IE中直接访问，只能通过自检来了解是否正常。 <br>


<%
response.end
end if%>
<%if instr(retstr," 405.0 ")>0 then%>

<font color=red>错误：IIS组件没安装完整，请安装完整所有IIS组件！！！！(<%=dsserver("site")%>)。</font><br>

请您检查受控网址是否正确，检查域名有没有解析好，检查受控网站有没有启动，同时，请您注意，受控网址不能和主控网址一样，受控网址也无法在IE中直接访问，只能通过自检来了解是否正常。 <br>


<%
response.end
end if%>
<%if instr(retstr,"Internal Server Error")>1 or instr(retstr,"未指定")>1 then%>

<font color=red>错误：受控端许可证无效,请重装受控许可证后重启IIS。</font><br>

<%
response.end
end if%>

<br><br>
<%Response.Write retstr%>
详细说明请参考：<br>
<br>
<a href="http://sys.7i24.com/system/support/show.asp?id=107100944392" target="_blank">http://sys.7i24.com/system/support/show.asp?id=107100944392</a><br>
<br>
<%
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if
%>