寫(xiě)的很簡(jiǎn)單，只是實(shí)現(xiàn)了功能

<%
Function formaturl(yes)
 If mid(yes,5,1)<>"" then
 yes1 = left(yes,3)
 yes2 = right(yes,cint(len(yes))-3)
 formaturl = yes1 & "." & yes2
 else
 formaturl=yes
 end if
End Function 
'取得遠(yuǎn)程網(wǎng)頁(yè)二進(jìn)制源代碼
Function getBoy(url)
 'on error resume next
 Set objXml = Server.CreateObject("Microsoft.XmlHttp")
 with objXml
  .open "get",url,false,"",""
  .send
  getBoy = .responsebody
 end with
 getBoy = BytesToBstr(GetBoy,"GB2312")
 Set objXml = nothing 
end function

'處理二進(jìn)制流代碼
Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = Server.CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText 
        objStream.Close
        set objStream = nothing
End Function
%>
未注冊(cè)的域名如下
<%
'www.knowsky.com如果提交了查詢
If Request.Form("yes") <> "" Then
 yes = replace(Request.Form("yes")," ","")  '去除復(fù)選框字符串中的空格
 yes = split(yes,",")  '實(shí)例化一個(gè)數(shù)組yes，將用逗號(hào)隔開(kāi)的yes數(shù)組賦值給yes新數(shù)組

 For i = 0 to ubound(yes)   '遍歷數(shù)組循環(huán)開(kāi)始
  url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
  wstr = getBoy(url)  '獲取查詢后的源代碼
  If instr(wstr,"未被注冊(cè)的域名") <> 0 Then   '判斷是否為已經(jīng)注冊(cè)的域名
   Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出未注冊(cè)的域名
  End If  
 Next
 response.Write "<p><p><p>已注冊(cè)的域名如下：<br>"
 For i = 0 to ubound(yes)   '遍歷數(shù)組循環(huán)開(kāi)始
  url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
  wstr = getBoy(url)  '獲取查詢后的源代碼
  If instr(wstr,"已被注冊(cè)的域名") <> 0 Then   '判斷是否為已經(jīng)注冊(cè)的域名
   Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出已注冊(cè)的域名
  End If  
 Next

Else 

%>
<form name="form1" method="post" action="">
  <p>
    <input name="domain" type="text" id="domain">
    <input type="submit" name="Submit" value="查詢">
  </p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="com"> 
    .com
    <input name="yes" type="checkbox" id="yes" value="net">
.net 
<input name="yes" type="checkbox" id="yes" value="org"> 
.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">
org.cn 
<input name="yes" type="checkbox" id="yes" value="govcn"> 
gov.cn </p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="info"> 
    .info
    <input name="yes" type="checkbox" id="yes" value="biz">
.biz 
<input name="yes" type="checkbox" id="yes" value="tv"> 
.tv 
<input name="yes" type="checkbox" id="yes" value="cc"> 
.cc</p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="cn"> 
    .cn 
    <input name="yes" type="checkbox" id="yes" value="name">
.name  </p>
</form>
<%
End If
%>

最新評(píng)論