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

您的位置：首页 → 技术开发 → 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 "查询结果
" & strResult & ""

select case gj

case "0"

str1=inter(strresult)

response.write str1

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

case "1"

str1=cnnic(strresult)

response.write str1

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

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

%>

文章评论

查看所有0条评论>>

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