作者：小牧
email: amumy@sina.com
日期：7/31/2001 12:57:55 AM
[#FF0000]轉[/#]


一個用vc開發的域名查詢組件（源代碼及說明）

關鍵詞：Visual C++

最近經常見到有人問如何在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
%>