一搜图片搜索小偷
ASP编程 2016-10-14
复制代码 代码如下:
<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>
