一搜图片搜索小偷

224 阅读 0 评论 148 点赞

我是靠谱客的博主大意歌曲，最近开发中收集的这篇文章主要介绍一搜图片搜索小偷，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

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