一搜图片搜索小偷

复制代码代码如下:
<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=-1x26enTotal=-1x26pid=" + 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">
       <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.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>