w3Sockets هو مكون ASP مجاني وعملي آخر تم تطويره بواسطة مطور مكونات البريد الإلكتروني الشهير JMAIL.
يمكن للأصدقاء الذين يحتاجون إلى التنزيل تنزيله هنا:
بعد تنزيل
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
، قم بفك ضغطه وتشغيل JackReg.exe لتسجيل المكون.تقدم هذه المقالة بشكل أساسي كيفية استخدام اسم مجال WHOIS المكون هذا. حاليًا، تحصل العديد من أنظمة الاستعلام عن اسم المجال على الإنترنت على بيانات وسجلات صفحات الويب الأخرى من خلال XMLHTTP. في الواقع، يمكننا تنفيذ وظيفة WHOIS بالكامل من خلال w3Sockets بأنفسنا.
رمز البرنامج هو كما يلي:
<% @ LANGUAGE=VBScript %>
<%
المجال خافت، المقبس
Domain = "knowsky" 'هنا نأخذ Knowsky كمثال
تعيين المقبس = Server.CreateObject( "Socket.TCP" ) 'إنشاء وظيفة كائن مأخذ التوصيل
whois( Domain, Server )
المقبس.Host = Server + ":43" 'قم بتعيين عنوان المضيف
المقبس.Open() 'فتح
المقبس.SendLine( المجال) 'تمرير
مأخذ التوصيل المتغير.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + المقبس.Buffer + "</pre></blockquote>" ) ' احصل على المحتوى
المقبس.Close() '
وظيفة النهاية
المغلقة
%>
<أتش تي أم أل>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Call whois( DomainName + ".com"، "rs.internic. صافي" ) %>
<%Call whois( DomainName + ".net", "rs.internic.net" ) %>
<%Call whois( DomainName + ".org", "rs.internic.net" ) %>
</body>
</html>