一個用vc開發的網域名稱查詢組件(原始碼及說明)

來源:互聯網
上載者:User
原始碼 最近經常見到有人問如何在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
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。