最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
域名登记查询(whois)很复杂吗--方法二
时间：2022-06-30 11:53:36 编辑：袖梨 来源：一聚教程网
voodoo发表于 2000-06-03 22:42:07<%@ Language=VBScript %>
>
<%
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 "查询结果
"
<%
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 "查询结果
"
相关文章
- 《潜行者2：切尔诺贝利之心》游戏车辆使用推荐 11-22
- 《潜行者2：切尔诺贝利之心》挡路的特异点处理方法介绍 11-22
- 《潜行者2：切尔诺贝利之心》开局获得满强AK方法介绍 11-22
- 《潜行者2：切尔诺贝利之心》军用防弹背心获得方法介绍 11-22
- 《潜行者2：切尔诺贝利之心》防毒面具获得方法介绍 11-22
- 《潜行者2：切尔诺贝利之心》开局捡尸体摸尸注意事项分享 11-22