<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("DNSAUID")="" Then
	ec="授权非法，请您先登陆。"
	Response.Redirect "e.asp?e="&ec
end if

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("httpscookie"),instr(1,session("httpscookie"),";")-1)
xml.setRequestHeader "COOKIE", left(session("httpscookie"),instr(1,session("httpscookie"),";")-1)
xml.send
returnstr = bytes2BSTR(xml.responsebody)
	GETHTTPS = returnstr
End Function

if instr(request.QueryString,"DomainChangeDNS")>1 then
tar=replace(request.QueryString,"DomainChangeDNS","http://www.paycenter.com.cn/cgi-bin/DomainManage/DomainChangeDNS")'new 2006-1-8
else
tar=replace(request.QueryString,"Domain","http://www.paycenter.com.cn/cgi-bin/DomainManage/Domain")
end if
retdns=GETHTTPS(tar,"http://www.paycenter.com.cn/cgi-bin/DomainManage/DomainManageMain?session="&session("httpscookie"))
retdns=replace(retdns," action="""," action=""xinactionpost.asp?")

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=replace(retdns,"paycenter.com.cn","")
retdns=replace(retdns,"新网数据库","数据库")

retdns=replace(retdns,"<a href=""DomainChangeDNS","<a href=""xinaction.asp?DomainChangeDNS")
%>
<%=retdns%>