香港虚拟主机
本站公告
新闻资讯
虚拟主机帮助
域名帮助
服务器帮助
邮箱帮助
建站帮助
网站推广帮助
VPS帮助
特色主机帮助
网站备案专题
会员帮助信息
代理帮助信息
成功案例
我司获香港虚拟主机排行榜十…
香港虚拟主机金秋促销活动正…
百度整治给SEO带来了新的希望
百度同时收录网站带WWW和不带…
百度对原创内容的判断标准 如…
如何建设网站 网站建设三步曲
如何挑选老域名 老域名有那些…
域名常见故障与分析
虚拟主机基本参数介绍
交换链接的技巧 谈一下选择交…
您现在的位置: 江南数联 >> 帮助中心 >> 域名帮助 >> 正文

ASP版的万网域名查询接口

  作者:admin    来源:本站原创    点击次数:29     更新时间:2012-8-31 7:42:24  
     
 
关注石头有礼
 
 

ASP版的万网域名查询接口

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(jnkcUrl)
Dim jnkcXMLHTTP
Set jnkcXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
jnkcXMLHTTP.Open "GET", jnkcUrl, False, "", ""
jnkcXMLHTTP.Send
getHTTPPage = jnkcXMLHTTP.ResponseText
Set jnkcXMLHTTP = Nothing
End Function
%>
<form name="form1" method="post" onSubmit="return check()" style="margin:0;padding:0;">
<script language="JavaScript">
<!--
function check()
{
if (form1.dns.value=="")
{
alert("请输入要查询域名");
form1.dns.focus();
return false;
}
if(form1.dns.value.length < 3 )
{
alert("域名不能少于三位");
form1.dns.focus();
return false;
}
}
//-->
</script>
<table width="486" height="224" border="0" align="center" cellpadding="0" cellspacing="0"
id="TABLEE">
<tr>
<td height="224" align=left bgcolor="#FF0000">&nbsp;</td>
<td valign="top" background="images/dns_02.gif" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="74" valign="middle"><table width="100%" height="49" border="0" align="center" cellpadding="0" cellspacing="0"
id="TABLE1">
<tr>
<td width="50" height="49">www.</td>
<td width="100"><input id="dns" type="text" size="25" name="dns" class="mail" onMouseOver="this.style.border='1px solid #00cc33'" onMouseOut="this.style.border='1px solid #4B82BA'"/></td>
<td width="74"><input type="submit" value="查询" name="Submit" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"><table width="100%" align="center" id="tablechecke">
<tr>
<td width="78" height="36"><input id="checkbox" type="checkbox" checked="checked" value="com" name="checkbox" />
.com</td>
<td width="77" height="36"><input type="checkbox" value="net" name="checkbox" />
.net </td>
<td width="78" height="36"><input type="checkbox" value="org" name="checkbox" />
.org </td>
<td width="80" height="36"><input type="checkbox" value="info" name="checkbox" />
.info </td>
<td width="112" rowspan="4" valign="top">&nbsp;</td>
</tr>
<tr>
<td width="78" height="35"><input type="checkbox" value="biz" name="checkbox" />
.biz </td>
<td width="77" height="35"><input type="checkbox" value="ee" name="checkbox" />
.ee </td>
<td height="35"><input type="checkbox" value="tv" name="checkbox" />
.tv</td>
<td width="80" height="35"><input type="checkbox" value="gov.cn" name="checkbox" />
.gov.cn</td>
</tr>
<tr>
<td width="78"><input type="checkbox" value="com.cn" name="checkbox" />
.com.cn </td>
<td width="77"><input type="checkbox" value="net.cn" name="checkbox" />
.net.cn </td>
<td><input type="checkbox" value="org.cn" name="checkbox" />
.org.cn</td>
<td width="80"><input type="checkbox" value="cn" name="checkbox" />
.cn</td>
</tr>
<tr>
<td width="78" height="35"><input type="checkbox" value="hk" name="checkbox" />
.hk </td>
<td width="77" height="35"><input type="checkbox" value="com.tw" name="checkbox" />
.com.tw </td>
<td height="35"><input type="checkbox" value="idv.tw" name="checkbox" />
.idv.tw</td>
<td width="80" height="35"><input type="checkbox" value="in" name="checkbox" />
.in</td>
</tr>
</table></td>
</tr>
<tr>
<td height="6"><table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><%
if request.Form("Submit")="查询" then
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?domain="& dns &"&ext="&trim(types(i))
url="http://panda.www.net.cn/cgi-bin/check_muitl.cgi?domain="&dns&"."&ext&" "
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='#'>我要注册</a>"
else
mes="网络延迟,请重新查找!"
end if
response.write "<b>"&dns& "."&trim(types(i))&"</b> <font color='#ff0000'>" & mes & "</font><br/>"
next

elseif request.Form("Submit")="中文查询" then
types=split(request.form("checkbox"),",") '获取当前选择的类型
dns=trim(request.form("dnsmain"))
for i=0 to ubound(types)
ext=replace(trim(types(i)),".","")

'url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&trim(types(i)) //多域名查询
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&ext
wstr=getHTTPPage(url)
if instr(lcase(wstr),"已被注册的域名")>0 then
mes="已被注册!"
elseif instr(lcase(wstr),"未被注册的域名")>0 then
mes="未被注册!"
else
mes="网络延迟,请重新查找!"
end if
response.write dns & "." & trim(types(i)) & ":" & mes & "<br/>"
next
end if
%></td>
    </tr>
</table></td>
</tr>
</table></td>
<td align=left bgcolor="#FF0000">&nbsp;</td>
</tr>
</table>
</form>

本章关健词:江南数联 域名注册 海外虚拟主机 G享虚拟主机 国内虚拟主机 企业邮箱 网站建设 自助建站 400电话申请 微聚商

 
  版权申请:ASP版的万网域名查询接口出自江南数联dns06.com未经授权请勿转载!  
 
  • 上一篇帮助:

  • 下一篇帮助:
  •  
         

    扫一扫关注公众号有礼
    Copyright@2004-2015 江南数联 版权所有未经授权请勿复制!
    《中华人民共和国增值电信业务经营许可证》ISP证编号:皖B2-20080036 湘B2-20160056
    公司全称:永州石头网络技术有限公司(运营部)
    地址: 中国·湖南省永州市育才路158号 服务热线:400 616 9260
    安徽公司:安徽仁科信息技术有限公司 地址:合肥万和新城广场A-608 
    关注词:网站空间虚拟空间空间域名域名空间域名主机网站空间哪家好网站空间多少钱