w3Sockets é outro componente ASP gratuito e prático desenvolvido pelo famoso desenvolvedor de componentes de e-mail JMAIL.
Amigos que precisam baixar podem baixá-lo aqui:
Após baixar
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
, descompacte-o e execute SocketReg.exe para registrar o componente.Este artigo apresenta principalmente como usar este componente de nome de domínio WHOIS. Atualmente, muitos sistemas de consulta de nomes de domínio na Internet obtêm outros dados e registros de páginas da web por meio de XMLHTTP. Na verdade, podemos implementar completamente a função WHOIS por meio do w3Sockets.
O código do programa é o seguinte:
<% @ LANGUAGE=VBScript%>
<%
Dim Domínio, soquete
Domínio = "knowsky" 'Aqui tomamos knowsky como exemplo
Set socket = Server.CreateObject("Socket.TCP") 'Criar
função de objeto de soquete whois(Domínio, Servidor)
socket.Host = Server + ":43" 'Defina o endereço do host
socket.Open() 'Abre
socket.SendLine( Domínio ) 'Passa a variável
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ' Obtenha conteúdo
socket.Close() '
Função Fechar Final
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Chamar whois( DomainName + ".com", "rs.internic. líquido" ) %>
<%Ligar para whois(NomeDodomínio + ".net", "rs.internic.net" ) %>
<%Ligar para whois(DomainName + ".org", "rs.internic.net" ) %>
</body>
</html>