W3Sockets is another free and practical ASP component developer developer developers developers developers.
Friends who need to download can be downloaded here:
http://www.dimac.net/freedownloadownloads/dlstart.asp?productId=2
After downloading, decompress, run the socketReg.exe registration component.
Here mainly describes how to use the component WHOIS domain name. Many domain name query systems are currently available to other web data through XMLHTTP, and get records. In fact, we can fully implement WHOIS with W3Sockets yourself.
The program code is as follows:
Code: [Copy to CLIPBOARD]
<% @ Language = VBScript%> <% Dim Domain, socketdomain = "91now" here Take 91NOW Take Socket = Server.createObject ("Socket.tcp") 'Establishing a Socket object Function Whois (domain, server) socket. Host = Server ": 43" Set Host Address Socket.open () 'Open Socket.sendLine (Domain)' Transfer Variable Socket.waitfordisconnect () Response.write ("" socket.buffer " ") 'Get content socket.close () Close End function%> <% Call Whois (DomainName ".com", "rs.internic.net")%> <% Call Whois (DomainName ".NET", "RS.Internic. Net ")%> <% Call Whois (DomainName "), "rs.internic.net")%>
Program Demo:
http://pay.91dm.com/whois.asp
