buydomainre.asp

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

<!--#include file="domain_reg_class.asp"-->
<%
'domain_name=request("domain_head")
domain_tail=request("domain_tail")
domain_head=request("domain_head")
ID=request("ID")
P1=request("BuyYear")
P2=request("ProdYear")
'初始化数据
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
    Set Rs1= Server.CreateObject("ADODB.Recordset")
    strSQL="Select ProdPrice from T_DNS_ProdPrice Where ProdCode='" & ID & "' and LevelCode='" & Session("UserLevel") & "' and ProdYear="&request("ProdYear")
    Rs1.open strSQL,Cn
	if not Rs1.eof then
		set Rs2=Cn.Execute("SP_CheckMoney "& session("UserID") & "," & cstr(cint(rs1("ProdPrice"))*Cint(P1)))
		if rs2("result")="0" then
			response.redirect "BuyDomain.asp?ID="&ID&"&msg=操作失败，"&rs2("msg")
		else
			reg.domaintype=prt_domaintype(temp)
			'初始化SOCKET连接
			call reg.initsocket()
			if not reg.err_code=0 then
				response.redirect "BuyDomain.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 "BuyDomain.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 "BuyDomain.asp?ID="&ID
					end select 
				end if
			end if
		end if
	end if
end if

%>