寫的很簡單，只是實作了功能
<%
函數formaturl(是)
如果 mid(yes,5,1)<>"" 則
是1 = 左(是,3)
yes2 = 右(是,cint(len(是))-3)
formaturl = yes1 & "." & 是的2
別的
格式網址=是
結束如果
結束功能
'取得遠端網頁二進位原始碼
函數 getBoy(url)
'出錯時繼續下一步
設定 objXml = Server.CreateObject("Microsoft.XmlHttp")
與 objXml
.open "取得",url,false,"",""
。
getBoy = .responsebody
結束於
getBoy = BytesToBstr(GetBoy,"GB2312")
設定 objXml = 無
end function
'處理二進位流程式碼
函數 BytesToBstr(strBody,CodeBase)
昏暗的對象流
設定 objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = 程式碼庫
BytesToBstr = objStream.ReadText
objStream.關閉
設定 objStream = 無
結束功能
%>
未註冊的網域名稱如下
<%
'www.knowsky.com 如果提交了查詢
如果 Request.Form("yes") <> "" 那麼
yes = Replace(Request.Form("yes")," ","") ' 刪除字串中的空格
yes = split(yes,",") '實例化一個集群yes，將用隔開的yes集群分配給yes新集群
For i = 0 to ubound(yes) ' 記憶體迴圈開始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain= "&Request.Form("網域名稱")&"&ext="&yes(i )
wstr = getBoy(url) '取得查詢後的來源程式碼
If instr(wstr,"喬丹註冊的域名") <> 0 then '判斷是否為已註冊的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" ' 未註冊的域名
結束如果
下一個
response.Write "<p><p><p>已註冊的網域名稱如下：<br>"
For i = 0 to ubound(yes) ' 記憶體迴圈開始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain= "&Request.Form("網域名稱")&"&ext="&yes(i )
wstr = getBoy(url) '取得查詢後的來源程式碼
If instr(wstr,"已註冊的網域名稱") <> 0 then '判斷是否為已註冊的網域
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" ' 註冊的域名
結束如果
下一個
否則
%>
<form name="form1" method="post" action="">
<p>
<輸入名稱=“域”類型=“文字”id=“域”>
<input type="提交" name="提交" value="查詢">
</p>
<p>
<輸入名稱=“是”類型=“複選框”id=“是”值=“com”>
.com
<輸入名稱=“是”類型=“複選框”id=“是”值=“net”>
。
<輸入名稱=“是”類型=“複選框”ID=“是”值=“組織”>
.org </p>
<p>
<input name="yes" type="checkbox" id="yes" value="comcn">
.com.cn
<input name="yes" type="checkbox" id="yes" value="netcn">
.net.cn
<input name="yes" type="checkbox" id="yes" value="orgcn">
組織網
<input name="yes" type="checkbox" id="yes" value="govcn">
政府網路</p>
<p>
<輸入名稱=“是”類型=“複選框”id=“是”值=“資訊”>
.資訊
<輸入名稱=“是”類型=“複選框”id=“是”值=“biz”>
.biz
<輸入名稱=“是”類型=“複選框”id=“是”值=“電視”>
。
<輸入名稱=“是”類型=“複選框”id=“是”值=“cc”>
.cc</p>
<p>
<input name="yes" type="checkbox" id="yes" value="cn">
.cn
<輸入名稱=“是”類型=“複選框”id=“是”值=“名稱”>
.名稱</p>
</形式>
<%
結束如果
%>