一搜图片搜索小偷
程序员文章站
2022-04-14 18:51:05
复制代码 代码如下:
<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=-1\x26entotal=-1\x26pid=" + 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>
复制代码 代码如下:
<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=-1\x26entotal=-1\x26pid=" + 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>
下一篇： 笔记-迎难而上之Java基础进阶-终