域名查询源代码

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

 


<
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%>
展开阅读全文

没有更多推荐了,返回首页