dre.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 32 行

<!--#include file="../../Include/connect.asp"-->
<%

domain_tail=request("domain_tail")
tempdomain=request("domain")
P2=request("PY")
P1=request("PN")

if domain_tail=".com.cn" or domain_tail=".org.cn" or domain_tail=".net.cn" then
	domain_tail=".cn"
end if

strSQL="Select c.ProdCode from T_DNS_ProdDNInfo a, T_DNS_ProdPower b,T_DNS_ProdInfo c where a.DNCode='" & domain_tail &"' and a.BPCode=b.BPCode and b.ProdCode=c.ProdCode and c.ProdStat<>'3' and c.STCode='1'"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn
if  rs.bof and Rs.eof then
	response.redirect "ProductList.asp?ServiceType=1"
else
	ID=rs("ProdCode")
	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 "ProductList.asp?ServiceType=1"
	end select 
end if
%>