当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用w3Sockets组件实现域名查询功能

ASP
生成像资源管理器一样的树形目录
将连接数据库的代码隐藏在DLL中
ASP中从数据库读取二进制文件数据代码
asp查询xml的代码,实现了无刷新、模糊查询功能
一个asp函数, 解决SQL Injection漏洞
在ASP中利用COM组件开发Web应用程序
关于如何利用COM+,来提高ASP执行权限的问题!
升级MD5.ASP,打造完全动态不重复的安全加密代码
ASP安全检测与过滤函数SafeCheck
在ASP中,用JScript脚本实现分页的另类办法
查看服务器Application/Session变量工具
自己写的一个简单ASP调用存储过程查询
ASP登陆验证页应做的安全问题
使用ASP与javascript配合实现多个复选框数据关联显示
Windows 2003下不注册组件用ASP发邮件
数据分页方法新思路,速度非常快!
ASP程序中同一个用户不允许同时登陆两次
分栏显示记录集的表格演示,并实现了分页
关于Adodb.Stream的写数据库数据到客户端文件的实践
将ASP的Debug变得简单的两个函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 244 ::
收藏到网摘: n/a

 

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>