VC developed Domain Name query components (source code and description)

Recently, I often see someone ask how to query the domain name in ASP is registered, so write this component, the main principle is to the Gopher site whois server to send WHOIS request, because not too much time, so very simple, at present can only realize to cnnic query, And the returned information is not processed, if you want to use, clear in the ASP to deal with it yourself. Later if there is time will be added and the domain name of the query function. In fact, the main purpose is to provide you with a little reference components, after all, the components of the writing some special.
Download Address:
Component: Http://homepage.qdcatv.com.cn/bigeagle/whois.zip
Source code: Http://homepage.qdcatv.com.cn/bigeagle/whoiscode.zip
Component Introduction
Domain Name Query component version 0.01
Component Name: WhoIS
Description: Query whether the domain name is registered, if registered, then display the domain name information, including the registrant's details.
Version: 0.01 (the reason is called the 0.01 version is because it is too primitive, can only query the domestic registration of the site, that is, CN end of the site. In addition, the output is not processed and needs to be repackaged externally. There is really no time. ）
Date: 2000/9/15 Day
Author: bigeagle
How to use (as an ASP call)
<%
Dim m_objdomaininfo

' Create a Whois object
Set m_objdomaininfo = Server. CreateObject ("Whois.domaininfo")

' Query Sina, you can change, but can't add front of www
M_OBJDOMAININFO.GETDOMAININFOCN ("Cctv.com.CN")


If m_objdomaininfo.ifsuccess <> 0 Then ' if successful
Response.Write Replace (M_objdomaininfo.domaininfo, vbCrLf, "<br>")
Else ' If it fails
Response.Write "Cause of Failure:" & M_objdomaininfo.domaininfo
End If
Set M_objdomain = Nothing
%>