带多选项的域名查询

新客网 XKER.COM 2005-07-31 来源： 收藏本文

其实和做单一的域名查询别无多样,闲话不说,具体是利用再循环查询域名而已.还有我使用不是万网提供的域名查询接口.因为当查询的域名长度少于２位时，就会显示＂有问题的域名：．．．＂提示,它查询域名的速度不理想,慢得很,经常弹出"连接超时"提示,这可能是免费提供域名接口的缘故吧,不知道有没有网友体验过呢?

我是使用www.checkdomain.com提供域名查询接口,查询速度蛮理想的.
先说明
http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=后面是直接查询域名的名字．例如要查询aa.com，那么url就是http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=aa.com

具体分三部分完成
1.form的内容
<form name="form1" method="post" onSubmit="javascript:return check()">
<table width="400" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="td">
<td colspan="2">域名查询系统:</td>
</tr>
<tr class="td">
<td valign="middle"><div align="center">www.
<input name="dns" type="text" id="dns">
</div></td>
<td><input type="submit" name="Submit" value="查询"></td>
</tr>
<tr class="td">
<td colspan="2"><p align="center">
<input name="checkbox" type="checkbox" id="checkbox" value="com" checked>
.com
<input type="checkbox" name="checkbox" value="net">
.net
<input type="checkbox" name="checkbox" value="org">
.org
<input type="checkbox" name="checkbox" value="cn">
.cn </p>
<p align="center">
<input type="checkbox" name="checkbox" value="com.cn">
.com.cn
<input type="checkbox" name="checkbox" value="net.cn">
.net.cn
<input type="checkbox" name="checkbox" value="org.cn">
.org.cn </p></td>
</tr>
</table>

2.获取的复选框的内容,并转为数组,再利循环查询域名
<%
if request.Form("Submit")="查询" then
types=split(request.form("checkbox"),",") '获取当前选择的类型
dns=trim(request.form("dns"))
for i=0 to ubound(types)
edns=dns & "." & trim(types(i))
url="http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain="& edns
wstr=getHTTPPage(url)
if instr(lcase(wstr),"registered")>0 then
response.write "<a href='whois.asp?domain="& edns & "'target='_blank'>" & edns &":已被注册</a><br>"
else
response.write edns &":可用域名<br>"
end if
next
end if
%>
3.whois.asp页面
避免出现乱码
将
getHTTPPage=BytesToBstr(t,"GB2312")
改为
getHTTPPage=BytesToBstr(t,"utf-8")

再截取输出所需域名注册信息
....
wstr=getHTTPPage(url)
wstr=left(wstr,instrrev(lcase(wstr),"this domain")-7)
si=instr(lcase(wstr),"for you.")+8
wstr=mid(wstr,si,len(wstr))
response.Write wstr
...

上述难免有些错误,欢迎大家指正!
本人邮箱:cudng@163.com

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件