網域名稱登記查詢(whois)很複雜嗎--方法二

來源:互聯網
上載者:User
voodoo發表於 2000-06-03 22:42:07<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form action=whois.asp method=post>
網域名稱:www<B>.</B> <INPUT size=8 name=domainname value="<% =request("domainname") %>">. <SELECT name=ext>
<OPTION selected>com</OPTION>
<OPTION>net</OPTION>
<OPTION>org</OPTION>
<OPTION>com.cn</OPTION> <OPTION>net.cn</OPTION> <OPTION>org.cn</OPTION>
</SELECT>
<INPUT class=input1 type=submit value=網域名稱查詢 name=Submit>
</form>

<%
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 "<b>查詢結果</b><br><textarea rows=10 cols=60>" & strResult & "</textarea>"
select case gj
case "0"
str1=inter(strresult)
response.write str1
Response.Write "<b>查詢結果</b><br><textarea rows=10 cols=60>" & strResult & "</textarea>"
case "1"
str1=cnnic(strresult)
response.write str1
Response.Write "<b>查詢結果</b><br><textarea rows=10 cols=60>" & strResult & "</textarea>"
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
%>


</BODY>
</HTML>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。