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

	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

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

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

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

If session("username")="" And session("agentusername")="" And (session("admau")="" and session("DomainNameModid")="") then
							  '管理员身份修改域名注册信息
	ef=True
	ec="授权非法，有可能是超时造成的。"
	
ElseIf Request.Form ("strDomainName")="" Then
	ef=True
	ec="域名不能为空！"
ElseIf Instr(1, Request.Form ("DomainName"), "'", 1)>0 then
	ef=True
	ec="域名有非法字符！"
					
ElseIf Not IsNumeric(Request.Form ("intPeriod")) Then
	ef=True
	ec="年必须是数字！"
'elseIf (Enddomaintypeid=9 or Enddomaintypeid=4 or Enddomaintypeid=5) and Request.Form ("intPeriod")<2 Then
'	ef=True
'	ec=".mobi或.biz的域名一次性必须注册两年以上！"	
elseif Application("onlyone")=true and Request.Form ("intPeriod")>1 and not (Enddomaintypeid=9 or Enddomaintypeid=4 or Enddomaintypeid=5) then
	ef=True
	ec="管理员限制了首次注册只能注册一年！"
ElseIf Request.Form ("NameServer1")="" And Request.Form ("intIsMyDNS")="1" Then
	ef=True
	ec="域名解析服务器1不能为空！"
	
ElseIf Request.Form ("NameServer2")="" And Request.Form ("intIsMyDNS")="1" Then
	ef=True
	ec="域名解析服务器2不能为空！"
				ElseIf Request.Form ("strCompanyCN")="" then
					ef=True
					ec="注册人信息的内容：单位名称(中文)不能为空"
					
				ElseIf Not(CheckStrinAsc(Request.Form("strCompanyEN"))) then
					ef=True
					ec="注册人信息的内容：单位名称(英文)不能为空，输入的内容必须是半角，长度在3-50个字符内。"
				ElseIf not Instr(Request.Form ("strCompanyEN"), " ")>1 then
					ef=True
					ec="注册人信息的内容：单位名称(英文)，必须有空格！"
					
				ElseIf Request.Form ("strAddressCN")="" then
					ef=True
					ec="注册人信息的内容：通信地址中文不能为空"
					
				ElseIf Not(CheckStrinAsc(Request.Form("strAddressEN"))) then
					ef=True
					ec="注册人信息的内容：通信地址英文不能为空，输入的内容必须是半角，长度在3-50个字符内。"
					
				ElseIf Request.Form ("strCityCN")="" then
					ef=True
					ec="注册人信息的内容：城市名称中文不能为空"
					
				ElseIf Request.Form ("strCityEN")="" Or Instr(Request.Form ("strCityEN"),"'")>0 then
					ef=True
					ec="注册人信息的内容：城市名称英文不能为空或存在特殊字符"

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

				elseIf not Chk_Num(Request.Form ("strPostcode")) Then
					ef=True
					ec="邮政编码必须是半角数字！"
					
				ElseIf Request.Form ("strNameCN")="" then
					ef=True
					ec="注册人信息的内容：中文姓名不能为空"
					

				ElseIf Not(CheckStrinAsc(Request.Form("strNameEN"))) then
					ef=True
					ec="注册人信息的内容：英文姓名不能为空，输入的内容必须是半角，长度在3-50个字符内。"				
				ElseIf not Instr(Request.Form ("strNameEN"), " ")>1 then
					ef=True
					ec="注册人信息的内容：英文姓名，必须有空格！"
					
				ElseIf not Chk_Num(Request.Form ("intPhoneAreaCode")) or len(Request.Form ("intPhoneAreaCode"))<2 Or left(Request.Form ("intPhoneAreaCode"),1)="0" or len(Request.Form ("intPhoneAreaCode"))>4 then
					ef=True
					ec="注册人信息的内容：电话号码：地区编码必须是数字，且首位不能为0且输入时使用半角,(如您的区号是0513,则输入513即可)"
					
				ElseIf not Chk_Num(Request.Form ("intPhoneNumber")) Or Request.Form ("intPhoneNumber")="88888888" Or Request.Form ("intPhoneNumber")="8888888" or len(Request.Form ("intPhoneNumber"))<6 or len(Request.Form ("intPhoneNumber"))>8 Or Instr(Request.Form ("intPhoneNumber")," ")>0 then
					ef=True
					ec="注册人信息的内容：联系电话：电话号码必须是数字且输入时使用半角，长度在6-8位,不能使用88888888"

				ElseIf not Chk_Num(Request.Form ("intFaxAreaCode")) or len(Request.Form ("intFaxAreaCode"))<2 Or left(Request.Form ("intFaxAreaCode"),1)="0" or len(Request.Form ("intFaxAreaCode"))>4 then
					ef=True
					ec="注册人信息的内容：传真号码：地区编码必须是数字，且首位不能为0,(如您的区号是0513,则输入513即可)"
					
				ElseIf not Chk_Num(Request.Form ("intFaxNumber")) Or Request.Form ("intFaxNumber")="88888888" Or Request.Form ("intFaxNumber")="8888888" or len(Request.Form ("intFaxNumber"))<6  or len(Request.Form ("intFaxNumber"))>8 then
					ef=True
					ec="注册人信息的内容：传真号码：必须是数字且输入时使用半角，长度在6-8位,不能使用88888888"
					
				ElseIf IsValidEmail(Request.Form ("strEmail"))=false then
					ef=True
					ec="注册人信息的内容：Email无效"
					
				ElseIf Request.Form ("strTrade")="" then
					ef=True
					ec="注册人信息的内容：行业编码不能为空"
					
				ElseIf Request.Form ("strManager")="" 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_API")=5	'暂时不能确认注册接口
		dsdom("ServerlistID")=1 '不明参数
		dsdom("Domaintype")=""  ' 不明参数
		
		dsdom("Domain")=lcase(trim(request.form("strDomainName")))		

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("status")="预注册成功"
		dsdom("starttime")=NOW
	end if
	'以下为可修改内容
	dsdom("years")=request.form("intPeriod")
	
	if Application("DNS_API")=1 then dsdom("DNS_API")=1	
	dsdom("DomainComplex")=request.form("DomainComplex")	
	'dsdom("Encode")=request.form("Encode")				'新网互联用于识别域名类型
	

	dsdom("NameServer1")=trim(request.form("NameServer1"))
	dsdom("NameServer2")=trim(request.form("NameServer2"))
	
	dsdom("strCompanyCN")=trim(request.form("strCompanyCN"))
	dsdom("strCompanyEN")=trim(request.form("strCompanyEN"))
	dsdom("strAddressCN")=request.form("strAddressCN")
	dsdom("strAddressEN")=request.form("strAddressEN")
	dsdom("strCityCN")=request.form("strCityCN")
	dsdom("strCityEN")=request.form("strCityEN")
	dsdom("strProvince")=request.form("strProvince")
	dsdom("strPostcode")=request.form("strPostcode")
	dsdom("strNameCN")=request.form("strNameCN")
	dsdom("strNameEN")=request.form("strNameEN")
	
	dsdom("intPhoneAreaCode")=request.form("intPhoneAreaCode")
	dsdom("intPhoneNumber")=request.form("intPhoneNumber")
	dsdom("intFaxAreaCode")=request.form("intFaxAreaCode")
	dsdom("intFaxNumber")=request.form("intFaxNumber")
	dsdom("strEmail")=request.form("strEmail")
	dsdom("strTrade")=request.form("strTrade")
	dsdom("strManager")=request.form("strManager")

	dsdom("Domain_API")=5
	dsdom("dns1")=request.form("NameServer1")
    dsdom("dns2")=request.form("NameServer2")

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