域名查询源代码

 网上很多关于域名查询的源代码，我这里只说多域名查询的问题，网络资源确实丰富，最初的我也下载了不少，每次放到站点上试验，发现最多的情况就是，国际域名查询没问题，但是涉及到国内域名，总是显示网络延迟，连接不上，可能是头一次接触的过，满头雾水，不知道从何下手，看着代码，脑子却不动，一个下午就在茫然中度过。领导也是跟着催促，只好夜里加班，可能是盯的代码时间长了，混熟了，哈哈，一条一条的代码终于读进脑子了，其实自己也不太懂，分析吧，当然分析的可不是代码，而是原作者的想法，为什么注视掉这句，为什么加上那句，几经试验，通过，呵呵，好开心。完全弄完已经早上六点了。下面把源代码贴出来，供大家参考

 

<% 
On Error Resume Next 
Server.ScriptTimeOut=9999999 
Function getHTTPPage(jnkcUrl) 
Dim CJXMLHTTP 
Set CJXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
CJXMLHTTP.Open "GET", jnkcUrl, False, "", "" 
CJXMLHTTP.Send 
getHTTPPage = CJXMLHTTP.ResponseText 
Set CJXMLHTTP = Nothing 
End Function 
%> 
<script language="JavaScript"> 
<!-- 
function check() 
{ 
if (form1.dns.value=="") 
{ 
alert("请输入要查询域名"); 
form1.dns.focus(); 
return false; 
} 
if(form1.dns.value.length < 2 ) 
{ 
alert("域名不能少于三位"); 
form1.dns.focus(); 
return false; 
} 
} 
//--> 
</script> 
<%if request.Form("Submit")="查询" then %>
                   <table width="450" border="1" cellpadding="3" cellspacing="0" bordercolor="B3A177" bgcolor="D4EEC9" class="tablemar">
                    <tr>
                      <td width="444" height="26" align="left" valign="middle" class="greenwords">&nbsp;&nbsp;&nbsp;域名查询结果:<br />
                      <div style=" margin-left:20px">
<table width='100%' border='0' cellspacing='0' cellpadding='0'>
<%
types=split(request.form("checkbox"),",") '获取当前选择的类型 
dns=trim(request.form("dns")) 
for i=0 to ubound(types) 
'ext=replace(trim(types(i)),".","") 
url="http://panda.www.net.cn/cgi-bin/check.cgi?area_domain="&dns&"."&trim(types(i))&" " 
wstr=getHTTPPage(url) 
if instr(wstr,"Domain name is not available")>0 then 
mes="已被注册" 
elseif instr(wstr,"Domain name is available")>0 then 
mes="未被注册 <a href='dnsrave.asp'>我要注册</a>" 
else 
mes="网络延迟,请重新查找!" 
end if 
response.write "<tr><td><b>"&dns& "."&trim(types(i))&"</b></td><td><font color='#ff0000'>" & mes & "</font></td></tr>" 
next 
%></table></div>
                      </td>
                    </tr>
                  </table>
<%else%>
<form name="form1" method="post" onSubmit="javascript:return check()" style="margin:0;padding:0;"> 
                  <table width="450" border="1" cellpadding="0" cellspacing="0" bordercolor="B3A177" bgcolor="D4EEC9" class="tablemar">
                    <tr>
                      <td height="26" colspan="2" align="center" class="greenwords"><img src="images/domain_www.gif" width="60" height="18" /><input name="dns" type="text" class="input_domain" id="dns"  style="height:16px; width:200px"onMouseOver="this.style.border='1px solid #00cc33'" onMouseOut="this.style.border='1px solid #4B82BA'"/> 
                        &nbsp;
                        <input type="submit" name="Submit" value="查询" id="Submit" /></td>
                    </tr>
                    <tr>
                      <td width="104" height="20" align="center" class="greenwords">国际域名</td>
                      <td width="340" height="20" align="left" valign="middle" class="greenwords"><input type="checkbox" name="checkbox" value="com" id="checkbox" />
                          <label for="checkbox"></label>
                        .com&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                        <input type="checkbox" name="checkbox" value="net" id="checkbox" />
                        <label for="checkbox2"></label>
                        .net
                        &nbsp;&nbsp;&nbsp;&nbsp;
                          <input type="checkbox" name="checkbox" value="org" id="checkbox" />
                          <label for="checkbox3"></label>
                        .org </td>
                    </tr>
                    <tr>
                      <td height="20" align="center" class="greenwords">国内域名</td>
                      <td height="20" align="left" class="greenwords"><input type="checkbox" name="checkbox" value="com.cn" id="checkbox" />
                          <label for="checkbox4">.com.cn
                            <input type="checkbox" name="checkbox" value="net.cn" id="checkbox" />
                            .net.cn
                            <input type="checkbox" name="checkbox" value="org.cn" id="checkbox" />
                            .org.cn
                            <input type="checkbox" name="checkbox" value="gov.cn" id="checkbox" />
                            .gov.cn
                            <input type="checkbox" name="checkbox" value="cn" id="checkbox" />
                            .cn</label></td>
                    </tr>
                    <tr>
                      <td height="20" align="center" class="greenwords">新增域名</td>
                      <td height="20" align="left" class="greenwords"><input type="checkbox" name="checkbox" value="info" id="checkbox" />
                          <label for="checkbox9"></label>
                        .info
                        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                          <input type="checkbox" name="checkbox" value="biz" id="checkbox" />
                          <label for="checkbox10"></label>
                        .biz</td>
                    </tr>
                    
                    <tr>
                      <td height="20" align="center" class="greenwords">中文通用域名</td>
                      <td height="20" align="left" class="greenwords"><input type="checkbox" name="checkbox" value="中国" id="checkbox" />
                          <label for="checkbox11">.中国
                            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                <input type="checkbox" name="checkbox" value="网络" id="checkbox" />
                          </label>
                        .网络&nbsp;&nbsp;&nbsp;&nbsp;
                        <input type="checkbox" name="checkbox" value="公司" id="checkbox" />
                        <label for="checkbox13"></label>
                        .公司</td>
                    </tr>
                  </table>
              </form>
<%end if%>