一搜图片搜索小偷

;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.h