domain_reg_common_pro.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 147 行

<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<!--#include file="../../../Include/WEBCtrl.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../domain_reg_class.asp"-->
<%
function tempreg()
	'********定义类*******'
	dim reg
	set reg = new reg_domain
	reg.domain=request("domain")
	reg.domain_tail=request("domain_tail")
	
	select case reg.domain_tail 
		case ".com" reg.mode_id=1001
		case ".net" reg.mode_id=2001
		case ".org" reg.mode_id=3001
	end select
	

	'********初始化类的属性参数值*******'
	'注册年限
	reg.period=CInt(session("P_BuyYear"))*CInt(session("P_ProdYear"))
	reg.pwd1=request("pwd1")
	reg.pwd2=request("pwd2")
	reg.dns1=request("dns1")
	reg.dns2=request("dns2")

	reg.customer_id=session("UserID")
	reg.customer_password=session("UserPSW")
	reg.order_type=0
	reg.term_id=1000
	reg.item_id=0
	
	'以下只是为了测试方便，要与表结合使用
	reg.appPurpose="p1"
	reg.nexuscategory="c12"
	'---------------------------
	'reg.clID=real_username
	'reg.pwd=real_userpwd
	'---------------------------
	reg.domaintype=0
	reg.domain=request("domain")
	
	
	reg.reg_name=request("reg_name")
	reg.reg_name_cn=request("reg_name_cn")
	reg.reg_org=request("reg_org")
	reg.reg_org_cn=request("reg_org_cn")
	reg.reg_cc=request("reg_country")
	reg.reg_sp=request("reg_state")
	reg.reg_city=request("reg_city")
	reg.reg_street1=request("reg_street1")
	reg.reg_street2=request("reg_street2")
	reg.reg_street3=""
	reg.reg_pc=request("reg_pc")
	reg.reg_voice=request("reg_tel")
	reg.reg_fax=request("reg_fax")
	reg.reg_email=request("reg_email")
	
	
	reg.admin_name=request("admin_name")
	reg.admin_name_cn=request("admin_name_cn")
	reg.admin_org=request("admin_org")
	reg.admin_org_cn=request("admin_org_cn")
	reg.admin_cc=request("admin_country")
	reg.admin_sp=request("admin_state")
	reg.admin_city=request("admin_city")
	reg.admin_street1=request("admin_street1")
	reg.admin_street2=request("admin_street2")
	reg.admin_street3=""
	reg.admin_pc=request("admin_pc")
	reg.admin_voice=request("admin_tel")
	reg.admin_fax=request("admin_fax")
	reg.admin_email=request("admin_email")
	
	
	reg.tech_name=request("tel_name")
	reg.tech_name_cn=request("tel_name_cn")
	reg.tech_org=request("tel_org")
	reg.tech_org_cn=request("tel_org_cn")
	reg.tech_cc=request("tel_country")
	reg.tech_sp=request("tel_state")
	reg.tech_city=request("tel_city")
	reg.tech_street1=request("tel_street1")
	reg.tech_street2=request("tel_street2")
	reg.tech_street3=""
	reg.tech_pc=request("tel_pc")
	reg.tech_voice=request("tel_tel")
	reg.tech_fax=request("tel_fax")
	reg.tech_email=request("tel_email")
	
	
	reg.billing_name=request("money_name")
	reg.billing_name_cn=request("money_name_cn")
	reg.billing_org=request("money_org")
	reg.billing_org_cn=request("money_org_cn")
	reg.billing_cc=request("money_country")
	reg.billing_sp=request("money_state")
	reg.billing_city=request("money_city")
	reg.billing_street1=request("money_street1")
	reg.billing_street2=request("money_street2")
	reg.billing_street3=""
	reg.billing_pc=request("money_pc")
	reg.billing_voice=request("money_tel")
	reg.billing_fax=request("money_fax")
	reg.billing_email=request("money_email")
	%>
	<%

	'call reg.initsocket()
	if not reg.err_code=0 then
		response.write "操作失败，错误代码："&reg.err_code
		response.write "<br>错误信息："&err_msg(reg.err_code)
		exit function
	else
		'域名测试
		'call reg.domaincheck()
				
		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.datacheck()
			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
				session("P_DomainOK")="OK"
				response.redirect "BuyRe.asp"
			end if
		end if
	end if
end function
call tempreg()
%>

<%
Call PrintPageBottom
%>