当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一搜图片搜索小偷

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

ASP 中的 一搜图片搜索小偷

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-12   浏览: 77 ::
收藏到网摘: n/a

复制代码 代码如下:

<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="/upload/tech/20091012/20091012011824_b55ec28c52d5f6205684a473a2193564.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>