<%@ Language=VBScript %>
<%Dim ef,ec%>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostDomain.asp"-->
<!--#include virtual="/inc-freehost-function/ZPapi.asp"-->
<!--#include virtual="/inc-freehost-function/xml.cls.asp"-->
<%
If session("username")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request.QueryString ("id")="" Then
	ef=True
	ec="请选择产品！"
ElseIf not IsNumeric(Request.QueryString("id"))  Then
	ef=True
	ec="产品ID应该是数字！"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsdom = Server.CreateObject("ADODB.Recordset")
sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session("username")&"' and id='"&Request.QueryString ("id")&"'"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsdom.Open sql,conn,1,3
if dsdom.eof then
	ef=True
	ec="不存在的域名！"
end if
end if

if not ef then
If dsdom("status")<>"正常" Then
	ef=True
	ec="未付费的产品不能设置！"
end if
end if


if not ef then
if dsdom("Domain_API")=4 then
If TOLOGINZP()=true then
	ef=True
	ec="登陆API4域名接口失败，可能是网络忙的原因造成的，请再试一次，或请联系管理员。相关出错信息为:"&server.URLEncode(ZPEC)
end if
end if
end If


if not ef Then
Dim enc
Enddomaintypeid=GetDomaintype(dsdom("Domain"))
end if


if not ef then
domainpass=dsdom("inipass")
dim returncodevalue,failreason
Dim passarry3,passarry5
ChangeDomainPD()
dsdom.update
end if

if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>　修改资料
<%=htmlwrite("html3")%>

<br><br>修改成功，现在的密码是：<%=domainpass%>
<br><br><br>

<%=htmlwrite("html4")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
