最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
域名登记查询(whois)很复杂吗--方法二
时间：2008-01-12 编辑：简简单单 来源：一聚教程网
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 "查询结果
"
-
上一个： session的几个问题
-
下一个： LINE9的目录浏览源程序
相关文章
- MyBatis中的模糊查询语句 07-07
- 驱动人生怎么使用天气查询 06-22
- 小鸣单车邀请码在哪 小鸣单车邀请码怎么查询 06-02
- 通过access查询建立订单表 05-31
- 网易云音乐如何查询近一年的听歌总量 05-18
- 京东失信名单怎么查询 查询方法 05-04