欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

使用w3Sockets组件实现域名查询功能

程序员文章站 2023-11-08 23:56:58
w3sockets是写着名jmail邮件开发者开发的又一免费实用的asp组件。需要下载的朋友可以在这里下载:https://www.dimac.net/freedownloads/dlstart.?...

w3sockets是写着名jmail邮件开发者开发的又一免费实用的asp组件。
需要下载的朋友可以在这里下载:
https://www.dimac.net/freedownloads/dlstart.?productid=2

下载后解压,运行socketreg.exe注册组件。

这里主要介绍如何用该组件whois域名,目前网上很多域名查询都是通过xml(标准化越来越近了)http获得其他网页数据,而获得记录。其实,我们完全可以通过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>