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

新客网 XKER.COM 2003-07-11 来源： 收藏本文

最近经常见到有人问如何在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
%>

• ·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文件