<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
Function CLen(HzStr)
L = len(HzStr)
For n=1 to L
If Asc(mid( HzStr,n,1))<0 Then HzNum = HzNum + 1
Next
Clen = L + HzNum
End Function
for each item in Request.Form
if instr(Request.Form(item),"'")>0 then response.Redirect "e.asp?e=出错，请不要输入'字符："&Request.Form(item) 
if instr(Request.Form(item),"&")>0 then response.Redirect "e.asp?e=出错，请不要输入&字符："&Request.Form(item) 
if CLen(Request.Form(item))>50 then response.Redirect "e.asp?e=出错，请不要输入超出50个字母或25个汉字："&Request.Form(item)&" 字数为："&CLen(Request.Form(item))
next

Function Chk_Num(number)
Chk_Num = True
ChkStr = "0123456789"
For cnt = 1 To Len(number)
Str1Chara = Mid(number, cnt, 1)
If InStr(ChkStr, Str1Chara) = 0 Then
Chk_Num = False
Exit For
End If
Next
End Function

	Function CheckStrinAsc(str)
		CheckStrinAsc = True
		If Len(str)=0 Or str = Null Then CheckStrinAsc = False:Exit Function
		For i = 1 To Len(str)
			If asc(mid(str,i,1)) < 0 Then	CheckStrinAsc = False:Exit Function
		Next
		If Len(str)<3 Then	CheckStrinAsc = False:Exit Function
		if CLen(str)>50 Then CheckStrinAsc = False:Exit Function
	End Function



If session("DNSAUID")="" then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(session("DNSAUID"))  Then
	ef=True
	ec="ID应该是数字！"
'elseIf Enddomaintypeid=0 Then
'	ef=True
'	ec="无效的域名类型！"
'ElseIf Request.Form ("uname1")="" then
'	ef=True
'	ec="单位名称(中文)不能为空"
'ElseIf Enddomaintypeid=2 and CLen(Request.Form ("uname1"))<9 then
'	ef=True
'	ec="CN域名：单位名称必须是四个汉字以上才能注册(不能用个人姓名)"
'ElseIf Not CheckStrinAsc(Request.Form ("uname2")) then
'	ef=True
'	ec="单位名称(英文)不能为空，输入的内容必须是半角，长度在3-50个字符内。"
'ElseIf not Instr(Trim(Request.Form ("uname2")), " ")>1 then
'	ef=True
'	ec="单位名称(英文)，必须有空格！"
'ElseIf Instr(Trim(Request.Form ("uname2")), ".")>1 then
'	ef=True
'	ec="单位名称(英文)，不能有.号！"	
'ElseIf Not CheckStrinAsc(Request.Form ("uname3")) then
'	ef=True
'	ec="单位名称(拼音)不能为空，输入的内容必须是半角，长度在3-50个字符内。"
'ElseIf Request.Form ("uname4")="" and CLen(Request.Form ("uname4"))>10 and Not CheckStrinAsc(Request.Form ("uname4")) then
'	ef=True
'	ec="单位名称：(缩写)不能为空，输入的内容必须是半角，而且不能超过10个字符"
ElseIf Request.Form ("rname1")="" then
	ef=True
	ec="单位负责人：（中文）不能为空"
ElseIf Not CheckStrinAsc(Request.Form ("rname2")) then
	ef=True
	ec="单位负责人：（英文）不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf not Instr(Trim(Request.Form ("rname2")), " ")>1 then
	ef=True
	ec="单位负责人(英文)，必须有空格！"
ElseIf Request.Form ("uprov")="" then
	ef=True
	ec="省份：不能为空"
ElseIf Request.Form ("ucity1")="" then
	ef=True
	ec="城市：（中文）不能为空"
ElseIf Not CheckStrinAsc(Request.Form ("ucity2")) then
	ef=True
	ec="城市：（英文）不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf Request.Form ("uaddr1")="" then
	ef=True
	ec="街道地址：（中文）不能为空"
ElseIf Not CheckStrinAsc(Request.Form ("uaddr2")) then
	ef=True
	ec="街道地址：（英文）不能为空，输入的内容必须是半角，长度在3-50个字符内。"
'ElseIf Request.Form ("location")="" then
'	ef=True
'	ec="单位所在地点(中文)不能为空"
ElseIf Request.Form ("uzip")="" then
	ef=True
	ec="邮政编码：不能为空"
elseIf not Chk_Num(Request.Form ("uzip")) Then
	ef=True
	ec="邮政编码必须是半角数字！"
ElseIf Request.Form ("uemail")="" then
	ef=True
	ec="电子邮件：不能为空"
'ElseIf Request.Form ("aname1")="" then
'	ef=True
'	ec="姓名：（中文）不能为空"
'ElseIf Not CheckStrinAsc(Request.Form ("aname2")) then
'	ef=True
'	ec="姓名：（英文）不能为空，输入的内容必须是半角，长度在3-50个字符内。"
'ElseIf not Instr(Trim(Request.Form ("aname2")), " ")>1 then
'	ef=True
'	ec="姓名：（英文）中必须有空格！"
ElseIf Trim(Request.Form ("utela"))="" then
	ef=True
	ec="注册人电话区号不能为空"
elseIf not Chk_Num(Request.Form ("utela")) Then
	ef=True
	ec="注册人电话区号必须是半角数字！"
elseIf len(Request.Form ("utela"))>4 Then
	ef=True
	ec="注册人电话区号不能超过4位！"
elseIf len(Request.Form ("utela"))<2 Then
	ef=True
	ec="注册人电话区号不能小于2位！	"
ElseIf Trim(Request.Form ("ufaxa"))="" then
	ef=True
	ec="注册人传真区号不能为空"
elseIf not Chk_Num(Request.Form ("ufaxa")) Then
	ef=True
	ec="注册人传真区号必须是半角数字！"
elseIf len(Request.Form ("ufaxa"))>4 Then
	ef=True
	ec="注册人传真区号不能超过4位！"
elseIf len(Request.Form ("ufaxa"))<2 Then
	ef=True
	ec="注册人传真区号不能小于2位！"
'ElseIf Trim(Request.Form ("atela"))="" then
'	ef=True
'	ec="管理人电话区号不能为空"
'elseIf not Chk_Num(Request.Form ("atela")) Then
'	ef=True
'	ec="管理人电话区号必须是半角数字！"
'elseIf len(Request.Form ("atela"))>4 Then
'	ef=True
'	ec="管理人电话区号不能超过4位！"
'ElseIf Trim(Request.Form ("afaxa"))="" then
'	ef=True
'	ec="管理人传真区号不能为空"
'elseIf not Chk_Num(Request.Form ("afaxa")) Then
'	ef=True
'	ec="管理人传真区号必须是半角数字！"
'elseIf len(Request.Form ("afaxa"))>4 Then
'	ef=True
'	ec="管理人传真区号不能超过4位！"

ElseIf Trim(Request.Form ("uteln"))="" then
	ef=True
	ec="注册人电话号码不能为空"
elseIf not Chk_Num(Request.Form ("uteln")) Then
	ef=True
	ec="注册人电话号码必须是半角数字！"
elseIf len(Request.Form ("uteln"))>8 Then
	ef=True
	ec="注册人电话号码不能超过8位,请用固定号码！"
elseIf len(Request.Form ("uteln"))<7 Then
	ef=True
	ec="注册人电话号码不能小于7位,请用固定号码！"
elseIf clng(Request.Form ("uteln"))=88888888 Or clng(Request.Form ("uteln"))=8888888 Or clng(Request.Form ("uteln"))=0 Or clng(Request.Form ("uteln"))=12345678 Or clng(Request.Form ("uteln"))=1234567 Then
	ef=True
	ec="注册人电话号码不能超过为8888888/0000000/12345678/1234567/8888888/000000,请用固定号码！"
ElseIf Trim(Request.Form ("ufaxn"))="" then
	ef=True
	ec="注册人传真号码不能为空"
elseIf not Chk_Num(Request.Form ("ufaxn")) Then
	ef=True
	ec="注册人传真号码必须是半角数字！"
elseIf len(Request.Form ("ufaxn"))>8 Then
	ef=True
	ec="注册人传真号码不能超过8位,请用固定号码！"
elseIf len(Request.Form ("ufaxn"))<7 Then
	ef=True
	ec="注册人传真号码不能小于7位,请用固定号码！"
elseIf clng(Request.Form ("ufaxn"))=88888888 Or clng(Request.Form ("ufaxn"))=8888888 Or clng(Request.Form ("ufaxn"))=0 Or clng(Request.Form ("ufaxn"))=12345678 Or clng(Request.Form ("ufaxn"))=1234567 Then
	ef=True
	ec="注册人传真号码不能超过为8888888/0000000/12345678/1234567/8888888/000000,请用固定号码！"
'ElseIf Request.Form ("ateln")="" then
'	ef=True
'	ec="管理人电话号码不能为空"
'elseIf not Chk_Num(Request.Form ("ateln")) Then
'	ef=True
'	ec="管理人电话号码必须是半角数字！"
'elseIf len(Request.Form ("ateln"))>8 Then
'	ef=True
'	ec="管理人电话号码不能超过8位,请用固定号码！"
'elseIf len(Request.Form ("ateln"))<7 Then
'	ef=True
'	ec="管理人电话号码不能小于7位,请用固定号码！"
'ElseIf Request.Form ("afaxn")="" then
'	ef=True
'	ec="管理人传真号码不能为空"
'elseIf not Chk_Num(Request.Form ("afaxn")) Then
'	ef=True
'	ec="管理人传真号码必须是半角数字！"
'elseIf len(Request.Form ("afaxn"))>8 Then
'	ef=True
'	ec="管理人传真号码不能超过8位,请用固定号码！"
'elseIf len(Request.Form ("afaxn"))<7 Then
'	ef=True
'	ec="管理人传真号码不能小于7位,请用固定号码！"
ElseIf RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$",Request("uemail"))=False then
	ef=True
	ec="注册人信息的内容：Email无效"
'ElseIf RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$",Request("aemail"))=False then
'	ef=True
'	ec="管理人信息的内容：Email无效"
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='"&session("DNSAUID")&"'"
	dsdom.Open sql,conn,1,3
If Not dsdom.eof then
'dsdom("uname1")=request.form("uname1")
'dsdom("uname2")=Trim(request.form("uname2"))
dsdom("rname1")=request.form("rname1")
dsdom("rname2")=request.form("rname2")
dsdom("ust")=request.form("ust")
dsdom("uprov")=request.form("uprov")
dsdom("ucity1")=request.form("ucity1")
dsdom("ucity2")=request.form("ucity2")
dsdom("uaddr1")=request.form("uaddr1")
dsdom("uaddr2")=request.form("uaddr2")
dsdom("uzip")=request.form("uzip")
dsdom("utelc")=request.form("utelc")
dsdom("utela")=request.form("utela")
dsdom("uteln")=request.form("uteln")
dsdom("ufaxc")=request.form("ufaxc")
dsdom("ufaxa")=request.form("ufaxa")
dsdom("ufaxn")=request.form("ufaxn")
dsdom("uemail")=request.form("uemail")


Dim enc
Enddomaintypeid=GetDomaintype(dsdom("Domain"))






 
domainname=ComX.idntoac_7i24_com(Cstr(dsdom("Domain")))

utela=dsdom("utela")
If Left(utela,1)="0" Then utela=Right(utela,Len(utela)-1)
r_telephone="+86."&utela&dsdom("uteln")
ufaxa=dsdom("ufaxa")
If Left(ufaxa,1)="0" Then ufaxa=Right(ufaxa,Len(ufaxa)-1)
r_fax="+86."&ufaxa&dsdom("ufaxn")


If Application("api7select")=1 Then'is aisa
'http://ote.asiaregister.com/Interface.php?MRP_ID=1&MRP_PW=e10adc3949ba59abbe56e057f20f883e&
'Command=Domain&Action=Contact&Domain=reddns.com&RegistrantOrganizationName=RedDNS,%20Inc.&
'RegistrantFirstName=Tony&RegistrantLastName=Deng&RegistrantAddress=HongKong&
'RegistrantCity=HongKong&RegistrantStateProvince=HK&RegistrantPostalCode=98003&
'RegistrantCountry=CN&RegistrantEmailAddress=sales@reddns.com&
'RegistrantPhone=5555555555&RegistrantFax=5555555556
vsendStr = "Command=Domain&Action=Contact"
vsendStr = vsendStr &"&MRP_ID="&Application("Domain_Agent_username_7")
vsendStr = vsendStr &"&MRP_PW="&md5(Application("Domain_Agent_password_7"))
vsendStr = vsendStr &"&Domain="&domainname
vsendStr = vsendStr &"&Period="&dsdom("years")
vsendStr = vsendStr &"&RegistrantOrganizationName="&server.URLEncode(dsdom("uname2"))
vsendStr = vsendStr &"&RegistrantFirstName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&RegistrantLastName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&RegistrantAddress="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&RegistrantCity="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&RegistrantStateProvince="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&RegistrantPostalCode="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&RegistrantCountry=CN"
vsendStr = vsendStr &"&RegistrantEmailAddress="&server.URLEncode(dsdom("uemail"))
vsendStr = vsendStr &"&RegistrantPhone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&RegistrantFax="&server.URLEncode(r_fax)
vsendStr = vsendStr &"&Passwd="&server.URLEncode(dsdom("inipass"))
If dns1<>"" then
vsendStr = vsendStr &"&NS1="&server.URLEncode(dns1)
vsendStr = vsendStr &"&NS2="&server.URLEncode(dns2)
End If
	retdns=AsiaAPI(vsendStr)
	
If Instr(retdns,"ErrCount=0")<=0 Then
	ef=True
	ec="操作失败，请联系管理员！代码为："&Left(retdns,1000)
end if
If retdns="" then
	ef=True
	ec="操作失败，请联系管理员！代码为：可能的原因是原始注册商的网络不正常"
end If

If retdns="" then
	ef=True
	ec="操作失败，但款项已扣。请联系管理员！可能的原因是原始注册商的网络不正常"
	dsdom("status")="失败"
	FreeHost_oplog dsdom("username"),"失败","管理员操作，款项已扣，域名注册时由于原始注册商的网络不正常等原因操作失败:"&dsdom("Domain")
end If

elseIf Application("api7select")=2 Then'is 1api

dsdom("inipass")=Left(Md5(time),10)'&"I@i0"
 
domainname=ComX.idntoac_7i24_com(Cstr(dsdom("Domain")))

utela=dsdom("utela")
If Left(utela,1)="0" Then utela=Right(utela,Len(utela)-1)
r_telephone="+86."&utela&dsdom("uteln")
ufaxa=dsdom("ufaxa")
If Left(ufaxa,1)="0" Then ufaxa=Right(ufaxa,Len(ufaxa)-1)
r_fax="+86."&ufaxa&dsdom("ufaxn")

'先添加联系人
vsendStr = "command=AddContact"
vsendStr = vsendStr &"&s_login="&Application("Domain_Agent_username_7")
vsendStr = vsendStr &"&s_pw="&Application("Domain_Agent_password_7")
vsendStr = vsendStr &"&firstname="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&lastname="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&organization="&server.URLEncode(dsdom("uname2"))
vsendStr = vsendStr &"&street="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&city="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&state="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&zip="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&country=CN"
vsendStr = vsendStr &"&phone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&fax="&server.URLEncode(r_fax)
vsendStr = vsendStr &"&email="&server.URLEncode(dsdom("uemail"))
'vsendStr = vsendStr &"&X-DE-ACCEPT-TRUSTEE-TAC=1"
retdns=HexonetAPI(vsendStr)		
retdnscontactid=retdns
contactid=""
	for each retary in split(retdns,vblf)
	if Left(LCase(retary),20)="property[contact][0]" then
		contactid =Trim(Replace(Replace(LCase(retary),"property[contact][0]",""),"=",""))
	end if
	Next
'		response.write contactid
'	response.end

			If contactid="" Then
				ef=True
				ec="操作失败，修改资料代码为(API7-1api-contactid)："&server.URLEncode (retdns)
			End IF
If Not ef Then

vsendStr = "command=ModifyDomain"
vsendStr = vsendStr &"&s_login="&Application("Domain_Agent_username_7")
vsendStr = vsendStr &"&s_pw="&Application("Domain_Agent_password_7")
vsendStr = vsendStr &"&domain="&domainname
vsendStr = vsendStr &"&ownercontact0="&contactid
vsendStr = vsendStr &"&admincontact0="&contactid
vsendStr = vsendStr &"&techcontact0="&contactid
vsendStr = vsendStr &"&billingcontact0="&contactid
'If dns1<>"" then
'vsendStr = vsendStr &"&nameserver0="&server.URLEncode(dns1)
'vsendStr = vsendStr &"&nameserver1="&server.URLEncode(dns2)
'end if
	retdns=HexonetAPI(vsendStr)		
'	retdns=HexonetAPI(vsendStr)
if instr(UCase(Replace(retdns," ","")),"CODE=200") then
'				FreeHost_oplog dsdom("username"),"信息","管理员操作注册时返回(关闭自动续费)："&retdns&":"&dsdom("Domain")
else
				ef=True
				ec="操作失败，请联系管理员！代码为(API7-1api-modify)："&server.URLEncode (retdns)
end if

End if'contactid没出错



else
vsendStr = "command=contacts"
vsendStr = vsendStr &"&uid="&Application("Domain_Agent_username_7")
vsendStr = vsendStr &"&pw="&Application("Domain_Agent_password_7")
vsendStr = vsendStr &"&sld="&mid(domainname,1,instr(domainname,".")-1)
vsendStr = vsendStr &"&tld="&mid(domainname,instr(domainname,".")+1)
vsendStr = vsendStr &"&ContactType=REGISTRANT"


vsendStr = vsendStr &"&RegistrantOrganizationName="&server.URLEncode(dsdom("uname2"))
vsendStr = vsendStr &"&RegistrantFirstName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&RegistrantLastName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&RegistrantAddress1="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&RegistrantCity="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&RegistrantStateProvince="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&RegistrantStateProvinceChoice=S"
vsendStr = vsendStr &"&RegistrantPostalCode="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&RegistrantCountry=CN"
vsendStr = vsendStr &"&RegistrantEmailAddress="&server.URLEncode(dsdom("uemail"))
vsendStr = vsendStr &"&RegistrantPhone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&RegistrantFax="&server.URLEncode(r_fax)

vsendStr = vsendStr &"&TechFirstName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&TechLastName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&TechAddress1="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&TechCity="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&TechStateProvince="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&TechStateProvinceChoice=S"
vsendStr = vsendStr &"&TechPostalCode="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&TechCountry=CN"
vsendStr = vsendStr &"&TechEmailAddress="&server.URLEncode(dsdom("uemail"))
vsendStr = vsendStr &"&TechPhone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&TechFax="&server.URLEncode(r_fax)

vsendStr = vsendStr &"&AdminFirstName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&AdminLastName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&AdminAddress1="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&AdminCity="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&AdminStateProvince="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&AdminStateProvinceChoice=S"
vsendStr = vsendStr &"&AdminPostalCode="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&AdminCountry=CN"
vsendStr = vsendStr &"&AdminEmailAddress="&server.URLEncode(dsdom("uemail"))
vsendStr = vsendStr &"&AdminPhone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&AdminFax="&server.URLEncode(r_fax)

vsendStr = vsendStr &"&AuxBillingFirstName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(0)))
vsendStr = vsendStr &"&AuxBillingLastName="&server.URLEncode(LCase(Split(dsdom("rname2")," ")(1)))
vsendStr = vsendStr &"&AuxBillingAddress1="&server.URLEncode(dsdom("uaddr2"))
vsendStr = vsendStr &"&AuxBillingCity="&server.URLEncode(dsdom("ucity2"))
vsendStr = vsendStr &"&AuxBillingStateProvince="&server.URLEncode(dsdom("uprov"))
vsendStr = vsendStr &"&AuxBillingStateProvinceChoice=S"
vsendStr = vsendStr &"&AuxBillingPostalCode="&server.URLEncode(dsdom("uzip"))
vsendStr = vsendStr &"&AuxBillingCountry=CN"
vsendStr = vsendStr &"&AuxBillingEmailAddress="&server.URLEncode(dsdom("uemail"))
vsendStr = vsendStr &"&AuxBillingPhone="&server.URLEncode(r_telephone)
vsendStr = vsendStr &"&AuxBillingFax="&server.URLEncode(r_fax)


vsendStr = vsendStr &"&ResponseType=XML"

	retdns=EnomAPI(vsendStr)


If Instr(retdns,"<ErrCount>0</ErrCount>")<=0 Then
	ef=True
	ec="操作失败，请联系管理员！代码为："&Left(retdns,1000)
end if
If retdns="" then
	ef=True
	ec="操作失败，请联系管理员！代码为：可能的原因是原始注册商的网络不正常"
end If
End if'is enom


dsdom("retdns")=retdns
dsdom("postcon")=Replace(vsendStr,Application("Domain_Agent_password_7"),"******")
dsdom.update
'response.write retdns

End if



dsdom.close
set dsdom=nothing
conn.close
set conn=Nothing
End if

if not ef then
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Mydns</title>
<style type="text/css">
<!--
.tableborder {
	BORDER-RIGHT: #345487 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: #345487 1px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; BORDER-LEFT: #345487 1px solid; WIDTH: 98%; PADDING-TOP: 0px; BORDER-BOTTOM: #345487 1px solid; BACKGROUND-COLOR: #fff
}
p9,body,td,p,br {  font-size: 9pt}
A:visited {	TEXT-DECORATION: none;color: #666666;}
A:hover { TEXT-DECORATION: none;color: #666666;}
A:link {
	TEXT-DECORATION: none;
	color: #666666;
}
.inp {height: 20px;width:100px}
.inp2 {height: 20px;width:50px}
-->
</style>
</head>
<BODY bgColor=#FFFFFF text=#000000 leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<center>
  <br>
  <br>
  <br>
  <br>
<img src="/user/img/tip.gif" width="34" height="34" align="absmiddle">您的操作已保存成功，<a href="/dns/logininfo.asp">返回&gt;&gt;&gt;&gt;</a>
</center>
</body>
</html>
<%
End if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
