w3Sockets es otro componente ASP práctico y gratuito desarrollado por el famoso desarrollador de componentes de correo electrónico JMAIL.
Los amigos que necesiten descargarlo pueden descargarlo aquí:
Después de descargar
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
, descomprímalo y ejecute SocketReg.exe para registrar el componente.Este artículo presenta principalmente cómo utilizar este componente de nombre de dominio WHOIS. Actualmente, muchos sistemas de consulta de nombres de dominio en Internet obtienen otros datos y registros de páginas web a través de XMLHTTP. De hecho, nosotros mismos podemos implementar completamente la función WHOIS a través de w3Sockets.
El código del programa es el siguiente:
<% @ IDIOMA=VBScript %>
<%
Dominio tenue, zócalo
Dominio = "knowsky" 'Aquí tomamos knowsky como ejemplo
Establecer socket = Server.CreateObject( "Socket.TCP") 'Crear
función de objeto de socket whois(Dominio, Servidor)
socket.Host = Server + ":43" 'Establece la dirección del host
socket.Open() 'Abrir
socket.SendLine( Dominio ) 'Pasar variable
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ' Obtener contenido
socket.Close() 'Cerrar
función final
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Llamar whois( NombreDeDominio + ".com", "rs.internic. neto") %>
<%Llamar whois(NombreDominio + ".net", "rs.internic.net") %>
<%Llamar whois(NombreDominio + ".org", "rs.internic.net") %>
</body>
</html>