一个用vc开发的域名查询组件(源代码及说明)

80酷酷网    80kuku.com

  源代码最近经常见到有人问如何在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 , "
")
    else    '如果失败
       Response.Write "失败原因:" & m_objDomainInfo.DomainInfo    
    end if   
    set m_objDomain = nothing
%>

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: