写的很简单，只是实现了功能 <% 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 Next 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("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 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 %>

　　推荐阅读

　　asp分页的一个类

asp分页的一个类 在50,000条记录下测试过，速度比ado的那个要快多了 <% '************************************************************************************ '具体用法 Dim strDbPath Dim connstr Dim mp >>>详细阅读

本文标题：asp下多个域名后缀同时查询的域名查询系统

地址：http://www.17bianji.com/kaifa2/ASP/32651.html

 1/2    1