|
导读最近经常见到有人问如何在asp中查询域名是否被注册,所以写了这个组件,主要原理就是向gopher站点的whois服务器发送whois请求,由于没有太多时间,所以很简陋,目前只能实现向cnnic查询,... 最近经常见到有人问如何在asp中查询域名是否被注册,所以写了这个组件,主要原理就是向gopher站点的whois服务器发送whois请求,由于没有太多时间,所以很简陋,目前只能实现向cnnic查询,并且返回的信息没有进行处理,如果你要用的话,清在asp里自己处理一下吧。以后如果有时间将加上过及域名的查询功能。其实最主要的目的还是给大家做组件提供一点参考,毕竟组件的写法有些特殊。下载地址: 组件:http://homepage.qdcatv.com.cn/bigeagle/whois.zip 源代码:http://homepage.qdcatv.com.cn/bigeagle/whoiscode.zip 组件介绍 域名查询组件0.01版 组件名称:WhoIS 描述:查询域名是否已注册,如果注册,则显示该域名的信息,包括注册者的详细信息。 版本:0.01 (之所以称为0.01版是因为是在是太简陋了,目前只能查询国内注册的站点,也就是以cn结尾的站点。另外输出未做处理,需要在外部进行再包装。实在没有时间。) 日期:2000/9/15日 作者:bigeagle 使用方法(以asp调用为例) <% dim m_objDomainInfo '创建whois对象 set m_objDomainInfo = server.CreateObject ("WhoIs.DomainInfo") '查询新浪,你可以改变,但不能加前面的www m_objDomainInfo.GetDomainInfoCn ("cctv.com.CN") if m_objDomainInfo.IfSuccess <> 0 then '如果成功 Response.Write replace( m_objDomainInfo.DomainInfo, vbcrlf , "<br>") else'如果失败 Response.Write "失败原因:" & m_objDomainInfo.DomainInfo end if set m_objDomain = nothing %> |
温馨提示:喜欢本站的话,请收藏一下本站!