<!--#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

tar=Application("Domain_HTTP")&request.QueryString
retdns=GETHTTPS(tar,Application("Domain_HTTP")&"/domainportal?module=domainshow")
retdns=replace(retdns,"/_default/domainportal/","")
retdns=replace(retdns,"domainportal?module=pwd","")
retdns=replace(retdns,"dnsportal?domainname="&session("domain"),"")
retdns=replace(retdns,"domainportal?module=urlforword","")
retdns=replace(retdns,"domainportal?module=logout","/dns/logininfo.asp")
retdns=replace(retdns,"domainportal?","dnsaction.asp?/domainportal?")
retdns=replace(retdns,"v2/","http://www.bizcn.com/_default/domainportal/v2/")
retdns=replace(retdns,"/http://","http://")
retdns=replace(retdns,"修改域名管理密码","")
retdns=replace(retdns,"URL转发","")
retdns=replace(retdns,"获取证书","")
retdns=replace(retdns,"DNS解析管理","")
retdns=replace(retdns,"修改域名DNS","")

retdns=replace(retdns,"ns1.4everdns.com",Application("DNS1"))
retdns=replace(retdns,"ns2.4everdns.com",Application("DNS2"))
retdns=replace(retdns," action="""," action=""dnsactionpost.asp?")
%>
<%=retdns%>