domainreg2.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
domainname=lcase(request("domainname"))
dtype = request("dtype")
ID = request("ID")
if domainname="" then
	session("mesg")="域名不能为空"
	Response.Redirect "../result.asp"
end if
%>

<%
FunCode="F201"
session("title")="交易结果"
session("headline")="首页 -> 注册系统 -> 交易结果"
%>
<!--#include file="../inc/head2.asp"-->

            <div align='center'><br>
              <br>
             <br>
              <br>
			  
			  <%select case ID 
					  		case  "P1022"
								call check_EN_i()
							case  "P1024"
								call  check_CN_i()
							case "P1026" 
								call check_EN_i()
							case "P1027" 
								call check_EN_i()
							case "P1025" 
								call check_EN_i()
							'case "P1023" 
							'	call check_CH_i()
							'case  "P1060"
								'call check_3721_i()
							case "P1028"
								call check_CUR_i()
							case else
							if dtype <> "" then
								Response.Redirect "domainreg3.asp?domainname="&domainname&"."&dtype&"&domaintype="&ID
							else
								Response.Redirect "domainreg3.asp?domainname="&domainname&"&domaintype="&ID
							end if
							%>
							<%end select %>	
		
<% sub check_EN_i()
ret = CheckDomainPX(domainname)
if ret <> "" then
	Session("mesg") = ret
    Response.Redirect "../result.asp"
    Response.End
end if

URLS = Session("DOMAIN_EN")
ret = SplitURL(URLS, URL, uReg, Reg, M, Whois)
'check=check_domain(domainname,dtype,"","en")
check = check_domain_fun(domainname,dtype,"",session("DOMAIN_EN"))
	if check="1" then%>
		域名[<%=domainname%>.<%=dtype%>]<b>没有被注册</b>,<a href=domainreg3.asp?domainname=<%=domainname%>.<%=dtype%>&domaintype=<%=ID%>>马上注册</a><br>
	<%elseif check="2" then
	Whoiss = Replace(Whois, "[domain]", domainname & "."&dtype)%>
		域名[<a href="<%=Whoiss%>"><%=domainname%>.<%=dtype%></a>]<b>已被注册</b><br>
	<%else%>
		域名[<%=domainname%>.<%=dtype%>]<b>查询出错:<%=check%></b><br>
	<%end if%>
<%
end sub


sub check_CN_i()
ret = CheckDomainPX(domainname)
if ret <> "" then
	Session("mesg") = ret
    Response.Redirect "../result.asp"
    Response.End
end if
URLS_CH = Session("DOMAIN_CH")
ret = SplitURL(URLS_CH, URL_CH, uReg_CH, Reg_CH, M,Whois_CH)
	check = check_domain_fun(domainname,dtype,"cn",session("DOMAIN_CH"))
	'check=check_domain(domainname,dtype,"cn","ch")
	if dtype<>"" then
		domainnameA = domainname & "." & dtype & ".cn"
	else
		domainnameA = domainname & ".cn"
	end if
	if check="1" then%>
		域名[<%=domainnameA%>]<b>没有被注册</b>,<a href=domainreg3.asp?domainname=<%=domainnameA%>&domaintype=<%=ID%>>马上注册</a><br>
	<%elseif check="2" then
	Whoiss = Replace(Whois_CH, "[domain]", domainnameA)
	%>
		域名[<a href=<%=Whoiss%>><%=domainnameA%></a>]<b>已被注册</b><br>
	<%else%>
		域名[<%=domainnameA%>]<b>查询出错:<%=check%></b><br>
	<%end if%>
<%end sub


sub check_CH_i()
URLS = Session("DOMAIN_CHINESE")
ret = SplitURL(URLS, URL, uReg, Reg, M, Whois)

	check=check_domain_fun(domainname,dtype,"",session("DOMAIN_CHINESE"))
	if check="1" then%>
		域名[<%=domainname%>.<%=dtype%>]<b>没有被注册</b>,<a href=domainreg3.asp?domainname=<%=domainname%>.<%=dtype%>&domaintype=<%=ID%>>马上注册</a><br>
	<%elseif check="2" then
	Whoiss = Replace(Whois, "[domain]", domainname & "." & dtype)%>
		域名[<a href="<%=Whoiss%>"><%=domainname%>.<%=dtype%></a>]<b>已被注册</b><br>
	<%else%>
		域名[<%=domainname%>.<%=dtype%>]<b>查询出错:<%=check%></b><br>
	<%end if%>
<%End sub


sub check_3721_i_bak()
	'check=check_3721(domainname)
	check = check_domain_fun(domainname,"","",session("3721"))
	if check="1" then%>
		网络实名[<%=domainname%>]<b>没有被注册</b>,<a href=domainreg3.asp?domainname=<%=domainname%>&domaintype=<%=ID%>>马上注册</a><br>
	<%elseif check="2" then
	%>
		网络实名[<%=domainname%>]<b>已被注册</b><br>
	<%else%>
		查询出错:<%=check%><br>
	<%end if
end sub

sub check_3721_i()
%>
	请确认该网络实名未被注册,<a href="http://www.3721.com" target="_blank"><b>查询网络名是否被注册</b></a><br><br>
<a href=domainreg3.asp?domainname=<%=domainname%>&domaintype=<%=ID%>><font color="#ff0000"><b>马上注册网络实名[<%=domainname%>]</b></font></a><br>
	
<%
end sub

sub check_CUR_i()
	'check=check_cur(domainname)
	check = check_domain_fun(domainname,"","",session("CUR"))
	if check="1" then%>
		通用网址[<%=domainname%>]<b>没有被注册</b>,<a href=domainreg3.asp?domainname=<%=domainname%>&domaintype=<%=ID%>>马上注册</a><br>
	<%elseif check="2" then
	URLS = Session("CUR")
	ret = SplitURL(URLS, URL, uReg, Reg, M, Whois)
	Whois = Replace(Whois, "[cur]", domainname)
	%>
		通用网址[<a href=<%=Whois%>><%=domainname%></a>]<b>已被注册</b><br>
	<%else%>
		查询出错:<%if instr(check,"限制注册")>0 then
		response.write"该域名限制注册"
			else
		response.write check
		end if%><br>
	<%end if
end sub


%>
		
		
 <!--#include file="../inc/bottom2.asp"-->