<%@ Language=VBScript %>
<%Dim ef,ec%>
<%
If session("agentusername")="" 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 id='"&Request.QueryString ("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc"
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%>
<%session("FreeHostCom").FreeHost_WR("html5")%> 修改资料
<%session("FreeHostCom").FreeHost_WR("html6")%>
修改成功，现在的密码是：<%=domainpass%>
<%session("FreeHostCom").FreeHost_WR("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>