您的位置:首页技术开发ASP技巧 → 域名登记查询whois很复杂吗--方法一

域名登记查询whois很复杂吗--方法一

时间:2004/11/7 4:10:00来源:本站整理作者:蓝点我要评论(0)

jjx原创,转载必须注明出处

要复制代码,请使用论坛的“复制“功能完成

chinaasp的域名查询要卖1000元,网友提了意见,却被吕科一句(你把他封装成组件试试?)给挡了回去。域名登记查询(whois)真的很复杂吗?



域名登记查询主要是通过whois服务器来完成的,当前比较常用的是rs.internic.net,通过它可以查询各种国际域名是否注册。whois的端口通常是43。利用winsock,你可以在asp简单的实现这个功能

asp不同于php/jsp,winsock功能并不内置,所以必须借助第三方的winsock组件。

这里的举例使用了serverobjects的aspsock,代码的注释比较详细,大家可以举一翻三

aspsock不是免费的,需要$49,如果需要免费的大家可以自己封装vb6中的winsock控件

或从这个地址下载免费的

Xceed Winsock Library v1.1

ftp://ftp.xceedsoft.com/pub/xceedwsl.exe<br>
该组件的主页是

http://www.xceedsoft.com/



whois.asp

-------------------------------------------

<%@ language="VBScript">











域名:www..<OPTION  selected>comnetorg

<INPUT class=input1 type=submit value=域名查询 name=Submit>

                



                

<%

dim strResult

if Request.ServerVariables("request_method")="POST" THEN

dim strQuery

'取得需要查询的域名

strQuery=request("domainname") & "." & request("ext")



dim objSock

'创建sock对象

Set objSock=Server.CreateObject("Aspsock.conn")

'设置whois服务器为rs.internic.net

objSock.RemoteHost="rs.internic.net"

'设置whois服务器端口为43

objSock.Port=43

'设置操作的超时为60秒

objSock.TimeOut=60

'打开与remotehost的连接,返回真为成功

if objSock.Open then

'发出查询 WriteLn表示用vbCrlf终结(strQuery & vbCRlf)

objSock.WriteLn strQuery

'读取返回值,最大长度为65535

strResult=objSock.ReadBytesAsString(65535)

'关闭连接

objSock.Close

'打印查询结果,你可以需要对此作些处理

Response.Write "查询结果
" & strResult & ""

end if

Set objSock=Nothing



end if

%>









利用winsock可以完成许多asp不太可能完成的事情,比方像网易一样真正无刷新的聊天室,大家仔细研究研究吧



相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案