w3Sockets も、有名な JMAIL 電子メール コンポーネント開発者によって開発された、もう 1 つの無料で実用的な ASP コンポーネントです。
ダウンロードが必要な友人は、ここからダウンロードできます。
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
をダウンロードした後
、解凍し、SocketReg.exe を実行してコンポーネントを登録します。この記事では、主にこのコンポーネント WHOIS ドメイン名の使用方法を紹介します。 現在、インターネット上の多くのドメイン名クエリ システムは、XMLHTTP を通じて他の Web ページのデータやレコードを取得します。実際、w3Sockets を通じて WHOIS 機能を自分たちで完全に実装することができます。
プログラムコードは次のとおりです。
<% @ LANGUAGE=VBScript %>
<%
ディムドメイン、ソケット
Domain = "knowsky" 'ここでは、knowsky を例として取り上げます
Setソケット = Server.CreateObject( "Socket.TCP" ) 'ソケットオブジェクト
関数の作成 whois( Domain, Server )
socket.Host = Server + ":43" 'ホストアドレスを設定します
socket.Open() '
socket.SendLine( Domain ) ' 変数を渡す
ソケット.WaitForDisconnect()
Response.Write( "<blockquote><pre>" +ソケット.Buffer + "</pre></blockquote>" ) 'コンテンツを取得する
socket.Close() '
終了関数
を閉じる
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Call whois( DomainName + ".com", "rs.internic.ネット" ) %>
<%Call whois( ドメイン名 + ".net", "rs.internic.net" ) %>
<%Call whois( ドメイン名 + ".org", "rs.internic.net" ) %>
</body>
</html>