一搜图片搜索小偷

(编辑：jimmy 日期: 2024/12/26 浏览：3 次 )

复制代码代码如下:
<script type="text/javascript" language="JavaScript">
</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="/UploadFiles/2021-04-02/logos.gif">        <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>

上一篇：小偷，采集程序常用函数
下一篇：采集原理---采集技术篇---XMLHTTP