<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("DNSAUID")="" Then
	ec="ÊÚÈ¨·Ç·¨£¬ÇëÄúÏÈµÇÂ½¡£"
	Response.Redirect "e.asp?e="&ec
end if
Function GETHTTPS_INFO(tar,ref)
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = tar
HttpObj.RequestMethod = "GET"
HttpObj.AddExtraHeader "Cookie: " & session("httpscookie")
strResult = HttpObj.GetURL
GETHTTPS_INFO=strResult
End Function

Function GETHTTPS(tar,ref)
Dim returnstr
Set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
xml.Open "GET", tar, False
xml.setRequestHeader "REFERER",ref
xml.setRequestHeader "COOKIE", left(session("dopost_cookie"),instr(1,session("dopost_cookie"),";")-1)
xml.setRequestHeader "COOKIE", left(session("dopost_cookie"),instr(1,session("dopost_cookie"),";")-1)
xml.send
returnstr = bytes2BSTR(xml.responsebody)
	GETHTTPS = returnstr
End Function


tar="http://mgt.dns.com.cn"&request.QueryString
if instr(tar,"domaincontactor")>0 then
retdns=GETHTTPS_INFO(tar,"http://mgt.dns.com.cn?session="&session("httpscookie"))
else
retdns=GETHTTPS(tar,"http://mgt.dns.com.cn?session="&session("httpscookie"))
end if
if instr(tar,"ModStatus")>0 then
retdns=replace(retdns," action="""," action=""dnsactionpost.asp?")
retdns=replace(retdns,"/images/","http://agent.dns.com.cn/images/")
else
retdns=replace(retdns," action="""," action=""dnsactionpost.asp?/main/control/")
retdns=replace(retdns,"/images/","http://mgt.dns.com.cn/images/")
end if
retdns=replace(retdns,"ns1.dns.com.cn",Application("DNS1"))
retdns=replace(retdns,"ns2.dns.com.cn",Application("DNS2"))
retdns=replace(retdns,"ns.xinnetdns.com",Application("DNS1"))
retdns=replace(retdns,"ns.xinnet.cn",Application("DNS2"))
%>
<%=retdns%>