ASP组件介绍?w3Sockets
类别: ASP教程 
| w3Sockets是写著名JMAIL邮件组件开发者开发的又一免费实用的ASP组件。 需要下载的朋友可以在这里下载：http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2 下载后解压，运行SocketReg.exe注册组件。 这里主要介绍如何用该组件WHOIS域名，目前网上很多域名查询系统都是通过XMLHTTP获得其他网页数据，而获得记录。其实，我们完全可以通过w3Sockets自己来实现WHOIS的功能。 程序代码如下： <% @ LANGUAGE=VBScript %> <% Dim Domain,socket Domain = "im286" ‘这里以im286为例 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> 程序演示：http://pay.91dm.com/whois.asp |
- 上一篇: ASP 编程中20个非常有用的例子（二）
- 下一篇: 显示左边的n个字符函数（自动识别汉字）
