w3Sockets是写著名JMAIL邮件组件开发者开发的又一免费实用的ASP组件。 需要下载的朋友可以在这里下载: http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2 下载后解压,运行SocketReg.exe注册组件。 这里主要介绍如何用该组件WHOIS域名,目前网上很多域名查询系统都是通过XMLHTTP获得其他网页数据,而获得记录。其实,我们完全可以通过w3Sockets自己来实现WHOIS的功能。 程序代码如下: <% @ LANGUAGE=VBScript %> <% Dim Domain,socket Domain = "knowsky" ‘这里以knowsky为例 Set socket = Server.CreateObject( "Socket.TCP" ) '建立socket对象 function whois( Domain, Server ) socket.Host = Server + ":43" '设置主机地址 socket.Open() ’打开 socket.SendLine( Domain ) ‘传递变量 socket.WaitForDisconnect() Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" ) ’获得内容 socket.Close() ‘关闭 End Function %> <html> <body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Call whois( DomainName + ".com", "rs.internic.net" ) %> <%Call whois( DomainName + ".net", "rs.internic.net" ) %> <%Call whois( DomainName + ".org", "rs.internic.net" ) %> </body> </html>
|