<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/ZPapi.asp"-->
<!--#include virtual="/inc-freehost-function/xml.cls.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")
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"))
'if dsdom("Domain_API")=3 Or dsdom("Domain_API")=4 Then
'If Enddomaintypeid<>1 And Enddomaintypeid<>2 And Enddomaintypeid<>30 Then
'	ef=True
'	ec="API3与API4只能注册.cn及.com类域名。"
'End if
'End if
end if


if not ef Then

'dsdom("inipass")=Left(Md5(time),8)&"I@i0"
'uprov="广东"
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")

dn=dsdom("Domain")


'建立联系人
ZPret=ZP_update_contactor(dn,"registrant",dsdom("rname2"),dsdom("rname1"),dsdom("uname2"),dsdom("uname1"),dsdom("uprov"),dsdom("ucity2"),dsdom("uaddr2"),dsdom("ucity1"),dsdom("uaddr1"),dsdom("uzip"),r_telephone,r_fax,dsdom("uemail"),"P3","C31/CN",dsdom("inipass"))
contactidinfo=" 发送:"&ZPsend&" 接收:"&ZPret
If ZPEF Then
'dsdom("contactid")=contactid
'dsdom.update
'	FreeHost_oplog dsdom("username"),"信息","域名注册:"&dsdom("Domain")&"建立联系人:"&ZPsend&ZPret&contactid
'Else
	ef=True
	ec="由于网络连接原因操作并不成功。但款项已扣。请与系统管理员联系。相关出错信息为:"&server.URLEncode(ZPEC)
End If

dsdom("retdns")=ZPret
dsdom("postcon")=ZPsend


ZP_logout()'退出中频并结束socket


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%>