search.asp

鄂尔多斯建站网全站程序(冬季修正版)

   if InStr(TakenHTML,"Error") > 1 then
       Response.Write sdomain & "出错了,请返回！<br><br>"
   else
     if InStr(TakenHTML,"NOT FOUND") > 1 then
          ok=ok+ "<font color=blue><a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a></font><br>"
     else
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=org&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br><br>"
     end if
   end if
end if
if request.Form("orgcn") then
   sdomain=Domain+".org.cn"
   TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi.cgi?domain=" & Domain & "&ext=orgcn&work=whois&big5=n")
     if InStr(TakenHTML,"no matching record") < 1 then
         allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=orgcn&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     else
          ok=ok+ "<font color=blue><a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a></font><br>"
     end if
end if 
if request.Form("cn") then
   sdomain = Domain+".cn"
   TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=cn&x=15&y=7")
     'response.write "http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=cn&x=15&y=7"
	 if InStr(TakenHTML,"未被注册的域名") < 1 then
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=cn&work=whois&big5=n>" & sdomain&" 已经被注册！</a></font><br>"
     else
          ok=ok+ "<font color=blue><a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a></font><br>"
     end if
end if 
if Request.Form("biz") then
   sdomain=Domain+".biz"
   TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=biz&x=10&y=9")
   if InStr(TakenHTML,"Error") > 1 then
       Response.Write sdomain & "出错了,请返回！<br>"
   else
     if InStr(TakenHTML,"未被注册的域名") > 1 then
          ok=ok+ "<font color=blue><a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a></font><br>"
     else
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=biz&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     end if
   end if
end if 
if request.Form("info") then
   sdomain=Domain+".info"
   TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=info&x=10&y=9")
   if InStr(TakenHTML,"Error") > 1 then
       Response.Write sdomain & "出错了,请返回！<br><br>"
   else
     if InStr(TakenHTML,"未被注册的域名") > 1 then
          ok=ok+ "<font color=blue><a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a></font><br>"
     else
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=info&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     end if
   end if
end if 
if request.Form("tv") then
   sdomain=Domain+".tv"
   TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=biz&x=10&y=9")
     if InStr(TakenHTML,"已被注册的域名") > 1 then
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=tv&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     else
          ok=ok+ "<a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a><br>"
     end if
end if 
if request.Form("cc") then
   sdomain=Domain+".cc"
   TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=cc&x=10&y=9")
     if InStr(TakenHTML,"未被注册的域名") < 1 then
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=cc&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     else
          ok=ok+ "<a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a><br>"
     end if
end if 
if request.Form("govcn") then
   sdomain=Domain+".gov.cn"
   TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=govcn&x=10&y=9")
     if InStr(TakenHTML,"未被注册的域名") < 1 then
          allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=govcn&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
     else
          ok=ok+ "<a href=list.asp?id=域名注册>" & sdomain&" 可以注册</a><br>"
     end if
end if 
if allreg <>"" then response.write "<img border=0 src=pic/no.gif width=17 height=17>&nbsp;以下域名已被注册<br>"
response.write allreg
response.write("<br>")
if ok <>"" then response.write "<img border=0 src=pic/yes.gif width=17 height=17>&nbsp;以下域名未被注册，请选择注册<br>"
response.write ok
response.write("<br>")
%></td>
          </tr>
          <tr>
            <td width="100%">　</td>
          </tr>
        </table>
        </center>
      </div>
    </td>
  </tr>
  <tr>
    <td width="100%" height="20">
      <p align="center"><font color="#FFFFFF">继 续 查 询</font>      
    </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
      <div align="center">
        <table border="0" cellpadding="0" cellspacing="0" width="80%" height="101">
          <tr>
            <td width="103%" colspan="4" height="28">
              <p align="center"><img border="0" src="pic/domain0.gif"></td>
          </tr>
          <form action="search.asp" method="post" onSubmit="return submitchecken()" name=frmsearchInt>
  </center>
          <tr>
            <td width="103%" colspan="4" height="14">
              <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                  <td width="18%">
                    <p align="right">WWW.</td>
  <center>
  <td width="48%">
    <p align="center"><input type="text" name="domain" class="input1" id="Domain" size="20">                                                                                          
  </td>
  <td width="34%"><input type="submit" value="搜索" name="image" type="image" style="background-color: #FFFFFF">                                                                                                           
  </td>
                  </tr>
                </table>
              </center>
              </td>
          </tr>
          <tr>
            <td width="25%" height="14"><font size="2"><input name=com type=checkbox id="com" value=1 checked><font color="#FF0000"><strong>.com</strong></font></font></td>
            <td width="25%" height="14"><font size="2"><input name=net type=checkbox id="net" value=1>.net</font></td>
            <td width="25%" height="14"><font size="2"><input name=org type=checkbox id="org" value=1>.org</font></td>
            <td width="25%" height="14"><font size="2"><input name=tv type=checkbox id="root32" value=1>.tv</font></td>
          </tr>
          <tr>
            <td width="25%" height="14"><font size="2"><input name=comcn type=checkbox id="root52" value=1>.com.cn</font></td>
            <td width="25%" height="14"><font size="2"><input name=netcn type=checkbox id="root42" value=1>.net.cn</font></td>
            <td width="25%" height="14"><font size="2"><input name=orgcn type=checkbox id="root62"  value=1>.org.cn</font></td>
            <td width="25%" height="14"><font size="2"><input name=cc type=checkbox id="root73" value=1>.cc</font></td>
          </tr>
          <tr>
            <td width="25%" height="14"><font size="2"><input name=govcn type=checkbox id="root24" value=1>.gov.cn</font></td>
            <td width="25%" height="14"><font size="2"><input name=info type=checkbox id="root74" value=1>.info</font></td>
            <td width="25%" height="14"><font size="2"><input name=biz type=checkbox id="biz" value=1>.biz</font></td>
            <td width="25%" height="14"><font size="2"><input name=cn type=checkbox id="cn" value=1 checked><font color="#FF0000"><strong>.cn</strong></font></font></td>
          </tr>
          </form>
          <tr>
            <td width="103%" colspan="4" height="17">&nbsp;</td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
</table>
              </td>
            </tr>
            <tr>
              <td>　</td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
  </table>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758" height="1">
    <tr>
      <td width="100%" background="pic/line_gb.gif" height="1"></td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758">
    <tr>
      <td>
        <p align="center"><%call foot_title%></td>
    </tr>
  </table>
  </center>
</div></td>
		</tr>
	</table>
</div>
</body>

</html>
<%call close_conn%>