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 (โดเมน, เซิร์ฟเวอร์)
socket.Host = Server + ":43" 'ตั้งค่าที่อยู่โฮสต์
socket.Open() 'เปิด
socket.SendLine( Domain ) 'ผ่านตัวแปร
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ' รับเนื้อหา
socket.Close() '
ฟังก์ชันปิดท้าย
-
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%โทร whois( DomainName + ".com", "rs.internic. สุทธิ") %>
<%โทร whois( ชื่อโดเมน + ".net", "rs.internic.net" ) %>
<%โทร whois( ชื่อโดเมน + ".org", "rs.internic.net" ) %>
</body>
</html>