domain_reg_newer_pro.asp

蓝芒3.0A最新所有功能完整破解版

				response.write "<br>错误信息："&err_msg(reg.err_code)
				response.write "<br>"
				exit function
			else
				call reg.create_contactor()
				
				if not reg.err_code=0 then
					response.write "操作失败，错误代码："&reg.err_code
					response.write "<br>错误信息："&err_msg(reg.err_code)
					response.write "<br>"
					exit function
				else
					call reg.create_domain()
					
					if not reg.err_code=0 then
						response.write "操作失败，错误代码："&reg.err_code
						response.write "<br>错误信息："&err_msg(reg.err_code)
						response.write "<br>"
						exit function
					else					
						'增加域名记录,扣款处理
						strSQL="SP_DNReg '1',"&session("UserID")&",'"&request("ID")&"','"&request("Domain")&"'," & PN1 & "," & PY1 & ","& request("dns1IP")&"','"& request("dns1")&"','"& request("dns2IP")&"','"& request("dns2")&"','" & reg.domaintype & "','" & reg.pwd1 & "','" & reg.apppurpose & "','" & reg.nexuscategory &"','',''" 
						strSQL=strSQL & ",'" & reg.reg_name & "','" & reg.reg_name_cn & "','" & reg.reg_org & "','" & reg.reg_org_cn & "','" & reg.reg_cc & "','" & reg.reg_cc & "','" & reg.reg_sp & "','" & reg.reg_city & "','" & reg.reg_street1 & "','" & reg.reg_street2 & "','" & reg.reg_pc & "','" & reg.reg_voice & "','" & reg.reg_fax & "','" & reg.reg_email & "'"
						strSQL=strSQL & ",'" & reg.admin_name & "','" & reg.admin_name_cn & "','" & reg.admin_org & "','" & reg.admin_org_cn & "','" & reg.admin_cc & "','" & reg.admin_sp & "','" & reg.admin_sp & "','" & reg.admin_city & "','" & reg.admin_street1 & "','" & reg.admin_street2 & "','" & reg.admin_pc & "','" & reg.admin_voice & "','" & reg.admin_fax & "','" & reg.admin_email & "'"
						strSQL=strSQL & ",'" & reg.tech_name & "','" & reg.tech_name_cn & "','" & reg.tech_org & "','" & reg.tech_org_cn & "','" & reg.tech_cc & "','" & reg.tech_cc & "','" & reg.tech_sp & "','" & reg.tech_city & "','" & reg.tech_street1 & "','" & reg.tech_street2 & "','" & reg.tech_pc & "','" & reg.tech_voice & "','" & reg.tech_fax & "','" & reg.tech_email & "'"
						strSQL=strSQL & ",'" & reg.billing_name & "','" & reg.billing_name_cn & "','" & reg.billing_org & "','" & reg.billing_org_cn & "','" & reg.billing_cc & "','" & reg.billing_cc & "','" & reg.billing_sp & "','" & reg.billing_city & "','" & reg.billing_street1 & "','" & reg.billing_street2 & "','" & reg.billing_pc & "','" & reg.billing_voice & "','" & reg.billing_fax & "','" & reg.admin_email & "'"
						strSQL=strSQL & ",'" &Request.ServerVariables("REMOTE_ADDR")& "'"
						set Rs=Cn.Execute(strSQL)
						if rs("result")="1" then '如果成功
							' 是本地的DNS
							if (lcase(request("dns1"))=lcase(Sys_Opt_DNS1_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS2_Name)) or (lcase(request("dns1"))=lcase(Sys_Opt_DNS2_Name) and lcase(request("dns2"))=lcase(Sys_Opt_DNS1_Name)) then
								ServerIP=Sys_Opt_DNS1_IP
								Zone=request("domain")
								if AddPrimaryZone(ServerIP,Zone, Sys_Opt_DNS1_Name, Sys_Opt_DNS2_Name,RetStr)=0 then
									response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs("msg") & "</font><br>"
									Subject="注册域名成功! --" & Opt_System_CompanyName
									MailFile = "../../Include/MailTemplate/regdomain.txt"		
									if Send_Email(reg.reg_email,Subject,MailFile,"$注册人$",reg.reg_name_cn,"$域名$",reg.domain,"$密码$",reg.pwd1,"$年限$",reg.period,"$开通日期$",formatdatetime(now(),vbShortDate),"$到期日期$",formatdatetime(DateAdd("yyyy",Cint(reg.period),now()),vbShortDate),"$主DNS$",reg.dns1,"$附DNS$",reg.dns2,"","","","","","","","") then
										Response.Write "<br><font color=red>&nbsp;&nbsp;&nbsp;&nbsp;相关域名信息已经发入您的注册邮箱, 请查收您的邮箱</font><br><br>"
									end if
								else
									response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;操作失败，错误代码 :B001</font><br>"
								end if
							else
								response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs("msg") & "</font><br>"
							end if
						else
							response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs("msg") & "</font><br>"
						end if
						
						rs.close
						set rs=nothing
					end if
				end if
			end if
		end if
	end if
	response.write "<table align=center border=0 cellpadding=0 cellspacing=2 width='80%' class='uss'>"
	response.write "<caption>"
	response.write "<center>您所注域名："&domain&"</center><br>"
	response.write "</caption>"
	response.write "<tr><td color='#dbdbdb'>密码：</td><td color='#dbdbdb'>"&reg.pwd1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>DNS1：</td><td color='#dbdbdb'>"&reg.dns1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>DNS2：</td><td color='#dbdbdb'>"&reg.dns2&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>注册联系人信息：</td><td color='#dbdbdb'></td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"&reg.reg_name&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字(中文)*：</td><td color='#dbdbdb'>"&reg.reg_name_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"&reg.reg_org&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织(中文)*：</td><td color='#dbdbdb'>"&reg.reg_org_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"&reg.reg_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区(英文)*：</td><td color='#dbdbdb'>"&reg.reg_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"&reg.reg_sp&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"&reg.reg_city&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"&reg.reg_street1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"&reg.reg_street2&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"&reg.reg_pc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"&reg.reg_voice&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"&reg.reg_fax&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"&reg.reg_email&"</td></tr>"
	
	response.write "<tr><td color='#dbdbdb'>管理联系人信息：</td><td color='#dbdbdb'></td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"&reg.admin_name&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字(中文)*：</td><td color='#dbdbdb'>"&reg.admin_name_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"&reg.admin_org&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织(中文)*：</td><td color='#dbdbdb'>"&reg.admin_org_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"&reg.admin_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区(英文)*：</td><td color='#dbdbdb'>"&reg.admin_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"&reg.admin_sp&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"&reg.admin_city&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"&reg.admin_street1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"&reg.admin_street2&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"&reg.admin_pc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"&reg.admin_voice&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"&reg.admin_fax&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"&reg.admin_email&"</td></tr>"
	
	response.write "<tr><td color='#dbdbdb'>技术联系人信息：</td><td color='#dbdbdb'></td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"&reg.tech_name&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字(中文)*：</td><td color='#dbdbdb'>"&reg.tech_name_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"&reg.tech_org&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织(中文)*：</td><td color='#dbdbdb'>"&reg.tech_org_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"&reg.tech_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区(英文)*：</td><td color='#dbdbdb'>"&reg.tech_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"&reg.tech_sp&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"&reg.tech_city&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"&reg.tech_street1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"&reg.tech_street2&"</td><tr>"
	response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"&reg.tech_pc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"&reg.tech_voice&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"&reg.tech_fax&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"&reg.tech_email&"</td></tr>"
	
	response.write "<tr><td color='#dbdbdb'>付款联系人信息：</td><td color='#dbdbdb'></td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字*：</td><td color='#dbdbdb'>"&reg.billing_name&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>名字(中文)*：</td><td color='#dbdbdb'>"&reg.billing_name_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织*：</td><td color='#dbdbdb'>"&reg.billing_org&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>组织(中文)*：</td><td color='#dbdbdb'>"&reg.billing_org_cn&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区*：</td><td color='#dbdbdb'>"&reg.billing_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>国家、地区(英文)*：</td><td color='#dbdbdb'>"&reg.billing_cc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在省份*：</td><td color='#dbdbdb'>"&reg.billing_sp&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>所在城市*：</td><td color='#dbdbdb'>"&reg.billing_city&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道1*：</td><td color='#dbdbdb'>"&reg.billing_street1&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>街道2：</td><td color='#dbdbdb'>"&reg.billing_street2&"</td><tr>"
	response.write "<tr><td color='#dbdbdb'>邮政编码*：</td><td color='#dbdbdb'>"&reg.billing_pc&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系电话*：</td><td color='#dbdbdb'>"&reg.billing_voice&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>传真*：</td><td color='#dbdbdb'>"&reg.billing_fax&"</td></tr>"
	response.write "<tr><td color='#dbdbdb'>联系E-MAIL*：</td><td color='#dbdbdb'>"&reg.billing_email&"</td></tr>"
	response.write "</table>"
end function
call tempreg()
%>
<%
Call PrintPageBottom
%>