主頁(yè) > 知識(shí)庫(kù) > asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)

asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)

寫的很簡(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)隔開的yes數(shù)組賦值給yes新數(shù)組

For i = 0 to ubound(yes)   '遍歷數(shù)組循環(huán)開始
  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)開始
  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
%>

標(biāo)簽：大理衢州蚌埠棗莊萍鄉(xiāng) 江蘇廣元衡水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)

QQ咨詢

電話咨詢