domainre.asp

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

<!--#include file="../domain_reg_class.asp"-->

<%

domain_tail=request("domain_tail")
domain_head=request("domain_head")
ID=session("P_ProdCode")

'初始化数据
dim reg
set reg = new reg_domain

reg.domain=domain_head&domain_tail
'判断域名的类型domaintype
dim temp
temp = domain_tail
if not domain_tail="" and not domain_head="" then
	reg.domaintype=prt_domaintype(temp)
	'初始化SOCKET连接
	call reg.initsocket()
	if not reg.err_code=0 then
		response.redirect "Domain.asp?ID="&ID&"&msg=操作失败，错误代码："&reg.err_code&"<br><br>错误信息："&err_msg(reg.err_code)
	else
		call reg.domaincheck()
		if not reg.err_code=0 then
			response.redirect "Domain.asp?ID="&ID&"&msg=操作失败，错误代码："&reg.err_code&"<br><br>错误信息："&err_msg(reg.err_code)
		else
			tempdomain=domain_head&domain_tail
			select case domain_tail
				case ".com" response.redirect "domain_reg_common.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case ".net" response.redirect "domain_reg_common.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1& "&ID="&ID
				case ".org" response.redirect "domain_reg_common.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case ".biz" response.redirect "domain_reg_newer.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case ".info" response.redirect "domain_reg_newer.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case ".us" response.redirect "domain_reg_other.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case ".cn" response.redirect "domain_reg_cn.asp?domain="&tempdomain&"&domain_tail="&domain_tail&"&PY="&P2&"&PN="&P1&"&ID="&ID
				case else response.redirect "Domain.asp?ID="&ID
			end select 
		end if
	end if
end if

%>