📄 index.asp
字号:
<%Function bytes2BSTR(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
bytes2BSTR = strReturn
End Function
dim Sword,page,Url,SourceCode
dim betw,first
Sword=trim(Request("word"))
if Sword="" then
sword="美女"
end if
if Request("beg")="" then
page=1
else
page=Request("beg")
end if
Url = "http://img.zhongsou.com/zsimg.cgi?word="&Sword&"&beg="&page
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)
if instr(SourceCode,"找到0条结果")=0 then
betw=instr(SourceCode,"<td width=13 nowrap>")-instr(SourceCode,"</td></tr><tr><td align=right valign=top><br></td></tr></table>")
first=instr(SourceCode,"<td width=13 nowrap>")
SourceCode = Mid(SourceCode,first,abs(betw))
tt1=split(SourceCode,"<table width=100% cellpadding=5 cellspacing=0><tr bgcolor=#F7F7F7>")
Setop = "图片"&Mid(tt1(0),instr(tt1(0),"找到"),abs(instr(tt1(0),"找到")-instr(tt1(0),"秒")))&"秒"
for i=1 to ubound(tt1)
SeCondent = SeCondent&"<table width=100% cellpadding=5 cellspacing=0><tr bgcolor=#F7F7F7>"&left(tt1(i),instr(tt1(i),"</table>")-1)&"</table>"
next
betw=instr(tt1(ubound(tt1)),"<td nowrap align=center height=40>")-instr(SourceCode,"</td></tr><")
first=instr(tt1(ubound(tt1)),"<td nowrap align=center height=40>")
SeEnd="<table cellpadding=0 cellspacing=0 width=100%"&"><tr align=center>"&replace(replace(replace(Mid(tt1(ubound(tt1)),first,abs(betw)),"</td></tr>",""),"</table>",""),"zsimg.cgi","index.asp")&"</td></tr></table>"
else
SeCondent="<br><table width=100% border=0 id=table1><tr><td vAlign=top colSpan=2 style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt>未找到相关结果，建议您:</font></td><td vAlign=top rowSpan=2 style=font-size: 9pt; line-height: 18px> </td></tr><tr><td width=100 style=font-size: 9pt; line-height: 18px> </td><td vAlign=top width=70% style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt><ol><li>检查输入文字有无错误，或换用更少的文字查询。<br><br></li><li>或者您输入的文字不符合规定,请选择其它。 </li></ol></font></td></tr></table></br>"
end if%>
<html>
<head>
<META content="娱乐爽,亲亲变态,QQBT搜索,QQ,美女,电影,mp3,BT,下载,性爱,免费电影,六合彩,音乐,裸体,FLASH,小说,成人,游戏,泡泡堂,图,图片,性,手机,电影下载,成人文学,人体艺术,成人用品,CS,性感,传奇私服,写真,影视,游戏下载,BT下载" name=keywords>
<META content="图片搜索，彩信下载，www.ie86.com" name=description>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片搜索：<%=Sword%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" src="http://c09.caishow.com/cooperation/funcode/sendpicjs.asp?f=1921"></script>
<script language=javascript>
<!--
function PrintBody(baseurl, imageurl, webid, a_target, img, width, height, size, text)
{
document.write('<td nowrap width=25% align=center valign=bottom>');
document.write('<a href="index2.asp?f=' + baseurl + '&u=' + imageurl + '&webid=' + webid + '"' + a_target + '><img src="' + img + '" border=0></a><br>');
document.write(width + 'x' + height + ' ' + size + 'k<br>');
document.write('<font color=#1466B2><a href="index2.asp?f=' + baseurl + '&u=' + imageurl + '"' + a_target + '>' + text +'</a><br></font>');
return false;
}
-->
</script>
<body topmargin="0" leftmargin="0">
<table style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="22" cellPadding="0" width="100%" border="0" bgcolor="#F0F0F0">
<tbody>
<form action="index.asp" method=get name=wrsearch><tr>
<td height="20"><p><img src= http://un.baidu.com/images/st.gif?tn=ie86 width=0 height=0> </p>
<p align="center"><font size="5"> <font color="#FF0000">图片搜索,支持彩信下载!(鼠标放到图片上,点 发送此图片到手机) </font></font>
<input size="20" name="word" value="<%=Sword%>">
<input type="submit" value="图片搜索" align="absMiddle" border="0">
</td>
</p></td>
</tr>
</form>
</tbody>
</table>
<table style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="181" cellSpacing="8" cellPadding="2" width="100%" border="0">
<tbody>
<tr>
<td vAlign="top" height="250" width=70%>
<p><!-- wrsearch --> <%=Setop%>
<table cellspacing=10 cellpadding=0 border=0 width=100%>
<tr><td background=images/result_line.gif><spacer type=block height=1></table>
<%=SeCondent%>
<br><table cellspacing=10 cellpadding=0 border=0 width=100%>
<tr><td background=images/result_line.gif><spacer type=block height=1></table>
<%=SeEnd%><!-- wrsearchover -->
</td>
</tr>
</tbody>
</table>
</body>
<script src="http://wxwz.free.nnsol.com/tj/mystat.asp?style=no"></script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -