<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request ("id")="" Then
	ef=True
	ec="请选择产品id！"
ElseIf not IsNumeric(Request("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 (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and id='"&Request("id")&"'"
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsdom.Open sql,conn,3,2
if dsdom.eof then
	ef=True
	ec="不存在的域名！"
end if
end if

if not ef then
If dsdom("Domain_API")<>4 then
	ef=True
	ec="域名API不正确"
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
on error resume next
urllogin="https://cp.35.com/cgi-bin/chinese/login.cgi"
If TOLOGINDNS_CH(urllogin)=false then
If TOLOGINDNS_CH(urllogin)=false then
	ef=True
	ec="登陆域名接口失败，可能是网络忙的原因造成的，请再试一次，或请联系管理员。"
end if
end if
end if
end if

if not ef then
id=0
domtemp=Right(dsdom("Domain"),"3")
if domtemp="com" or domtemp="net" or domtemp="org" then id=1
if domtemp=".cn" then id=2
if domtemp=".中国" or domtemp=".公司" or domtemp=".网络" then id=3
If id=0 then
	ef=True
	ec="不可识别的域名类型！"
end if
end if






if not ef then
if request.form("password1")<>"" then dsdom("inipass")=request.form("password1")
domainpass=dsdom("inipass")
dsdom.update
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　操作结果
<%=htmlwrite("html6")%>
<br><br>修改成功。
<br><br><br>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
