⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 cnkdomain.asp

📁 网址使用源码
💻 ASP
字号:
<HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript1.2>

function CheckIfEnglish( String )
{ 
    var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";
     var i;
     var c;
      if(String.charAt( 0 )=='-')
	return false;
      if( String.charAt( String.length - 1 ) == '-' )
          return false;
     for( i = 0; i < String.length; i ++ )
     {
          c = String.charAt( i );
	  if (Letters.indexOf( c ) < 0)
	     return false;
     }
     return true;
}
function submitchecken() {

	if (document.checkdomain.domain.value == "") {
		alert("请输入您要查询的英文域名。");
		document.checkdomain.domain.focus();
		return false;
	}

if (!CheckIfEnglish(document.checkdomain.domain.value )) {
		alert("\t注意:在查询英文域名时应输入英文不能输入中文及非法字符!\n域名由不分大小写的英文字母和数字组成,除了开头和结尾以外,中间也可以含有“-”(即连字符或称减号)最大长度为26个字符;");
		document.checkdomain.domain.focus();
		return false;
	}

	return true;
}
</script>
<link href="js/css.css" rel="stylesheet" type="text/css">
<title>域名注册</title></HEAD>
<body>
<table width="600" height="330" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse">
  <tr> 
    <td valign="top"><table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
        <tr> 
          <td width="200" rowspan="2" align="center" valign="top" bgcolor="#FFFFFF"> 
            <img border="0" src="images/Class_1.gif"> 
            <p style="text-indent: 25px; margin-left: 20; margin-right: 20" align="left"> 
              <font color="#666666">采用完全实时注册技术,国际域名注册全球同步,<font style="FONT-SIZE: 8pt" face="Tahoma">24</font>小时内生效;并且客户完全拥有域名管理权限.<br>
              </font></td>
          <td bgcolor="#FFFFFF"> <div align="center"> 
              <center>
                <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
                  <tr> 
                    <td> 
                      <%
on error resume next
Private d_exsit
Dim Retrieval
Dim Domain
Dim TakenHTML

Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL = .ResponseText
          End With
    Set Retrieval = Nothing
End Function
Domain = Replace(Request.Form("domain"),"www.","") & "." & Request.Form("ext")
if Domain=".com" or Request.Form("domain")="" then
Response.Write ("<script>alert('看看您什么忘记填写了?没有填写域名吧?');javascript:history.back(1)</script>")
response.end
end if
TakenHTML = GetURL("http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & Domain)
d_exsit=1
if InStr(TakenHTML,"No entries") > 1 then
    
    Response.Write Domain & "出错了,请返回!<br><br>"
else
    if InStr(TakenHTML,"No match") > 1 then %>
                      您想注册的域名<font color=red> [ 
                      <% =Domain %>
                      ] </font>还未被注册,恭喜!<br>
                      <span style="font-size: 14px; font-weight: 700">在线联系<font color="#CC0000">QQ</font><font color="#006600">:66712636</font>,实时开通注册您的域名</span> 
                      <% else %>
                      <p>很抱歉,域名<font color=red> [ 
                        <% =Domain %>
                        ] </font>已经被注册了!<br>
                        请您换个域名再试</p>
                      <form method="post" action="cnkdomain.asp" name="checkdomain" id=Form1>
                        <b><font face="Arial">www.&nbsp; </font></b> <font size=""3""> 
                        <input name="domain" type="text" id=domain3 size="20" class="Reg_Input">
                        <select name="ext" id=select3 class="Reg_Input">
                          <option value="com" selected>.com</option>
                          <option value="net">.net</option>
                          <option value="org">.org</option>
                          <option value="com.cn">.com.cn</option>
                          <option value="net.cn">.net.cn</option>
                          <option value="org.cn">.org.cn</option>
                          <option value="cc">.cc</option>
                          <option value="tv">.tv</option>
                          <option value="biz">.biz</option>
                          <option value="info">.info</option>
                        </select>
                        <input type="submit" name="Submit" value=" 继续查询 " id=Submit3 onClick = "return submitchecken();" class="Button">
                        </font>
                      </form>
                      <font size=""3""> 
                      <%
                        end if
                        end if
                        %>
                      </font> </td>
                  </tr>
                </table>
              </center>
            </div>
            <br> 
            <TABLE border=0 align="center" cellPadding=0 cellSpacing=0>
              <FORM action=cnkdomain.asp method=post name=frmsearchInt>
                <INPUT name=module type=hidden value=domainsearch>
                <INPUT name=searchType type=hidden value=IntDomain>
                <INPUT name=action type=hidden value=check>
                <TBODY>
                  <TR> 
                    <TD bgColor=#e0dfdf></TD>
                  </TR>
                  <TR> 
                    <TD bgColor=#f3f3f3> <TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=35 
            width=232>
                        <TBODY>
                          <TR> 
                            <TD align=right width=47><strong> <font color="#336699" face="Arial" style="font-size: 14px">www.</font></strong></TD>
                            <TD width="143"> <DIV align=center> 
                                <INPUT name=domain2 size=22 class="Reg_Input">
                              </DIV></TD>
                            <TD width=42> <INPUT border=0 cache name=img src="images/wwwgo.gif" type=image> </TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                  <TR> 
                    <TD bgColor=#e0dfdf> <table width="100%" height="72" border="0" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td>&nbsp; <input name="ext" type="radio" value="com" checked>
                            .com </td>
                          <td><input type="radio" name="ext" value="net">
                            .net</td>
                          <td><input type="radio" name="ext" value="org">
                            .org</td>
                        </tr>
                        <tr> 
                          <td>&nbsp; <input type="radio" name="ext" value="com.cn">
                            .com.cn</td>
                          <td><input type="radio" name="ext" value="net.cn">
                            .net.cn</td>
                          <td><input type="radio" name="ext" value="org.cn">
                            .org.cn</td>
                        </tr>
                        <tr> 
                          <td>&nbsp; <input type="radio" name="ext" value="cn">
                            .<font color="#CC0000"><strong>cn</strong></font></td>
                          <td><input type="radio" name="ext" value="cc">
                            .cc</td>
                          <td><input type="radio" name="ext" value="info">
                            .info</td>
                        </tr>
                      </table></TD>
                  </TR>
              </FORM>
            </TABLE></td>
        </tr>
        <tr> 
          <td width="396" height="68" bgcolor="#FFFFFF"> <p style="line-height: 150%; margin-left: 20; margin-right: 20"> 
              购买国际域名,免费赠送域名控制面板,可以直接在线修改域名的注册信息,立即生效,<font color="#FF0000">免费赠送20个子域名</font>,更加方便使用!<br>
              赠送<font style="font-size: 8pt" face="Tahoma">DNS</font>域名解析管理,在线提交域名解析,自己操作不求人.</td>
        </tr>
      </table></tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -