复制代码 代码如下:
<scripttype="text/javascript"language="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"){
form.lang.value="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="http://cn.wrs.yahoo.com/search/yisou/"+escape(ct)+"/"+1+"/"+escape(cd)+"/"+'2005'+"/"+"*"+"http://cn.wrs.yahoo.com/clk.gif";
(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="returnfalse"onselectstart="returnfalse"oncopy="returnfalse"topmargin="0"leftmargin="0">
<BASEonmouseover="window.status='浏阳网店联盟－图片搜索－没有搜不到的图片';returntrue">

<tablewidth="782"border="0"align="center"id="table1"height="82">
<tr>
<tdwidth="776"valign="top"colspan="2"><palign="center"></td>
</tr>
<formname="search"method="get"action="pic.asp">
<trbackground="images/Top_7.gif">
<tdwidth="163"rowspan="3"valign="top">
<imgborder="0"src="http://.cn/searcheml.html?")
Response.Writeoverdate
endif

'获取远程HTML
FunctionGetURL(url)
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"get",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>