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


Dim enc
Enddomaintypeid=GetDomaintype(request.form("DomainName"))

If session("username")="" And session("agentusername")="" And (session("admau")="" and session("DomainNameModid")="") then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf Request.Form ("DomainName")="" Then
	ef=True
	ec="域名不能为空！"
elseIf Request.Form ("NameServer1")="" Then
	ef=True
	ec="域名解析服务器1不能为空！"
elseIf Request.Form ("NameServer1")="" Then
	ef=True
	ec="域名解析服务器2不能为空！"
elseIf not Chk_Num(Request.Form ("period")) Then
	ef=True
	ec="年必须是数字！"
elseIf Request.Form ("period")>5 Then
	ef=True
	ec="年限必须小于六年！"
'elseIf (Enddomaintypeid=9 or Enddomaintypeid=4 or Enddomaintypeid=5) and Request.Form ("period")<2 Then
'	ef=True
'	ec=".mobi或.biz的域名一次性必须注册两年以上！"
elseif Application("onlyone")=true and Request.Form ("period")>1 and not (Enddomaintypeid=9 or Enddomaintypeid=4 or Enddomaintypeid=5) then
	ef=True
	ec="管理员限制了首次注册只能注册一年！"
ElseIf Instr(1, Request.Form ("DomainName"), "'", 1)>0 then
	ef=True
	ec="域名有非法字符！"
ElseIf Request.Form ("OrganizationZH")="" then
	ef=True
	ec="注册人信息的内容：单位名称(中文)不能为空"
'ElseIf Enddomaintypeid=2 and CLen(Request.Form ("OrganizationZH"))<9 then
'	ef=True
'	ec="CN域名：单位名称必须是四个汉字以上才能注册(不能用个人姓名)"


ElseIf Not CheckStrinAsc(Request.Form ("OrganizationEN")) then
	ef=True
	ec="注册人信息的内容：单位名称(英文)不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf not Instr(Trim(Request.Form ("OrganizationEN")), " ")>1 then
	ef=True
	ec="注册人信息的内容：单位名称(英文)，必须有空格！"

ElseIf Request.Form ("StreetZH")="" then
	ef=True
	ec="注册人信息的内容：通信地址中文不能为空"

ElseIf Not CheckStrinAsc(Request.Form ("StreetEN")) then
	ef=True
	ec="注册人信息的内容：通信地址英文不能为空，输入的内容必须是半角，长度在3-50个字符内。"

ElseIf Request.Form ("CityZH")="" then
	ef=True
	ec="注册人信息的内容：城市名称中文不能为空"

ElseIf Not CheckStrinAsc(Request.Form ("CityEN")) then
	ef=True
	ec="注册人信息的内容：城市名称英文不能为空，输入的内容必须是半角，长度在3-50个字符内。"

ElseIf Request.Form ("Country")="" then
	ef=True
	ec="注册人信息的内容：国家不能为空"
ElseIf Request.Form ("Province")="" then
	ef=True
	ec="注册人信息的内容：省份不能为空"

ElseIf not Chk_Num(Request.Form ("Postcode")) or len(Request.Form ("Postcode"))<1 then
	ef=True
	ec="注册人信息的内容：邮编不能为空，必须是数字"

ElseIf Len(Request.Form ("Postcode"))<>6 then
	ef=True
	ec="注册人信息的内容：邮编2必须是六位数字"

ElseIf Request.Form ("NameZH")="" then
	ef=True
	ec="注册人信息的内容：中文姓名不能为空"


ElseIf Not CheckStrinAsc(Request.Form ("NameEN")) then
	ef=True
	ec="注册人信息的内容：英文姓名不能为空，输入的内容必须是半角，长度在3-50个字符内。"

ElseIf not Instr(Trim(Request.Form ("NameEN")), " ")>1 then
	ef=True
	ec="注册人信息的内容：英文姓名，必须有空格！"

ElseIf not Chk_Num(Request.Form ("PhoneRegionCode")) or len(Request.Form ("PhoneRegionCode"))<1 then
	ef=True
	ec="注册人信息的内容：电话号码：国家编码必须是数字"
ElseIf not Chk_Num(Request.Form ("PhoneAreaCode")) or len(Request.Form ("PhoneAreaCode"))<1 or len(Request.Form ("PhoneAreaCode"))>3  then
	ef=True
	ec="注册人信息的内容：电话号码：地区编码必须是数字，而且要小于4位，例如0755要写成755"
ElseIf not Chk_Num(Request.Form ("PhoneNumber")) or len(Request.Form ("PhoneNumber"))<1 then
	ef=True
	ec="注册人信息的内容：电话号码：电话号码必须是数字"
ElseIf  Request.Form ("PhoneExt")<>"" and (not Chk_Num(Request.Form ("PhoneExt")) or len(Request.Form ("PhoneExt"))>4) then
	ef=True
	ec="注册人信息的内容：电话号码：分机必须是数字而且要小于5位"
ElseIf not Chk_Num(Request.Form ("FaxRegionCode")) or len(Request.Form ("FaxRegionCode"))<1 then
	ef=True
	ec="注册人信息的内容：传真号码：国家编码必须是数字"
ElseIf not Chk_Num(Request.Form ("FaxAreaCode")) or len(Request.Form ("FaxAreaCode"))<1 or len(Request.Form ("FaxAreaCode"))>3 then
	ef=True
	ec="注册人信息的内容：传真号码：地区编码必须是数字，而且要小于4位，例如0755要写成755"
ElseIf not Chk_Num(Request.Form ("FaxNumber")) or len(Request.Form ("FaxNumber"))<1 then
	ef=True
	ec="注册人信息的内容：传真号码：电话号码必须是数字"
ElseIf Request.Form ("FaxExt")<>"" and (not Chk_Num(Request.Form ("FaxExt")) or len(Request.Form ("FaxExt"))>4) then
	ef=True
	ec="注册人信息的内容：传真号码：分机必须是数字，而且要小于5位"
ElseIf IsValidEmail(Request.Form ("Email"))=false then
	ef=True
	ec="注册人信息的内容：Email无效"
ElseIf Request.Form ("Trade")="" then
	ef=True
	ec="注册人信息的内容：行业编码不能为空"
ElseIf Request.Form ("Manager")="" then
	ef=True
	ec="注册人信息的内容：管理人不能为空"



ElseIf Request.Form ("OrganizationZH2")="" then
	ef=True
	ec="管理人信息的内容：单位名称(中文)不能为空"

ElseIf Not CheckStrinAsc(Request.Form ("OrganizationEN2")) then
	ef=True
	ec="管理人信息的内容：单位名称(英文)不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf not Instr(Trim(Request.Form ("OrganizationEN2")), " ")>1 then
	ef=True
	ec="管理人信息的内容：单位名称(英文)，必须有空格！"

ElseIf Request.Form ("StreetZH2")="" then
	ef=True
	ec="管理人信息的内容：通信地址中文不能为空"

ElseIf Not CheckStrinAsc(Request.Form ("StreetEN2")) then
	ef=True
	ec="管理人信息的内容：通信地址英文不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf Request.Form ("CityZH2")="" then
	ef=True
	ec="管理人信息的内容：城市名称中文不能为空"
ElseIf Not CheckStrinAsc(Request.Form ("CityEN2")) then
	ef=True
	ec="管理人信息的内容：城市名称英不能为空，输入的内容必须是半角，长度在3-50个字符内。"

ElseIf Request.Form ("Country2")="" then
	ef=True
	ec="管理人信息的内容：国家不能为空"
ElseIf Request.Form ("Province2")="" then
	ef=True
	ec="管理人信息的内容：省份不能为空"
ElseIf Request.Form ("Postcode2")="" then
	ef=True
	ec="管理人信息的内容：邮编2不能为空"
ElseIf Len(Request.Form ("Postcode2"))<>6 then
	ef=True
	ec="管理人信息的内容：邮编2必须是六位数字"

ElseIf not Chk_Num(Request.Form ("Postcode2")) or len(Request.Form ("Postcode2"))<1 then
	ef=True
	ec="注册人信息的内容：邮编2不能为空，必须是数字"

ElseIf Request.Form ("NameZH2")="" then
	ef=True
	ec="管理人信息的内容：中文姓名不能为空"

ElseIf Not CheckStrinAsc(Request.Form ("NameEN2")) then
	ef=True
	ec="管理人信息的内容：英文姓名不能为空，输入的内容必须是半角，长度在3-50个字符内。"
ElseIf not Instr(Trim(Request.Form ("NameEN2")), " ")>1 then
	ef=True
	ec="管理人信息的内容：英文姓名，必须有空格！"


ElseIf not Chk_Num(Request.Form ("PhoneRegionCode2")) or len(Request.Form ("PhoneRegionCode2"))<1 then
	ef=True
	ec="管理人信息的内容：电话号码：国家编码必须是数字"
ElseIf not Chk_Num(Request.Form ("PhoneAreaCode2")) or len(Request.Form ("PhoneAreaCode2"))<1  or len(Request.Form ("PhoneAreaCode2"))>4 then
	ef=True
	ec="管理人信息的内容：电话号码：地区编码必须是数字"
ElseIf not Chk_Num(Request.Form ("PhoneNumber2")) or len(Request.Form ("PhoneNumber2"))<1 then
	ef=True
	ec="管理人信息的内容：电话号码：电话号码必须是数字"
ElseIf Request.Form ("PhoneExt2")<>"" and (not Chk_Num(Request.Form ("PhoneExt2"))  or len(Request.Form ("PhoneExt2"))>4) then
	ef=True
	ec="管理人信息的内容：电话号码：分机必须是数字而且要小于5位"
ElseIf not Chk_Num(Request.Form ("FaxRegionCode2")) or len(Request.Form ("FaxRegionCode2"))<1 then
	ef=True
	ec="管理人信息的内容：传真号码：国家编码必须是数字"
ElseIf not Chk_Num(Request.Form ("FaxAreaCode2"))  or len(Request.Form ("FaxAreaCode2"))<1  or len(Request.Form ("FaxAreaCode2"))>4  then
	ef=True
	ec="管理人信息的内容：传真号码：地区编码必须是数字"
ElseIf not Chk_Num(Request.Form ("FaxNumber2")) or len(Request.Form ("FaxNumber2"))<1 then
	ef=True
	ec="管理人信息的内容：传真号码：电话号码必须是数字"
ElseIf Request.Form ("FaxExt2")<>"" and  (not Chk_Num(Request.Form ("FaxExt2")) or len(Request.Form ("FaxExt2"))>4) then
	ef=True
	ec="管理人信息的内容：传真号码：分机必须是数字而且要小于5位"

ElseIf IsValidEmail(Request.Form ("Email2"))=false then
	ef=True
	ec="管理人信息的内容：Email无效"

ElseIf Request.Form ("Trade2")="" then
	ef=True
	ec="管理人信息的内容：行业编码不能为空"
ElseIf Request.Form ("Manager2")="" then
	ef=True
	ec="管理人信息的内容：管理人不能为空"



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"
if session("DomainNameModid")<>"" then sql="Select * from FreeHost.FreeHost_Product_Domain where id='"&session("DomainNameModid")&"'"
	dsdom.Open sql,conn,1,3
if session("DomainNameModid")="" then
dsdom.addnew
dsdom("username")=session("username")
dsdom("agent1")=session("agentname")

if session("agentusername")<>"" Then
dsdom("username")=session("agentusername")
dsdom("agent1")=session("agentusername")
End if

dsdom("Domain")=lcase(trim(request.form("DomainName")))

If Enddomaintypeid=3 And Right(dsdom("Domain"),"7")=".net.cn" Then dsdom("Domain")=Replace(dsdom("Domain"),".net.cn",".网络")
If Enddomaintypeid=3 And Right(dsdom("Domain"),"7")=".com.cn" Then dsdom("Domain")=Replace(dsdom("Domain"),".com.cn",".公司")
If Enddomaintypeid=3 And Right(dsdom("Domain"),"3")=".cn" Then dsdom("Domain")=Replace(dsdom("Domain")&"_",".cn_",".中国")

dsdom("Domain_API")=1
dsdom("ServerlistID")=1
dsdom("Domaintype")=""
dsdom("status")="预注册成功"
dsdom("starttime")=NOW
end if

dsdom("years")=request.form("period")
'dsdom("years")=1
if Application("DNS_API")=1 then dsdom("DNS_API")=1

dsdom("DomainComplex")=request.form("DomainComplex")
dsdom("Encode")=request.form("Encode")

dsdom("NameServer1")=request.form("NameServer1")
dsdom("NameServer2")=request.form("NameServer2")
dsdom("OrganizationZH")=trim(request.form("OrganizationZH"))
dsdom("OrganizationEN")=trim(request.form("OrganizationEN"))
dsdom("StreetZH")=request.form("StreetZH")
dsdom("StreetEN")=request.form("StreetEN")
dsdom("CityZH")=request.form("CityZH")
dsdom("CityEN")=request.form("CityEN")
dsdom("Country")=request.form("Country")
dsdom("Province")=request.form("Province")
dsdom("Postcode")=request.form("Postcode")
dsdom("NameZH")=request.form("NameZH")
dsdom("NameEN")=request.form("NameEN")
dsdom("PhoneRegionCode")=request.form("PhoneRegionCode")
dsdom("PhoneAreaCode")=request.form("PhoneAreaCode")
dsdom("PhoneNumber")=request.form("PhoneNumber")
dsdom("PhoneExt")=request.form("PhoneExt")
dsdom("FaxRegionCode")=request.form("FaxRegionCode")
dsdom("FaxAreaCode")=request.form("FaxAreaCode")
dsdom("FaxNumber")=request.form("FaxNumber")
dsdom("FaxExt")=request.form("FaxExt")
dsdom("Email")=request.form("Email")
dsdom("Trade")=request.form("Trade")
dsdom("Manager")=request.form("Manager")
dsdom("OrganizationZH2")=trim(request.form("OrganizationZH2"))
dsdom("OrganizationEN2")=trim(request.form("OrganizationEN2"))
dsdom("StreetZH2")=request.form("StreetZH2")
dsdom("StreetEN2")=request.form("StreetEN2")
dsdom("CityZH2")=request.form("CityZH2")
dsdom("CityEN2")=request.form("CityEN2")
dsdom("Country2")=request.form("Country2")
dsdom("Province2")=request.form("Province2")
dsdom("Postcode2")=request.form("Postcode2")
dsdom("NameZH2")=request.form("NameZH2")
dsdom("NameEN2")=request.form("NameEN2")
dsdom("PhoneRegionCode2")=request.form("PhoneRegionCode2")
dsdom("PhoneAreaCode2")=request.form("PhoneAreaCode2")
dsdom("PhoneNumber2")=request.form("PhoneNumber2")
dsdom("PhoneExt2")=request.form("PhoneExt2")
dsdom("FaxRegionCode2")=request.form("FaxRegionCode2")
dsdom("FaxAreaCode2")=request.form("FaxAreaCode2")
dsdom("FaxNumber2")=request.form("FaxNumber2")
dsdom("FaxExt2")=request.form("FaxExt2")
dsdom("Email2")=request.form("Email2")
dsdom("Trade2")=request.form("Trade2")
dsdom("Manager2")=request.form("Manager2")

if request.form("istemplate")="y" then
dsdom("istemplate")="y"
else
dsdom("istemplate")="n"
end if

dsdom.update
dsdom.close
set dsdom=nothing
conn.close
set conn=nothing

if session("agentusername")<>"" Then%>

<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　域名注册
<%=htmlwrite("html6")%>
<br><br>
<%if session("DomainNameModid")="" then%>
　　<a href="/agent/listmydomain.asp"><font color="#FF0000">预注册成功，马上付费>>></font></a><br><br>
<%else
%>
保存成功。
<%end if%>
<%=htmlwrite("html7")%>

<%else%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>　域名注册
<%=htmlwrite("html3")%>
<br><br>
<%if session("DomainNameModid")="" then%>
　　<a href="/user/listmydomain.asp"><font color="#FF0000">预注册成功，马上付费>>></font></a><br><br>
<%else
%>
保存成功。
<%end if%>
<%=htmlwrite("html4")%>
<%End if%>


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