asp下多个域名后缀同时查找的域名查询系统

写的很简单，只是实现了功能：

<%

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 

'取得远程网页二进制源代码

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

'处理二进制流代码

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

%>

未注册的域名如下

<%

'www.knowsky.com如果提交了查询

If Request.Form("yes") <> "" Then

 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("domain")&"&ext="&yes(i)

  wstr = getBoy(url)  '获取查询后的源代码

  If instr(wstr,"未被注册的域名") <> 0 Then   '判断是否为已经注册的域名

   Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>"  '列出未注册的域名

  End If  

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!