<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("DNSAUID")="" Then
	ec="ÊÚÈ¨·Ç·¨£¬ÇëÄúÏÈµÇÂ½¡£"
	Response.Redirect "e.asp?e="&ec
end if

Function POSTHTTPS(tar,ref,body)
Dim returnstr
body=Cstr(body)
Set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
xml.Open "POST", tar, False
xml.setRequestHeader "Content-Length",Len(body)
xml.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
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 body
returnstr = bytes2BSTR(xml.responsebody)
	POSTHTTPS = returnstr
End Function


if instr(request.QueryString,"DomainChangeDNS")>1 then
tar=replace(request.QueryString,"DomainChangeDNS","http://www.paycenter.com.cn/cgi-bin/DomainManage/DomainChangeDNS")
else
tar=replace(request.QueryString,"Domain","http://www.paycenter.com.cn/cgi-bin/DomainManage/Domain")
end if

out=POSTHTTPS(tar,tar,request.form)

%>
<%=out%>