一搜图片搜索小偷_ASP教程-查字典教程网

摘要：复制代码代码如下:图片搜索：网站首页搜索首页图片音乐新闻文档铃声黄页行业购物更多没有找到你想要的图片

复制代码代码如下:

<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>

</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

bytes2bstr1=strreturn

EndFunction

</body>

</html>