w3Sockets est un autre composant ASP gratuit et pratique développé par le célèbre développeur de composants de messagerie JMAIL.
Les amis qui ont besoin de télécharger peuvent le télécharger ici :
Après avoir téléchargé
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
, décompressez-le et exécutez SocketReg.exe pour enregistrer le composant.Cet article présente principalement comment utiliser ce composant de nom de domaine WHOIS. Actuellement, de nombreux systèmes de requête de noms de domaine sur Internet obtiennent d'autres données et enregistrements de pages Web via XMLHTTP. En fait, nous pouvons nous-mêmes implémenter complètement la fonction WHOIS via w3Sockets.
Le code du programme est le suivant :
<% @ LANGUAGE=VBScript %>
<%
Dim Domaine, socket
Domain = "knowsky" 'Ici, nous prenons Knowsky comme exemple
Set socket = Server.CreateObject( "Socket.TCP" ) 'Créer
la fonction d'objet socket whois (Domaine, Serveur)
socket.Host = Server + ":43" 'Définir l'adresse de l'hôte
socket.Open() 'Ouvrir
socket.SendLine( Domain ) 'Passer la variable
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ' Obtenir du contenu
socket.Close() 'Fermer
la fonction de fin
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Call whois( DomainName + ".com", "rs.internic. net" ) %>
<%Appeler whois( Nom de domaine + ".net", "rs.internic.net" ) %>
<%Appeler whois(Nom de domaine + ".org", "rs.internic.net" ) %>
</body>
</html>