w3Sockets — еще один бесплатный и практичный компонент ASP, разработанный известным разработчиком компонентов электронной почты JMAIL.
Друзья, которым необходимо скачать, могут скачать его здесь:
После загрузки
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
разархивируйте его и запустите SocketReg.exe, чтобы зарегистрировать компонент.В этой статье в основном рассказывается, как использовать этот компонент доменного имени WHOIS. В настоящее время многие системы запроса доменных имен в Интернете получают другие данные и записи веб-страниц через XMLHTTP. Фактически, мы можем полностью реализовать функцию WHOIS через w3Sockets самостоятельно.
Код программы следующий:
<% @ LANGUAGE=VBScript %>
<%
Тусклый домен, розетка
Domain = "knowsky" 'В качестве примера мы возьмем Knowsky.
Set Socket = Server.CreateObject( "Socket.TCP") 'Создать
функцию объекта сокета whois(Domain, Server)
сокет.Host = Сервер + ":43" 'Установить адрес хоста
socket.Open() 'Открыть
сокет.SendLine(Domain) 'Передать переменную
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" +ocket.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>