【下载文档:  一搜图片搜索小偷.txt 】

---

一搜图片搜索小偷
复制代码 代码如下:

	图片搜索： ">
	网站首页 搜索首页 图片 音乐 新闻 文档 铃声 黄页 行业 购物 更多

<% 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,"") 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 %>

• 

  QQ客服

• 

  公众号

  

• 

  手机版

  

• 

  帮助中心

•