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


一個(gè)用vc開(kāi)發(fā)的域名查詢組件（源代碼及說(shuō)明）

關(guān)鍵詞：Visual C++

最近經(jīng)常見(jiàn)到有人問(wèn)如何在asp中查詢域名是否被注冊(cè)，所以寫(xiě)了這個(gè)組件，主要原理就是向gopher站點(diǎn)的whois服務(wù)器發(fā)送whois請(qǐng)求，由于沒(méi)有太多時(shí)間，所以很簡(jiǎn)陋，目前只能實(shí)現(xiàn)向cnnic查詢，并且返回的信息沒(méi)有進(jìn)行處理，如果你要用的話，清在asp里自己處理一下吧。以后如果有時(shí)間將加上過(guò)及域名的查詢功能。其實(shí)最主要的目的還是給大家做組件提供一點(diǎn)參考，畢竟組件的寫(xiě)法有些特殊。

下載地址：
組件：http://homepage.qdcatv.com.cn/bigeagle/whois.zip
源代碼：http://homepage.qdcatv.com.cn/bigeagle/whoiscode.zip

組件介紹
域名查詢組件0.01版

組件名稱：WhoIS

描述：    查詢域名是否已注冊(cè)，如果注冊(cè)，則顯示該域名的信息，包括注冊(cè)者的詳細(xì)信息。

版本：0.01 （之所以稱為0.01版是因?yàn)槭窃谑翘?jiǎn)陋了，目前只能查詢國(guó)內(nèi)注冊(cè)的站點(diǎn)，也就是以cn結(jié)尾的站點(diǎn)。另外輸出未做處理，需要在外部進(jìn)行再包裝。實(shí)在沒(méi)有時(shí)間。）

日期：2000/9/15日

作者：bigeagle


使用方法（以asp調(diào)用為例）

<%
    dim m_objDomainInfo 
    
    '創(chuàng)建whois對(duì)象
    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
%>