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

📄 checkdomain.asp

📁 ASP的网上商城在线支付系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="indext.asp"-->
<table align="center" width="770" border="0" cellspacing="0" cellpadding="0" >
  <tr> 
    <td bgcolor="#000000" width="1"></td>
    <td bgcolor="#FFFFFF"> 
      <!--#include file="indexl-.asp"-->
    </td>


    <td width="3" background="image/3pic.gif" valign="top"><img src="image/3pic.gif" width="3" ></td>
    <td width="593" valign="top"> 
      <table width="593" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"> 
                </td>
              </tr>
         <tr> 
           <td valign="top"> 



      <table width="97%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#999999">
        <tr> 
          <td valign="top" bgcolor="#FFFFFF"> 

            <table width="100%" border="0" cellspacing="0" cellpadding="0">

              <tr> 
                <td valign="top"> 
                  <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#eeeeee">
                    <tr align="center" bgcolor="#FFCC99"> 
                      <td height="16" bgcolor="#FFFFFF" class="btnkb"> 
                        <div align="left"> 
                          <table width="100%" border="0" cellspacing="0" cellpadding="3">
                            <tr> 
                              <td><b><font          
            color=#000066><b class="bd"><font color="#000000">:::::::: 国际域名注册</font></b></font><font color="#000000"> 
                                ::::::::</font></b></td>
                            </tr>
                          </table>
                        </div>
                      </td>
                    </tr>
                    <tr align="center" bgcolor="#FFCC99"> 
                      <td height="48" bgcolor="#FFFFFF" class="btnkb"> 
                        <div align="center"><br>
                          <table width="100%" border="0" cellspacing="0" cellpadding="6">
              <form name="check" method="post" action="checkdomain.asp" onSubmit="return ttt(this.form)" >
                <tr> 
                  <td width="15%"> 
                    <table width="80%" border="0" cellspacing="0" cellpadding="2" bgcolor="#000000" align="center">
                      <tr> 
                        <td> 
                          <div align="center"><font color="#FFFFFF">域名查询</font></div>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="85%"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="30">
                      <tr> 
                        <td width="117">输入您要注册的域名</td>
                        <td width="44"> 
                          <div align="center"><img src="image/www.gif" width="47" height="13"></div>
                        </td>
                        <td width="135"> 
                          <div align="center"> 
                            <input type="text" name="domainname" size="20">
                          </div>
                        </td>
                        <td width="7"> 
                          <div align="center"><img src="image/dian.gif" width="7" height="13"></div>
                        </td>
                        <td width="80"> <font color="#666666" size="2"> 
                          <select name=ext style="background-color: #ffffff; color: #424532;  border:1px solid #000000">
                            <option value="com" selected>com</option>
                            <option value="net">net</option>
                            <option value="cn">cn</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>
                          </select>
                          </font> 
                          <div align="center"></div>
                          <font color="#666666" size="2"> </font> 
                          <div align="center"></div>
                          <font color="#666666" size="2"> </font></td>
                        <td width="59"> 
                          <input type="image" border="0" name="imageField" src="images/caxun.gif" width="38" height="18">
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </form>
            </table>

<%

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function

If IsObjInstalled("aspsock.conn") Then

dim strResult
if Request.ServerVariables("request_method")="POST" THEN
dim strQuery
domains=request("domainname")
ext=request("ext")

strQuery=request("domainname") & "." & request("ext")
session("strquery")="www"&"."&strQuery
dim objSock

Set objSock=Server.CreateObject("aspsock.conn")

select case request("ext")
case "com","net","org"
objSock.RemoteHost="whois.internic.net"
gj=0
case "com.cn","net.cn","org.cn","cn"
objSock.RemoteHost="whois.cnnic.net.cn"
gj=1
end select

objSock.Port=43

objSock.TimeOut=60

if objSock.Open then

objSock.WriteLn strQuery


strResult=objSock.ReadBytesAsString(65535)

objSock.Close


%>
                        </div>
                      </td>
                    </tr>
                    <tr align="center" bgcolor="#FFCC99"> 
                      <td height="44" bgcolor="#E9F0FC" class="btnkb"> 
                        <div align="center"> 
                          
                          <span class="f12neo"><font size="2"><font color="#5a6f74"><font color="#000000"><font color="#5a6f74"> 
                          <font color="#FF6666"> 
                          <%




 end if
  %>
                          <%response.write"www."&(strQuery)&"<br>"

select case gj
case "0"
if instr(strresult,"No match")=0    then
if strresult="" then
response.write "操作超时,请重试。"
else
response.write "此域名已经被注册。"

end if
else
session("yuming")=session("strquery")
response.write "恭喜,您的域名没有被注册。"
 %>
                          </font> </font></font></font></font></span></div>
                        <span class="f12neo"><font size="2"><b><font color="#FF0000"><br>
                        </font></b></font></span></td>
                    </tr>
                    <tr align="center"> 
                      <td height="21" bgcolor="#FFFFFF"> 
                            <%       
end if

response.write str1

case "1"
if instr(strresult,"no matching record")=0    then
if strresult="" then
response.write "操作超时,请重试。"
else
response.write "您的域名已经被注册。"
end if
else
session("yuming")=session("strquery")
response.write "您的域名没有被注册。"

%>
                            <%
end if

end select
end if
Set objSock=Nothing
%>



                          </font> </font></font></font></font></span>
                        <span class="f12neo"><font size="2"><b><font color="#FF0000"><br>
                        </font></b></font></span></td>
                    </tr>
                    <tr align="center"> 
                      <td height="21" bgcolor="#FFFFFF"> 
                            <a href="#1"><b><font color="#FF0000">&gt;&gt; 填写域名注册表单</font></b></a></font></div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>

      <table width="97%" border="0" cellspacing="1" cellpadding="0" align="center">
        <tr> 
          <td valign="top" height="5"> 
          </td>
        </tr>
      </table>

      <table width="97%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#999999">
        <tr> 
          <td valign="top" bgcolor="#FFFFFF"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> 
                  <div align="right"><a name="1"></a></div>
                </td>
              </tr>
              <tr> 
                <td valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr>
                      <td><font 
            color=#000066><b class="bd"><font color="#000000">:::::::: 注册申请表单 
                        ::::::::</font></b></font></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td valign="top" bgcolor="#E9F0FC" height="576"> 
                  <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td class="nei1"><br>
                        注意事项:<b><font color="#0066FF">(购买空间整合产品,国际英文域名免费赠送,其他域名则减少60元)</font></b></td>
                    </tr>
                    <tr> 
                      <td class="f12" bgcolor="#E9F0FC"><span class="nei1"><br>
                        1、本申请表单最多可提供注册两个国际英文域名和两个国际中文域名。<br>
                        2、此表单所设英文栏目用于美国域名数据库收录,请据实认真填写,英文可用拼音代替。<br>
                        &nbsp;&nbsp;&nbsp;&nbsp;若您为了节省时间做更重要的事情,可由我们用汉语拼音为您补上,但我们不负任何填错责任。<br>
                        &nbsp;</span><br>
                        <font face="Arial, Helvetica, sans-serif">国际英文域名:<b><font color="#0066FF">.com,.net,.org 
                        80</font></b><font color="#0066FF">元/个/年</font> <font color="#FF0000"><br>
                        <font color="#000000">(生效时间为24小时)</font><br>
                        </font>国内英文域名:<font color="#FF6600"><b><font color="#0066FF">.com.cn,.net.cn,.org.cn,</font></b></font><font face="Arial, Helvetica, sans-serif" color="#0066FF"><b>.cn,</b></font><font color="#0066FF"><b>.gov.cn 
                        300</b>元/个/年</font> <font color="#FF0000"><br>
                        <font color="#000000">(生效时间为1周至1月,需要把企业执照传真到我司)</font><br>
                        <font color="#0066FF"><b>3721</b></font></font>网络实名:<b><font color="#0066FF"> 
                        500</font></b><font color="#0066FF">元/个/年</font> <font color="#FF0000"><br>
                        <font color="#000000">(生效时间为7天)</font><br>
                        </font>新国际域名:<b> <font color="#0066FF">&nbsp;.tv 450</font></b><font color="#0066FF">元/个/年;<b> 
                        .cc 350</b>元/个/年;<b> .biz 350</b>元/个/2年</font><font color="#FF0000"><br>
                        <font color="#000000">(生效时间为24小时)</font></font>&nbsp;</font>&nbsp;&nbsp;</td>
                    </tr>
                  </table>
                  <form name=yuming action=yuming2.asp method=post>
                    <table align=center border=0 
             cellpadding=0 cellspacing=1 width=99% bgcolor="#CCCCCC" class="f12" bordercolor="#FFFFFF">
                      <tbody> 
                      <tr bgcolor="#F3FCF7"> 
                        <td height=24 width="135"> 
                          <div align=center>您欲注册的英文域名一</div>
                        </td>
                        <td colspan=3 height=24> 
                          <input name=yuming1 size="18" style="color: #000000; border: 1 solid #000000">
                          ( .com/ .net/ .org/.tv/.cc/.中国/.网络/.公司)</td>
                      </tr>
                      <tr bgcolor="#F3FCF7"> 
                        <td height=24 width="135"> 
                          <div align=center>您欲注册的英文域名二</div>
                        </td>
                        <td colspan=3 height=24> 
                          <input name=yuming2 size="18" style="color: #000000; border: 1 solid #000000">
                          ( .com/ .net/ .org/.tv/.cc/.中国/.网络/.公司)</td>
                      </tr>
                      <tr bgcolor="#F3FCF7"> 
                        <td height=24 width=135> 
                          <div align=center>公司全称(个人填写姓名)(中文)</div>
                        </td>
                        <td width=166> 
                          <input style="color: #000000; border: 1 solid #000000" name=company>
                        </td>
                        <td width=72>(英文或拼音)</td>
                        <td width=174> 
                          <input name=companye style="color: #000000; border: 1 solid #000000">
                        </td>
                      </tr>
                      <tr bgcolor="#F3FCF7"> 
                        <td height=24 width=135> 
                          <div align=center>注册年限:</div>
                        </td>
                        <td colspan="3"> 
                          <select name="makeup" size="1">
                            <option>1年</option>
                            <option>2年</option>
                            <option>3年</option>

⌨️ 快捷键说明

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