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">nbsp;nbsp;
       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">nbsp;nbsp;
    input type="reset" value="重 置" name="B2">nbsp; 
/p>/td>

        

    /tr>
    tr>
    td >/td>    

    /tr>
    tr>
        td width="609" bgcolor="#F4FEFF">
        a href="http://www.lenoxo.com/index.asp">网站首页/a>nbsp; 
        a href="http://www.lenoxo.com/main.htm">搜索首页/a>nbsp;nbsp; 图片nbsp; 
        font color="#FF0000">a href="http://www.lenoxo.com/mp3.htm">音乐/a>/font>nbsp; 
        a href="http://www.lenoxo.com/newso.asp">新闻/a>nbsp; 
        a href="http://www.lenoxo.com/word.htm">文档/a>nbsp;
        a href="http://www.lenoxo.com/ring.htm">铃声/a>nbsp; 
        a href="http://www.lenoxo.com/yp.asp">黄页/a>
        a href="http://www.lenoxo.com/hangye/">行业/a>nbsp;
        a href="http://www.lenoxo.com/login.asp">购物/a>nbsp; 
        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_topsearchmip=allmiw=allp="request("p")"chntotal="request("chntotal")"entotal="request("entotal")"pid="request("pid")"lang=chnb="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>