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  
 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
%>

(0)

相关推荐

  • asp.net和asp下ACCESS的参数化查询

    今天我就把我用ACCESS参数化查询的一些方法和经验和大家分享 希望对大家有所启发,有写的不对的地方希望高手们多多指教 ASP.NET 用OleDbCommand的new OleDbParameter创建参数货查询 ASP用Command的CreateParameter 方法创建参数化查询 (SQL储存过程查询也是用这个方法建立的) ASP.NET C#语法 OleDbParameter parm = new OleDbParameter(Name, Type, Direction, Size,

  • asp.net用url重写URLReWriter实现任意二级域名 新

    一般用百度搜的朋友都是对这个不了解但又急需要用的,我想,再多的语言也比不过一句代码.于是我把今天帮朋友时候写的一个小例子传了上来.这个小例子的目的是实现对任意url的重写(但不包括二级域名的,有需要二级域名的也可以先了解下url重写的概念). 这个小项目的制作过程如下 1.需要对诸如http://jb51.net/viewnews/2009/3/2.html的url进行重写.将其重写为http://jb51.net/viewnews.aspx?id=2&year=2009&month=3

  • asp.net用url重写URLReWriter实现任意二级域名第1/2页

    好久没有写技术文章,如果大家看不明白,就多看几篇,汗,或者,在文章的后面回复(这是最有效的办法),我会尽力帮助大家解答疑惑. 来找这篇文章的,应该都知道什么叫二级域名吧,废话就不说了.但是讨论前,先要明白一个思想问题. 很多朋友一直考虑不清(我前几天也一直搞不明白)的问题是,我键入一个地址后,怎么这个url就被重写了? 第一步:在浏览器键入了一个地址,比如http://love.kerry.com,点回车后,都发生了什么? 为了把问题简单化,我来这样解释: 第二步:首先,键入的地址被解析,最终来

  • 查找目录下同名但不同后缀名文件的shell脚本代码

    因为后台录入的同事,上传文件的时候,给文件取了相同的名字,但不同的后缀名,由于文件路径非常深,大概十层左右,每一层又有几十个文件,所以人工找起来非常麻烦,所以写了个脚本,帮他们实现查找指定目录下所有子目录及文件,找出相同文件名,不同后缀的文件,然后,手动保留其中一个. 复制代码 代码如下: #!/bin/bash  #判断一下脚本参数的问题  if [ $# -ne 1 ];then     echo "Usage find_same.sh direcroty"     exit  f

  • python3实现域名查询和whois查询功能

    1. 域名查询 万网提供了域名查询接口,接口采用HTTP协议: 接口URL:http://panda.www.net.cn/cgi-bin/check.cgi 接口参数:area_domain,接口参数值为标准域名,例:doucube.com 调用举例: http://panda.www.net.cn/cgi-bin/check.cgi?area_domain=doucube.com 返回: <?xml version="1.0" encoding="gb2312&qu

  • asp.net用url重写URLReWriter实现任意二级域名 高级篇

    我最近写了个小例子,大家可以先看这个,里面有小例子的完整代码下载 http://www.jb51.net/article/20906.htm 好久没有写技术文章,如果大家看不明白,就多看几篇,汗,或者,在文章的后面回复(这是最有效的办法),我会尽力帮助大家解答疑惑. 来找这篇文章的,应该都知道什么叫二级域名吧,废话就不说了.但是讨论前,先要明白一个思想问题.很多朋友一直考虑不清(我前几天也一直搞不明白)的问题是,我键入一个地址后,怎么这个url就被重写了?第一步:在浏览器键入了一个地址,比如ht

  • ASP下经常用的字符串等函数参考资料

    参考资料之ASP函数  整理下asp下常用的字符串,数据等操作函数,大家在平时操作中也经常遇到的 1.函数 array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: 结果: i 被赋予为数组 2.函数 Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量 例子:   结果: 236 函数Cint()

  • 域名和cookie问题(域名后缀)

    域名和cookie 偶然想到一个问题:www.g.cn能把cookie设置为.g.cn,那么www.com.cn能设置把cookie设置为.com.cn吗? 试验结果:不能.因为浏览器知道www.com.cn的后缀是.com.cn而不是.cn,所以禁止设置cookie. 因为浏览器内置了域名后缀列表.todo:如果以后出现新的后缀,而老浏览器没法更新列表,岂不是会允许设置cookie? extension后缀 一级域名 二级域名 www.g.cn .cn g.cn *.g.cn www.com.

  • ASP下通过Adodb.Stream实现多线程下载大文件

    有个朋友 做 某种小众音乐交换站的(他们那个行业的昵图网),需要用到付费下载.尝试过 防盗链,不太理想,最终使用了 Adodb.Stream 读取,直接输出. 解决了 盗版的问题,但是新的问题又来了.Adodb.Stream 这种方式 电脑还好说,大部分电脑浏览器都支持.移动端 很多 浏览器为了 加速读取,会多线程下载导致 文件无法正常读取. 抓包,发现增加了 HTTP头 HTTP_RANGE.隐约记得 之前读过 王大(王洪影)的 <深入解析 ASP核心技术>当中提到ASP多线程下载的问题,回

  • php实现12306火车票余票查询和价格查询(12306火车票查询)

    name.php 复制代码 代码如下: <?phpreturn array(        "北京北" => "VAP",        "北京东" => "BOP",        "北京" => "BJP",        "北京南" => "VNP",        "北京西" => &

随机推荐