最近经常见到有人问如何在asp中查询域名是否被注册,所以写了这个组件,主要原理就是向gopher站点的whois服务器发送whois请求,由于没有太多时间,所以很简陋,目前只能实现向cnnic查询,并且返回的信息没有进行处理,如果你要用的话,清在asp里自己处理一下吧。以后如果有时间将加上过及域名的查询功能。其实最主要的目的还是给大家做组件提供一点参考,毕竟组件的写法有些特殊。
下载地址:
组件:http://homepage.qdcatv.com.cn/bigeagle/whois.zip
源代码:http://homepage.qdcatv.com.cn/bigeagle/whoiscode.zip
组件介绍
域名查询组件0.01版
组件名称:WhoIS
描述:查询域名是否已注册,如果注册,则显示该域名的信息,包括注册者的详细信息。
版本:0.01 (之所以称为0.01版是因为是在是太简陋了,目前只能查询国内注册的站点,也就是以cn结尾的站点。另外输出未做处理,需要在外部进行再包装。实在没有时间。)
日期:2000/9/15日
作者:bigeagle
使用方法(以asp调用为例)
<%
dim m_objDomainInfo
'创建whois对象
set m_objDomainInfo = server.CreateObject ("WhoIs.DomainInfo")
'查询新浪,你可以改变,但不能加前面的www
m_objDomainInfo.GetDomainInfoCn ("cctv.com.CN")
if m_objDomainInfo.IfSuccess <> 0 then '如果成功
Response.Write replace( m_objDomainInfo.DomainInfo, vbcrlf , "<br>")
else'如果失败
Response.Write "失败原因:" & m_objDomainInfo.DomainInfo
end if
set m_objDomain = nothing
%>
关键词:一个用vc开发的域名查询组件(源代码及说明)