一搜图片搜索小偷

代码如下:

<script type="text/javascript" language="JavaScript">
<!--
if (top.location !== self.location) {
 top.location = self.location + "&source=iframe_" + escape(document.referrer);
}
function set_focus() {this.document.search.p.focus();}
function od( aobj )
{
try
{
var width = 460
var height = 500;
var left = ( screen.width - width ) / 2;
var top = ( screen.height - height ) / 2;
var href = aobj.href;
var param = 'resizable=0, scrollbars=0, width=' + width + ', height=' + height + ', left=' + left +
'; top=' + top;
window.open( href, '_blank', param );
}
catch( e )
{

}
return false;
}
function slide_2003a05_02(url) {
window.open(url,'帮助','top=0,left=0,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,width=450,height=500,top=10,left=10');}
function verify_input(form) {
 if (form.p.value == "") {
 alert("请输入搜索关键字!");
 return false;
 } else {
 return true;
 }
}
function get_lang(form,name) {
 if (name == "chn") {
 form.lang.value = "chn";
 }
 else {
 form.lang.value = "en";
 }
 form.submit();
 return false;
}
function dtlpost( i )
{
 dtlpostfrm.action += "&sel=" + i;
 dtlpostfrm.sel.value = i;
 dtlpostfrm.submit();
 return false;
}
function popupwap( aobj )
{
 try
 {
 var width = 520
 var height = 370;
 var left = ( screen.width - width ) / 2;
 var top = ( screen.height - height ) / 2;
 var href = aobj;
 var param = 'resizable=0, scrollbars=0, width='
 + width + ', height=' + height + ', left='
 + left + '; top=' + top;
 window.open( href, '_blank', param );
 }
 catch( e )
 {

}
 return false;
}
function popupshop( aobj )
{
 try
 {
 var width = 820
 var height = 570;
 var left = ( screen.width - width ) / 2;
 var top = ( screen.height - height ) / 2;
 var href = aobj;
 var param = 'resizable=1, scrollbars=1, width='
 + width + ', height=' + height + ', left='
 + left + '; top=' + top;
 window.open( href, '_blank', param );
 }
 catch( e )
 {

}
 return false;
}
function submitbtm(pid)
{
 try
 {
 var href = "?p=" + document.bottom.p.value
 + "\x26source=ysearch_img_result_bottomsearch"
 + "\x26chnTotal=-1\x26enTotal=-1\x26pid=" + pid;
 if (document.search.lang.checked) {
 href += "\x26lang=trans";
 }
 document.location.href = href;
 }
 catch( e )
 {

}
 return false;
}
function clk(el,ct,cd) {
 var newurl;
 if (document.images){
 newurl = "http://cn.wrs.yahoo.com/search/yisou/"+escape(ct)+"/"+1 +"/"+escape(cd)+"/"+'2005'+"/" + "*" + "http://cn.wrs.yahoo.com/clk.gif";
 (new Image()).src=newurl;
 }
 return true;
}
 function open_wl_win(href) {
 var width = 600;
 var height = 680;
 var left = ( screen.width - width ) / 2;
 var top = 10;
 var param = 'resizable=0, scrollbars=1, width='
 + width + ', height=' + height + ', left='
 + left + '; top=' + top;
 window.open( href, '_blank', param );
 }
--></script>
</head>

<body oncontextmenu="return false" onselectstart="return false" oncopy="return false" topmargin="0" leftmargin="0">
<BASE onmouseover="window.status='浏阳网店联盟－图片搜索－没有搜不到的图片';return true">

<table width="782" border="0" align="center" id="table1" height="82">
    <tr>
      <td width="776" valign="top" colspan="2"><p align="center">      </td>
    </tr>
    <form name="search" method="get" action="pic.asp">
    <tr background="images/Top_7.gif">
    <td width="163" rowspan="3" valign="top">
        <img border="0" src="http://www.lenoxo.com/index/logos.gif" width="157" height="64"></td>
        <td width="609">
        <p align="center">
    <p>图片搜索：
      <input type="text" name="p" size="30" value="<%=request("p")%>"><span lang="en-us">  
       <input type="hidden" name="source" value="ysearch_img_hp_search" > <input type="hidden" name="pid" value=""> 
       <input type="hidden" name="mip" value="all" >
       <input type="hidden" name="miw" value="all" >
       <input type="hidden" name="chntotal" value="-1" >
       <input type="hidden" name="entotal" value="-1" >
    </span><input type="submit" value="搜 索" name="B1">  
    <input type="reset" value="重 置" name="B2">  
</p></td>

</tr>
    <tr>
    <td ></td>

</tr>
    <tr>
        <td width="609" bgcolor="#F4FEFF">
        <a href="http://www.lenoxo.com/index.asp">网站首页</a>  
        <a href="http://www.lenoxo.com/main.htm">搜索首页</a>   图片  
        <font color="#FF0000"><a href="http://www.lenoxo.com/mp3.htm">音乐</a></font>  
        <a href="http://www.lenoxo.com/newso.asp">新闻</a>  
        <a href="http://www.lenoxo.com/word.htm">文档</a> 
        <a href="http://www.lenoxo.com/ring.htm">铃声</a>  
        <a href="http://www.lenoxo.com/yp.asp">黄页</a>
        <a href="http://www.lenoxo.com/hangye/">行业</a> 
        <a href="http://www.lenoxo.com/login.asp">购物</a>  
        <a href="http://www.lenoxo.com/more.htm">更多</a></td>

</tr>
    </form>
</table>
<%

Dim URL,Update,startimer,endtimer,overdate
Url = "http://image.yahoo.com.cn/search?source=ysearch_img_result_topsearch&mip=all&miw=all&p="&request("p")&"&chntotal="&request("chntotal")&"&entotal="&request("entotal")&"&pid="&request("pid")&"&lang=chn&b="&request("b")&""
Const adTypeText = 2

Update=GetURL(URL)
overdate=bytes2bstr2(Update)
first=instr(overdate,"<table width=""98%"" border=""0"" align=""center"" cellpadding=""6"" cellspacing=""0"">")
if first=0 then%>没有找到你想要的图片<%
else
betw=instr(overdate,"下一页>>")-first+5
overdate = Mid(overdate,first,betw)
overdate=replace(overdate,"search?","pic.asp?")
overdate=replace(overdate,"searchdtl_v3.html?","http://image.yahoo.com.cn/searchdtl_v3.html?")
overdate=replace(overdate,"searcheml.html?","http://image.yahoo.com.cn/searcheml.html?")
Response.Write overdate
end if

' 获取远程HTML
Function GetURL(url)
    Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
    With Retrieval
        .Open "get", url, False
        .Send
        GetURL = .responsebody
    End With 
    Set Retrieval = Nothing 
End Function

Function Bytes2bStr2(vin)
 Dim BytesStream,StringReturn

Set BytesStream = Server.CreateObject("ADODB.Stream")
 With BytesStream
  .Type = adTypeText   
  .Open               
  .WriteText vin

.Position = 0

.Charset = "GB2312"       
  .Position = 2             
  StringReturn = .ReadText 
  .close                    
 End With
 Set BytesStream = Nothing  
 Bytes2bStr2 = StringReturn
End Function
Function bytes2bstr1(vin) 
 strreturn = "" 
 For i = 1 To lenb(vin) 
 thischarcode = ascb(midb(vin,i,1)) 
 If thischarcode < &h80 Then 
  strreturn = strreturn & chr(thischarcode) 
 Else 
  nextcharcode = ascb(midb(vin,i+1,1)) 
  strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) 
  i = i + 1 
 End If 
 Next 
 bytes2bstr1 = strreturn 
End Function 
%>
</body>
</html>

赞 (0)

相关推荐

  • 一搜图片搜索小偷

    复制代码 代码如下: <script type="text/javascript" language="JavaScript"> <!-- if (top.location !== self.location) {  top.location = self.location + "&source=iframe_" + escape(document.referrer); } function set_focus() {t

  • PHP抓取淘宝商品的用户晒单评论+图片+搜索商品列表实例

    PHP抓取淘宝商品的用户晒单评论+图片+搜索商品列表实例

    说起来做这个功能还真是一时好奇.前段时间在做一个淘客网站的时候,想到是否能抓取到淘宝商品的买家秀呢?经过一番折腾发现,淘宝商品用户评价信息是通过Ajax来调取的,通过嗅探网址发现,评论数据的请求接口是: https://rate.tmall.com/list_detail_rate.htm?itemId=524394294771&spuId=341564036&sellerId=100414600&order=3&currentPage=1&append=0&

  • 利用Python实现简单的相似图片搜索的教程

    利用Python实现简单的相似图片搜索的教程

    大概五年前吧,我那时还在为一家约会网站做开发工作.他们是早期创业公司,但他们也开始拥有了一些稳定用户量.不像其他约会网站,这家公司向来以洁身自好为主要市场形象.它不是一个供你鬼混的网站--是让你能找到忠实伴侣的地方. 由于投入了数以百万计的风险资本(在US大萧条之前),他们关于真爱并找寻灵魂伴侣的在线广告势如破竹.Forbes(福布斯,美国著名财经杂志)采访了他们.全国性电视节目也对他们进行了专访.早期的成功促成了事业起步时让人垂涎的指数级增长现象--他们的用户数量以每月加倍的速度增长.对他们而

  • Python通过PIL获取图片主要颜色并和颜色库进行对比的方法

    本文实例讲述了Python通过PIL获取图片主要颜色并和颜色库进行对比的方法.分享给大家供大家参考.具体分析如下: 这段代码主要用来从图片提取其主要颜色,类似Goolge和Baidu的图片搜索时可以指定按照颜色搜索,所以我们先需要将每张图片的主要颜色提取出来,然后将颜色划分到与其最接近的颜色段上,然后就可以按照颜色搜索了. 在使用google或者baidu搜图的时候会发现有一个图片颜色选项,感觉非常有意思,有人可能会想这肯定是人为的去划分的,呵呵,有这种可能,但是估计人会累死,开个玩笑,当然是通

  • jquery.lazyload 实现图片延迟加载jquery插件

    什么是ImageLazyLoad技术 在页面上图片比较多的时候,打开一张页面必然引起与服务器大数据量的交互.尤其是对于高清晰的图片,占的几M的空间.ImageLazyLoad技术就是,当前可见界面的图片是加载进来的,而不可见页面(通过滚动条下拉可见)中的图片是不加载的,这样势必会引起速度上质的提升. 怎么实现ImageLazyLoad 一.使用JQuery插件 ,插件名: jquery.lazyload(7kb大小),压缩后(3kb大小) 在线压缩js http://closure-compil

  • Google AJAX 搜索 API实现代码

    Google AJAX 搜索 API文档:http://code.google.com/intl/zh-CN/apis/websearch/docs/ 复制代码 代码如下: <!DOCTYPE html> <html> <head> <title>Google AJAX 搜索 API</title> <style type="text/css"> #searchcontrol .gsc-control { widt

  • JavaScript模仿Pinterest实现图片预加载功能

    JavaScript模仿Pinterest实现图片预加载功能

    前言 对于Pinterest网站,从前端设计出发的话,我们一定不会忘记我们曾经非常流行的瀑布流布局.但是今天,给大家简要分析下 Pinterest上另外一项非常值得借鉴图片加载细节. 看看下面的截图: 大家可以感觉到图片出来的时候预先绘制轮廓,重点是预制区域的颜色采用与图片较为相似的色彩值,当图片加载完全后,会有种渐入的效果. 其中谷歌的图片搜索也用到了类似效果: 我们称之为这种效果为Color Placeholder [色彩预置],当图片加载的时候,我们优先显示其所在容器的背景颜色(如同很多会

  • Python爬虫实现百度图片自动下载

    Python爬虫实现百度图片自动下载

    制作爬虫的步骤 制作一个爬虫一般分以下几个步骤: 分析需求分析网页源代码,配合开发者工具编写正则表达式或者XPath表达式正式编写 python 爬虫代码 效果预览 运行效果如下: 存放图片的文件夹: 需求分析 我们的爬虫至少要实现两个功能:一是搜索图片,二是自动下载. 搜索图片:最容易想到的是爬百度图片的结果,我们就上百度图片看看: 随便搜索几个关键字,可以看到已经搜索出来很多张图片: 分析网页 我们点击右键,查看源代码: 打开源代码之后,发现一堆源代码比较难找出我们想要的资源. 这个时候,就

  • Java实现爬取百度图片的方法分析

    本文实例讲述了Java实现爬取百度图片的方法.分享给大家供大家参考,具体如下: 在以往用java来处理解析HTML文档或者片段时,我们通常会采用htmlparser(http://htmlparser.sourceforge.net/)这个开源类库.现在我们有了JSOUP,以后的处理HTML的内容只需要使用JSOUP就已经足够了,JSOUP有更快的更新,更方便的API等. jsoup 是一款 Java 的HTML 解析器,可直接解析某个URL地址.HTML文本内容.它提供了一套非常省力的API,

  • opencv转换颜色空间更改图片背景

    本文实例为大家分享了opencv转换颜色空间更改图片背景的具体代码,供大家参考,具体内容如下 思路: 1.将BGR转换为HSV颜色空间 2.设置掩模 3.位运算 这里以更改摩托罗拉logo背景为例,图片在必应图片搜索得知,具体代码如下: import numpy as np import cv2 from imageio import imread import matplotlib.pyplot as plt def show(img,winname = "img"): cv2.na

随机推荐