一搜图片搜索小偷

　　复制代码 代码如下:
<scripttype=text/javascriptlanguage=JavaScript>
<!--
if(top.location!==self.location){
top.location=self.location+&source=iframe_+escape(document.referrer);
}
functionset_focus(){this.document.search.p.focus();}
functionod(aobj)
{
try
{
varwidth=460
varheight=500;
varleft=(screen.width-width)/2;
vartop=(screen.height-height)/2;
varhref=aobj.href;
varparam=resizable=0,scrollbars=0,width=+width+,height=+height+,left=+left+
;top=+top;
window.open(href,_blank,param);
}
catch(e)
{

}
returnfalse;
}
functionslide_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);}
functionverify_input(form){
if(form.p.value==){
alert(请输入搜索关键字!);
returnfalse;
}else{
returntrue;
}
}
functionget_lang(form,name){
if(name==chn){
}
else{
form.lang.value=en;
}
form.submit();
returnfalse;
}
functiondtlpost(i)
{
dtlpostfrm.action+=&sel=+i;
dtlpostfrm.sel.value=i;
dtlpostfrm.submit();
returnfalse;
}
functionpopupwap(aobj)
{
try
{
varwidth=520
varheight=370;
varleft=(screen.width-width)/2;
vartop=(screen.height-height)/2;
varhref=aobj;
varparam=resizable=0,scrollbars=0,width=
+width+,height=+height+,left=
+left+;top=+top;
window.open(href,_blank,param);
}
catch(e)
{

}
returnfalse;
}
functionpopupshop(aobj)
{
try
{
varwidth=820
varheight=570;
varleft=(screen.width-width)/2;
vartop=(screen.height-height)/2;
varhref=aobj;
varparam=resizable=1,scrollbars=1,width=
+width+,height=+height+,left=
+left+;top=+top;
window.open(href,_blank,param);
}
catch(e)
{

}
returnfalse;
}
functionsubmitbtm(pid)
{
try
{
varhref=?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)
{

}
returnfalse;
}
functionclk(el,ct,cd){
varnewurl;
if(document.images){
newurl=
(newImage()).src=newurl;
}
returntrue;
}
functionopen_wl_win(href){
varwidth=600;
varheight=680;
varleft=(screen.width-width)/2;
vartop=10;
varparam=resizable=0,scrollbars=1,width=
+width+,height=+height+,left=
+left+;top=+top;
window.open(href,_blank,param);
}
--></script>
</head>

<bodyoncontextmenu=returnfalseonselectstart=returnfalseoncopy=returnfalsetopmargin=0leftmargin=0>
<BASEonmouseover=window.status=浏阳网店联盟－图片搜索－没有搜不到的图片;returntrue>

<tablewidth=782border=0align=centerid=table1height=82>
<tr>
<tdwidth=776valign=topcolspan=2><palign=center></td>
</tr>
<formname=searchmethod=getaction=pic.asp>
<trbackground=images/Top_7.gif>
<tdwidth=163rowspan=3valign=top>
<imgborder=0src=
<tdwidth=609>
<palign=center>
<p>图片搜索：
<inputtype=textname=psize=30value=<%=request(p)%>><spanlang=en-us>
<inputtype=hiddenname=sourcevalue=ysearch_img_hp_search><inputtype=hiddenname=pidvalue=>
<inputtype=hiddenname=mipvalue=all>
<inputtype=hiddenname=miwvalue=all>
<inputtype=hiddenname=chntotalvalue=-1>
<inputtype=hiddenname=entotalvalue=-1>
</span><inputtype=submitvalue=搜索name=B1>
<inputtype=resetvalue=重置name=B2>
</p></td>



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

</tr>
<tr>
<tdwidth=609bgcolor=#F4FEFF>
<ahref=网站首页</a>
<ahref=搜索首页</a>图片
<fontcolor=#FF0000><ahref=音乐</a></font>
<ahref=新闻</a>
<ahref=文档</a>
<ahref=铃声</a>
<ahref=黄页</a>
<ahref=行业</a>
<ahref=购物</a>
<ahref=更多</a></td>



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

DimURL,Update,startimer,endtimer,overdate
Url=
ConstadTypeText=2

Update=GetURL(URL)
overdate=bytes2bstr2(Update)
first=instr(overdate,<tablewidth=98%border=0align=centercellpadding=6cellspacing=0>)
iffirst=0then%>没有找到你想要的图片<%
else
betw=instr(overdate,下一页>>)-first+5
overdate=Mid(overdate,first,betw)
overdate=replace(overdate,search?,pic.asp?)
overdate=replace(overdate,searchdtl_v3.html?,
overdate=replace(overdate,searcheml.html?,
Response.Writeoverdate
endif

获取远程HTML
FunctionGetURL(url)
SetRetrieval=CreateObject(Microsoft.XMLHTTP)
WithRetrieval
.Openget,url,False
.Send
GetURL=.responsebody
EndWith
SetRetrieval=Nothing
EndFunction



FunctionBytes2bStr2(vin)
DimBytesStream,StringReturn

SetBytesStream=Server.CreateObject(ADODB.Stream)
WithBytesStream
.Type=adTypeText
.Open
.WriteTextvin

.Position=0

.Charset=GB2312
.Position=2
StringReturn=.ReadText
.close
EndWith
SetBytesStream=Nothing
Bytes2bStr2=StringReturn
EndFunction
Functionbytes2bstr1(vin)
strreturn=
Fori=1Tolenb(vin)
thischarcode=ascb(midb(vin,i,1))
Ifthischarcode<&h80Then
strreturn=strreturn&chr(thischarcode)
Else
nextcharcode=ascb(midb(vin,i+1,1))
strreturn=strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode))
i=i+1
EndIf
Next
bytes2bstr1=strreturn
EndFunction
%>
</body>
</html>