w3Sockets adalah komponen ASP gratis dan praktis lainnya yang dikembangkan oleh pengembang komponen email JMAIL yang terkenal.
Teman-teman yang perlu mendownload dapat mendownloadnya disini:
Setelah mengunduh
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
, unzip dan jalankan SocketReg.exe untuk mendaftarkan komponen.Artikel ini terutama memperkenalkan cara menggunakan komponen nama domain WHOIS ini. Saat ini, banyak sistem kueri nama domain di Internet memperoleh data dan catatan halaman web lainnya melalui XMLHTTP. Faktanya, kami sendiri dapat sepenuhnya mengimplementasikan fungsi WHOIS melalui w3Sockets.
Kode programnya adalah sebagai berikut:
<% @ BAHASA=VBScript %>
<%
Redupkan Domain, soket
Domain = "knowsky" 'Di sini kita mengambil Knowsky sebagai contoh
Setel socket = Server.CreateObject( "Socket.TCP" ) 'Buat
fungsi objek soket whois( Domain, Server )
socket.Host = Server + ":43" 'Tetapkan alamat host
socket.Open() 'Buka
socket.SendLine( Domain ) 'Lewati variabel
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ' Dapatkan konten
socket.Close() 'Tutup
Fungsi Akhir
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Panggil whois( Nama Domain + ".com", "rs.internic. bersih" ) %>
<%Panggil whois( Nama Domain + ".net", "rs.internic.net" ) %>
<%Panggil whois( Nama Domain + ".org", "rs.internic.net" ) %>
</body>
</html>