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