最近經(jīng)常見到有人問(wèn)如何在asp中查詢域名是否被注冊(cè)，所以寫了這個(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)參考，畢竟組件的寫法有些特殊。

下載地址：
組件：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
%>