domain_reg_newer_pro.asp

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

<% 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
	domain=request("domain")
	reg.domain_tail=request("domain_tail")
	select case reg.domain_tail 
	case ".biz" reg.mode_id=4001
	case ".info" reg.mode_id=5001
	end select
	'********初始化类的属性参数值*******'

	'该产品的年数
	PY1=request("PY1")
	'几个年
	PN1=request("PN1")
	reg.period=Cint(PY1)*Cint(PN1)
	'reg.period=request("PY")
	
	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.mode_id=0
	reg.term_id=100
	reg.item_id=0
	'以下只是为了测试方便，要与表结合使用
	reg.appPurpose="p1"
	reg.nexuscategory="c12"
	'------------------------
	'reg.clID=real_username
	'reg.pwd=real_userpwd
	'------------------------
	reg.domain=request("domain")
	if right(reg.domain,3)="biz" then
		reg.domaintype=800
	else
		if right(reg.domain,4)="info" then
			reg.domaintype=805
		end if
	end if
	
	reg.reg_name=request("reg_name")
	reg.reg_org=request("reg_org")
	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_org=request("admin_org")
	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_org=request("tel_org")
	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_org=request("money_org")
	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.initdb()
	
	call reg.initsocket()
	
	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.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