帶多選項的網域名稱查詢

來源:互聯網
上載者:User
其實和做單一的網域名稱查詢別無多樣,閑話不說,具體是利用再迴圈查詢網域名稱而已.還有我使用不是萬網提供的網域名稱查詢介面.因為當查詢的網域名稱長度少於2位時,就會顯示"有問題的網域名稱:..."提示,它查詢網域名稱的速度不理想,慢得很,經常彈出"連線逾時"提示,這可能是免費提供網域名稱介面的緣故吧,不知道有沒有網友體驗過呢?

我是使用www.checkdomain.com提供網域名稱查詢介面,查詢速度蠻理想的.
先說明
http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=後面是直接查詢網域名稱的名字.例如要查詢aa.com,那麼url就是http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=aa.com

具體分三部分完成
1.form的內容
<form name="form1" method="post" onSubmit="javascript:return check()">
<table width="400" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="td">
<td colspan="2">網域名稱查詢系統:</td>
</tr>
<tr class="td">
<td valign="middle"><div align="center">www.
<input name="dns" type="text" id="dns">
</div></td>
<td><input type="submit" name="Submit" value="查詢"></td>
</tr>
<tr class="td">
<td colspan="2"><p align="center">
<input name="checkbox" type="checkbox" id="checkbox" value="com" checked>
.com
<input type="checkbox" name="checkbox" value="net">
.net
<input type="checkbox" name="checkbox" value="org">
.org
<input type="checkbox" name="checkbox" value="cn">
.cn </p>
<p align="center">
<input type="checkbox" name="checkbox" value="com.cn">
.com.cn
<input type="checkbox" name="checkbox" value="net.cn">
.net.cn
<input type="checkbox" name="checkbox" value="org.cn">
.org.cn </p></td>
</tr>
</table>

2.擷取的複選框的內容,並轉為數組,再利迴圈查詢網域名稱
<%
if request.Form("Submit")="查詢" then
types=split(request.form("checkbox"),",") '擷取當前選擇的類型
dns=trim(request.form("dns"))
for i=0 to ubound(types)
edns=dns & "." & trim(types(i))
url="http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain="& edns
wstr=getHTTPPage(url)
if instr(lcase(wstr),"registered")>0 then
response.write "<a href='whois.asp?domain="& edns & "'target='_blank'>" & edns &":已被註冊</a><br>"
else
response.write edns &":可用網域名稱<br>"
end if
next
end if
%>
3.whois.asp頁面
避免出現亂碼

getHTTPPage=BytesToBstr(t,"GB2312")
改為
getHTTPPage=BytesToBstr(t,"utf-8")

再截取輸出所需網域名稱註冊資訊
....
wstr=getHTTPPage(url)
wstr=left(wstr,instrrev(lcase(wstr),"this domain")-7)
si=instr(lcase(wstr),"for you.")+8
wstr=mid(wstr,si,len(wstr))
response.Write wstr
...

上述難免有些錯誤,歡迎大家指正!
本人郵箱:cudng@163.com



相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。