domain_reg_class.asp

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

	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#-------------------4------------------------#"
	if err_code=0 then
		billing_id=socket.user_id
	'	dbstring="insert into contacts(password,reg_name,org,address1,address2,address3,city,province,country,postalcode,telephone,fax,email,reg_name_cn,org_cn)values("&pwd1&",'"&billing_name&"','"&billing_org&"','"&billing_street1&"','"&billing_street2&"','"&billing_street3&"','"&billing_city&"','"&billing_sp&"','"&billing_cc&"','"&billing_pc&"','"&billing_voice&"','"&billing_fax&"','"&billing_email&"','"&billing_name_cn&"','"&billing_org_cn&"')"
	'	db.execute(dbstring)
	'	if db.errors.count>0 then
	'		err_code=10014
	'		exit function
	'	else
	'		err_code=0
	'	end if
	'	dbstring="select max(contact_id) as contact_id from contacts"
	'	set rs=db.execute(dbstring)
	'	contact_billing=rs("contact_id")
	end if
end function
%>

<%
'************************************'
'		产生注册域名	     '
'************************************'
public function create_domain()
	on error resume next
	'dim dbstring,rs
	'dbstring="select * from cart_detail where cart_id="&temp_cart_id
	'set rs=db.execute(dbstring)
	
	'response.write "clID:"&clID&"pwd:"&pwd&"vartype:"&name&"name:"&name&"period:"&period&"ns1:"&ns1&"ns2:"&ns2&"registrant:"&registrant&"admin:"&admin&"tech:"&tech&"billing:"&billing&"pw:"&pw
	'exit function
	'period=1
	'reg_id="10000"
	'admin_id="10000"
	'tech_id="10000"
	'billing_id="10000"

	registrant=21
	'call socket.socket_create_domain(clID,pwd,domaintype,rs("size"),period,dns1,dns2,reg_id,admin_id,tech_id,billing_id,pwd1)
	call socket.socket_create_domain(clID,pwd,domaintype,domain,period,dns1,dns2,reg_id,admin_id,tech_id,billing_id,pwd1)
	
	dim file_open,path,fs
	'日志
	path="c:\log\reg_domain_log.txt"
	set fs=createobject("scripting.filesystemobject")
	set file_open=fs.opentextfile(path,8,true)
	file_open.writeline "member_id："&customer_id
	file_open.writeline "datetime："&now()
	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#-------------------------------------------#"
	'response.write socket.send_client&"<br>"
	'response.write socket.re_server
	err_code=socket.err_code
	call socket.socket_close()
end function
%>


<%
'************cn扩展******************
'************************************
'************************************
'************************************'
'		产生发送联系人	     '
'************************************'
public function create_contactor_cn()
	on error resume next
	dim dbstring
	'发送注册人
	call socket.socket_create_contactor_cn(clID,pwd,domaintype,reg_name,reg_name_m,reg_org,reg_org_m,reg_street1,reg_street2,reg_city,reg_sp,reg_pc,reg_cc,reg_voice,reg_fax,reg_email,pwd1,manager,industry)
	err_code=socket.err_code
	'下面两句是来检错误的
	'response.write socket.send_client
	'response.write socket.re_server
	dim file_open,path,fs
	path="c:\log\reg_contactor_log.txt"
	set fs=createobject("scripting.filesystemobject")
	set file_open=fs.opentextfile(path,8,true)
	file_open.writeline "member_id："&customer_id
	file_open.writeline "datetime："&now()
	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#-------------------1------------------------#"
	if err_code=0 then
		reg_id=socket.user_id
	'	dbstring="insert into contacts(password,reg_name,org,address1,address2,address3,city,province,country,postalcode,telephone,fax,email,reg_name_cn,org_cn)values("&pwd1&",'"&reg_name&"','"&reg_org&"','"&reg_street1&"','"&reg_street2&"','"&reg_street3&"','"&reg_city&"','"&reg_sp&"','"&reg_cc&"','"&reg_pc&"','"&reg_voice&"','"&reg_fax&"','"&reg_email&"','"&reg_name_cn&"','"&reg_org_cn&"')"
	'	db.execute(dbstring)
	'	if db.errors.count>0 then
	'		err_code=10011
	'		exit function
	'	else
	'		err_code=0
	'	end if
	'	dbstring="select max(contact_id) as contact_id from contacts"
	'	set rs=db.execute(dbstring)
	'	contact_reg=rs("contact_id")
	end if
	
	'发送管理人
	call socket.socket_create_contactor(clID,pwd,domaintype,admin_name,admin_name_m,admin_org,admin_org_m,admin_street1,admin_street2,admin_city,admin_sp,admin_pc,admin_cc,admin_voice,admin_fax,admin_email,pwd1,manager,industry)
	err_code=socket.err_code
	path="c:\log\reg_contactor_log.txt"
	set fs=createobject("scripting.filesystemobject")
	set file_open=fs.opentextfile(path,8,true)
	file_open.writeline "member_id："&customer_id
	file_open.writeline "datetime："&now()
	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#--------------------2-----------------------#"
	if err_code=0 then
		admin_id=socket.user_id
	'	dbstring="insert into contacts(password,reg_name,org,address1,address2,address3,city,province,country,postalcode,telephone,fax,email,reg_name_cn,org_cn)values("&pwd1&",'"&admin_name&"','"&admin_org&"','"&admin_street1&"','"&admin_street2&"','"&admin_street3&"','"&admin_city&"','"&admin_sp&"','"&admin_cc&"','"&admin_pc&"','"&admin_voice&"','"&admin_fax&"','"&admin_email&"','"&admin_name_cn&"','"&admin_org_cn&"')"
	'	db.execute(dbstring)
	'	if db.errors.count>0 then
	'		err_code=10012
	'		exit function
	'	else
	'		err_code=0
	'	end if
	'	dbstring="select max(contact_id) as contact_id from contacts"
	'	set rs=db.execute(dbstring)
	'	contact_admin=rs("contact_id")
	end if
	
	'发送技术人
	call socket.socket_create_contactor(clID,pwd,domaintype,tech_name,tech_name_m,tech_org,tech_org_m,tech_street1,tech_street2,tech_city,tech_sp,tech_pc,tech_cc,tech_voice,tech_fax,tech_email,pwd1,manager,industry)
	err_code=socket.err_code
	path="c:\log\reg_contactor_log.txt"
	set fs=createobject("scripting.filesystemobject")
	set file_open=fs.opentextfile(path,8,true)
	file_open.writeline "member_id："&customer_id
	file_open.writeline "datetime："&now()
	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#-------------------3------------------------#"
	if err_code=0 then
		tech_id=socket.user_id
	'	dbstring="insert into contacts(password,reg_name,org,address1,address2,address3,city,province,country,postalcode,telephone,fax,email,reg_name_cn,org_cn)values("&pwd1&",'"&tech_name&"','"&tech_org&"','"&tech_street1&"','"&tech_street2&"','"&tech_street3&"','"&tech_city&"','"&tech_sp&"','"&tech_cc&"','"&tech_pc&"','"&tech_voice&"','"&tech_fax&"','"&tech_email&"','"&tech_name_cn&"','"&tech_org_cn&"')"
	'	db.execute(dbstring)
	'	if db.errors.count>0 then
	'		err_code=10013
	'		exit function
	'	else
	'		err_code=0
	'	end if
	'	dbstring="select max(contact_id) as contact_id from contacts"
	'	set rs=db.execute(dbstring)
	'	contact_tech=rs("contact_id")
	end if
	
	'发送付费人
	call socket.socket_create_contactor(clID,pwd,domaintype,billing_name,billing_name_m,billing_org,billing_org_m,billing_street1,billing_street2,billing_city,billing_sp,billing_pc,billing_cc,billing_voice,billing_fax,billing_email,pwd1,manager,industry)
	err_code=socket.err_code
	path="c:\log\reg_contactor_log.txt"
	set fs=createobject("scripting.filesystemobject")
	set file_open=fs.opentextfile(path,8,true)
	file_open.writeline "member_id："&customer_id
	file_open.writeline "datetime："&now()
	file_open.writeline "domain："&domain
	file_open.writeline "SendEpp："&socket.send_client
	file_open.writeline "ReceiveEpp："&socket.re_server
	file_open.writeline "#-------------------4------------------------#"
	if err_code=0 then
		billing_id=socket.user_id
	'	dbstring="insert into contacts(password,reg_name,org,address1,address2,address3,city,province,country,postalcode,telephone,fax,email,reg_name_cn,org_cn)values("&pwd1&",'"&billing_name&"','"&billing_org&"','"&billing_street1&"','"&billing_street2&"','"&billing_street3&"','"&billing_city&"','"&billing_sp&"','"&billing_cc&"','"&billing_pc&"','"&billing_voice&"','"&billing_fax&"','"&billing_email&"','"&billing_name_cn&"','"&billing_org_cn&"')"
	'	db.execute(dbstring)
	'	if db.errors.count>0 then
	'		err_code=10014
	'		exit function
	'	else
	'		err_code=0
	'	end if
	'	dbstring="select max(contact_id) as contact_id from contacts"
	'	set rs=db.execute(dbstring)
	'	contact_billing=rs("contact_id")
	end if
end function
%>

<%
'************************************'
'	注册人信息	             '
'************************************'
function selectmember()
dim dbstring,rs
dbstring="select * from members where flag=0 and member_id="&session("real_member_id")
set rs=db.execute(dbstring)
	reg_name=rs("r_name")
	reg_name_m=rs("r_name_m")
	reg_org=rs("r_org")
	reg_org_m=rs("r_org_m")
	reg_street1=rs("r_address1")
	reg_street2=rs("r_address2")
	reg_street3=rs("r_address3")
	reg_city=rs("r_city")
	reg_sp=rs("r_province")
	reg_pc=rs("r_postalcode")
	reg_cc=rs("r_country")
	reg_voice=rs("r_telephone")
	reg_fax=rs("r_fax")
	reg_email=rs("r_email")
end function
%>

<%
end class
%>



<%
'下面为错误的信息代号
'5000　用户连接错误
'5001　创建联系人错误
'5002　更新联系人错误
'5003　注册域名错误
'5004　修改域名错误
'5005　检查域名错误
'5006　删除域名错误
'5007　续费域名错误
'
'
'
'
'10000　EMAIL格式错误
'10001　联系电话格式错误
'10002　传真格式错误
'10003	域名格式错误
'10004　密码格式错语
'10005　注册人信息不全
'10006	管理人信息不全
'10007　技术人信息不全
'10008　付款人信息不全
'10009　主购物车数据库操作失败
'10010　明细购物车数据库操作失败
'10011　注册联系人数据库操作失败
'10012　管理联系人数据库操作失败
'10013　技术联系人数据库操作失败
'10014　付款联系人数据库操作失败
'10015　明细车查询错误ORDER
'10016　明细车入帐错误MEMBER
'10017　明细车入帐错误DOMAIN_INFO
'10018	域名已被注册
'
'
'
'
'
'
'
'
%>