domain_manage_class.asp

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

<%response.buffer=true%>
<!--#include file="../../include/socket.asp"-->
<!--#include file="../../include/GetSysParam.asp"-->

	<%'#############################################'%>
	<%'#             　　域名管理类操作            #'%>
	<%'#                 manage_domain             #'%>
	<%'#############################################'%>
	
<%
class manage_domain
	public db
	public socket
	public err_code
	public customer_id,customer_password
	public clID,pwd
	public domain,domaintype,period,addperiod
	public dns1,dns2,pw
	public contacttype,name,org,street1,street2,city,sp,pc,cc,voice,fax,email,apppurpose,nexuscategory
	public selectedname,selectedtype,selectedtext
	public mode_id,order_type
	public domain_tail
	public domain_adddate
	public temp_cart_id,item_id,term_id
	public contact_id
	public dn_id,name_cn,org_cn
	%>
	<%
	'************************************'
	'初始化数据库连接及一些参数初始化    '
	'************************************'
	sub  initdb()
		'set db=server.createobject("adodb.connection")
		'db.connectionstring= odbc
		'db.open 
		
		'获得域名后缀
		select case right(domain,4) 
		case ".com" domain_tail=".com"
		case ".net" domain_tail=".net"
		case ".org" domain_tail=".org"
		case ".biz" domain_tail=".biz"
		end select
		
		select case right(domain,5) 
		case ".info" domain_tail=".info"
		end select
		
		select case right(domain,3) 
		case ".cn" domain_tail=".cn"
		case ".us" domain_tail=".us"
		end select
		
		'判断item_id
		select case right(domain,4) 
		case ".com" item_id=0
		case ".net" item_id=1
		case ".org" item_id=2
		case ".biz" item_id=800
		end select
		
		select case right(domain,5) 
		case ".info" item_id=805
		end select
		
		select case right(domain,3) 
		case ".cn" item_id=220
		case ".us" item_id=806
		end select
		
		'判断domain_type
		domain_type=item_id
		domaintype=item_id
		term_id=1000
	
	
	end sub
	%>
	
	<%
	'************************************'
	'	数据库域名信息查询	     '
	'************************************'
	public function DomainQuery()
		on error resume next
		strSQL="select * from T_DNS_ALLDN where Stat=1  and DNID='"&DN_ID&"'"
		set rs=Cn.execute(strSQL)
		if not (rs.eof and rs.bof) then
			domain_adddate=trim(rs("STime"))
			domaintype=trim(rs("DNType"))
			pw=trim(rs("DNPSW"))
			period=trim(rs("UYear"))
			dns1=trim(rs("DNS1Name"))
			dns2=trim(rs("DNS2Name"))
			err_code=0
		else
			err_code=8000
		end if
	end function
	%>
	
	<%
	'************************************'
	'	注册联系人信息查询	     '
	'************************************'
	public function query_reg()
	on error resume next
	dim dbstring,rs
	dbstring="select registrant from domain_info where state=0 and domain_name='"&domain&"'"
	set rs=db.execute(dbstring)
	contact_id=rs("registrant")
	
	
	dbstring="select * from contacts where contact_id=(select registrant from domain_info where state=0 and domain_name='"&domain&"')"
	set rs=db.execute(dbstring)
	if db.errors.count=0 then
	contacttype=4
	name=trim(rs("reg_name"))
	org=trim(rs("org"))
	street1=trim(rs("address1"))
	street2=trim(rs("address2"))
	street3=trim(rs("address3"))
	city=trim(rs("city"))
	sp=trim(rs("province"))
	pc=trim(rs("postalcode"))
	cc=trim(rs("country"))
	voice=trim(rs("telephone"))
	fax=trim(rs("fax"))
	email=trim(rs("email"))
	pw=trim(rs("password"))
	apppurpose="P1"
	nexuscategory="C11"
	err_code=0
	else
	err_code=8000
	end if
	end function
	%>
	
	<%
	'************************************'
	'	管理联系人信息查询	     '
	'************************************'
	public function query_admin()
	on error resume next
	dim dbstring,rs
	dbstring="select admin from domain_info where state=0 and domain_name='"&domain&"'"
	set rs=db.execute(dbstring)
	contact_id=rs("admin")
	
	
	dbstring="select * from contacts where contact_id=(select admin from domain_info where state=0 and domain_name='"&domain&"')"
	set rs=db.execute(dbstring)
	if db.errors.count=0 then
	contacttype=1
	name=trim(rs("reg_name"))
	org=trim(rs("org"))
	street1=trim(rs("address1"))
	street2=trim(rs("address2"))
	street3=trim(rs("address3"))
	city=trim(rs("city"))
	sp=trim(rs("province"))
	pc=trim(rs("postalcode"))
	cc=trim(rs("country"))
	voice=trim(rs("telephone"))
	fax=trim(rs("fax"))
	email=trim(rs("email"))
	pw=trim(rs("password"))
	apppurpose="P1"
	nexuscategory="C11"
	err_code=0
	else
	err_code=8000
	end if
	end function
	%>
	
	<%
	'************************************'
	'	技术联系人信息查询	     '
	'************************************'
	public function query_tech()
	on error resume next
	dim dbstring,rs
	dbstring="select tech from domain_info where state=0 and domain_name='"&domain&"'"
	set rs=db.execute(dbstring)
	contact_id=rs("tech")
	
	
	dbstring="select * from contacts where contact_id=(select tech from domain_info where state=0 and domain_name='"&domain&"')"
	set rs=db.execute(dbstring)
	if db.errors.count=0 then
	contacttype=2
	name=trim(rs("reg_name"))
	org=trim(rs("org"))
	street1=trim(rs("address1"))
	street2=trim(rs("address2"))
	street3=trim(rs("address3"))
	city=trim(rs("city"))
	sp=trim(rs("province"))
	pc=trim(rs("postalcode"))
	cc=trim(rs("country"))
	voice=trim(rs("telephone"))
	fax=trim(rs("fax"))
	email=trim(rs("email"))
	pw=trim(rs("password"))
	apppurpose="P1"
	nexuscategory="C11"
	err_code=0
	else
	err_code=8000
	end if
	end function
	%>
	<%
	'************************************'
	'	付款联系人信息查询	     '
	'************************************'
	public function query_billing()
	on error resume next
	dim dbstring,rs
	dbstring="select billing from domain_info where state=0 and domain_name='"&domain&"'"
	set rs=db.execute(dbstring)
	contact_id=rs("billing")
	
	dbstring="select * from contacts where contact_id=(select billing from domain_info where state=0 and domain_name='"&domain&"')"
	set rs=db.execute(dbstring)
	if db.errors.count=0 then
	contacttype=3
	name=trim(rs("reg_name"))
	org=trim(rs("org"))
	street1=trim(rs("address1"))
	street2=trim(rs("address2"))
	street3=trim(rs("address3"))
	city=trim(rs("city"))
	sp=trim(rs("province"))
	pc=trim(rs("postalcode"))
	cc=trim(rs("country"))
	voice=trim(rs("telephone"))
	fax=trim(rs("fax"))
	email=trim(rs("email"))
	pw=trim(rs("password"))
	apppurpose="P1"
	nexuscategory="C11"
	err_code=0
	else
	err_code=8000
	end if
	end function
	%>
	
	<%
	'************************************'
	'		初始化SOCKET连接     '
	'************************************'
	sub InitSocket()
		'on error resume next
		host=Sys_Opt_CCIP
		port=Sys_Opt_CCPort
		clID=Sys_Opt_CCUID
		pwd=Sys_Opt_CCPWD
		
		set socket=new socketclient
		call socket.socket_conn(host,port)
		call socket.socket_login(clID,pwd)
		err_code=socket.err_code
	end sub
	%>
	
	<%
	'************************************'
	'		检查用户余额	     '
	'************************************'
	public function chkbalance()
	dim dbstring,rs
	dbstring="select * from members where member_id="&customer_id
	set rs=db.execute(dbstring)
	if db.errors.count=0 then
	chkbalance=trim(rs("account"))
	err_code=0
	else
	err_code=8001
	end if
	end function
	%>
	
	<%
	'************************************'
	'		域名续费	     '
	'************************************'
	public function renew()
		'初始化参数，判断mode_id
		select case right(domain,4) 
		case ".com" mode_id=1003
		case ".net" mode_id=2003
		case ".org" mode_id=3003
		case ".biz" mode_id=4003
		end select
		
		select case right(domain,5) 
		case ".info" mode_id=5003
		end select
		
		select case right(domain,3) 
		case ".cn" mode_id=7003
		case ".us" mode_id=6003
		end select