复制代码 代码如下:
<scripttype="text/javascript"language="JavaScript">
<></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://www.lenoxo.com/index/logos.gif"width="157"height="64"></td>
<tdwidth="609">
<palign="center">
<p>图片搜索：
<inputtype="text"name="p"size="30"value="<%=request("p")%>"><spanlang="en-us">
<inputtype="hidden"name="source"value="ysearch_img_hp_search"><inputtype="hidden"name="pid"value="">
<inputtype="hidden"name="mip"value="all">
<inputtype="hidden"name="miw"value="all">
<inputtype="hidden"name="chntotal"value="-1">
<inputtype="hidden"name="entotal"value="-1">
</span><inputtype="submit"value="搜索"name="B1">
<inputtype="reset"value="重置"name="B2">
</p></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<tdwidth="609"bgcolor="#F4FEFF">
<ahref="http://www.lenoxo.com/index.asp">网站首页</a>
<ahref="http://www.lenoxo.com/main.htm">搜索首页</a>图片
<fontcolor="#FF0000"><ahref="http://www.lenoxo.com/mp3.htm">音乐</a></font>
<ahref="http://www.lenoxo.com/newso.asp">新闻</a>
<ahref="http://www.lenoxo.com/word.htm">文档</a>
<ahref="http://www.lenoxo.com/ring.htm">铃声</a>
<ahref="http://www.lenoxo.com/yp.asp">黄页</a>
<ahref="http://www.lenoxo.com/hangye/">行业</a>
<ahref="http://www.lenoxo.com/login.asp">购物</a>
<ahref="http://www.lenoxo.com/more.htm">更多</a></td>
</tr>
</form>
</table>
<%
DimURL,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")&""
ConstadTypeText=2
Update=GetURL(URL)
overdate=bytes2bstr2(Update)
first=instr(overdate,"<tablewidth=""98%""border=""0""align=""center""cellpadding=""6""cellspacing=""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?","http://image.yahoo.com.cn/searchdtl_v3.html?")
overdate=replace(overdate,"searcheml.html?","http://image.yahoo.com.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>