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

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

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

voodoo发表于 2000-06-03 22:42:07<%@ Language=VBScript %>













域名:www. ">.

域名查询 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

select case request("ext")

case "com","net","org"

objSock.RemoteHost="rs.internic.net"

gj=0

case "com.cn","net.cn","org.cn"

objSock.RemoteHost="drop.cnnic.net.cn"

gj=1

end select

'设置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 "查询结果
"

select case gj

case "0"

str1=inter(strresult)

response.write str1

Response.Write "查询结果
"

case "1"

str1=cnnic(strresult)

response.write str1

Response.Write "查询结果
"

end select

end if

Set objSock=Nothing



end if



function inter(str)

if instr(str,"No match")=0 then

response.write "您的域名已经被注册。"

else

response.write "您的域名没有被注册。"

end if

end function



function cnnic(str)

if instr(str,"%")=0 then

response.write "您的域名已经被注册。"

else

response.write "您的域名没有被注册。"

end if

end function

%>

                








相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论
发表评论

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

最新文章 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隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案