?? flash.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,ct
Sword=trim(Request("word"))
if Sword="" then
response.redirect "./"
response.end
end if
if Request("pn")="" then
page=1
else
page=Request("pn")
end if
ct=trim(Request("ct"))
if ct="" then
ct="33554432"
end if
Url = "http://www.baidu.com/f?word="&Sword&"&pn="&page&"&ct="&ct&"&tn=flash&f=8&sort=time"
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 then
betw=instr(SourceCode,"<table bgcolor=#eeeeee border=0 cellpadding=0 cellspacing=0 ")-instr(SourceCode,"</OL>")
first=instr(SourceCode,"<table bgcolor=#eeeeee border=0 cellpadding=0 cellspacing=0 ")
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"/baidu?","search.asp?")
tt1=split(SourceCode,"<br><br>")
Setop = "ASP秀搜索"&Mid(tt1(0),instr(tt1(0),"為"),abs(instr(tt1(0),"為")-instr(tt1(0),"秒")))&"秒"
SeCondent = SeCondent&replace(right(tt1(0),len(tt1(0))-instr(tt1(0),"<OL>")+1),"740","100%")&"</table></ol>"
SeEnd = "<img border=0 src=images/bz.gif width=43 height=52 align=absmiddle> "&replace(replace(tt1(1),"http://www.baidu.com/f","flash.asp"),"ct","fct")
SeEnd="<table border='0' style='border-collapse: collapse' width='100%' cellpadding='0'><tr><td width='11'><img border='0' src='images/pageleft.gif' width='11' height='56'></td><td background='images/pagebg.jpg'><b>"&SeEnd&"</b></td><td background='images/pagebg2.gif' width='52'><a href='#'><img border='0' src='images/gotop.gif' width='52' height='27'></a></td><td width='13'><img border='0' src='images/pageright.gif' width='13' height='56'></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>未找到相關(guān)結(jié)果，建議您:</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>到<a href=http://51center.com>搜索援助中心</a>尋求幫助，或?qū)W習(xí)<a href=jiqiao.html>搜索技巧</a>。 </li></ol></font></td></tr></table></br>"
end if%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<META content="ASP秀,asp秀搜索,http://www.aspshow.net,aspshow,aspshow.net" name=keywords>
<META content="ASP秀,asp秀搜索,http://www.aspshow.net,aspshow,aspshow.net" name=description>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASP秀,asp秀搜索:<%=Sword%></title>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="head.inc"-->
<table align="center" style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="22" cellPadding="0" width="750" border="0" bgcolor="#F0F0F0">
<tbody>
<form action="flash.asp" method=get name=aspshow><tr>
<td height="20"><img src= http://un.baidu.com/images/st.gif?tn=aspshow width=0 height=0>
<input class="ibox" size="70" name="word" value="<%=Sword%>"><input type="image" alt="搜" src="images/search_but.gif" align="absMiddle" border="0"> </td>
</tr>
<tr>
<td height="11">
<input type="radio" CHECKED value="33554432" name="ct">全部flash
<input type="radio" value="50331648" name="ct">作品名 <input type="radio" value="67108864" name="ct">作者名 </td>
</tr></form>
<tr>
<td height="9">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table2">
<tr bgColor="#5d90de">
<td width="20" background="result_back1.gif" bgcolor="#16A6D3">
<br>
</td>
<td vAlign="bottom" background="result_back1.gif" height="30" bgcolor="#16A6D3"><!-- search bar -->
<table cellSpacing="0" cellPadding="0" border="0" id="table3">
<tr align="middle">
<td noWrap width="90" align="center"><b><a href="search.asp?word=<%=server.urlencode(Sword)%>" class=title2>網(wǎng)頁搜索</a></b></td>
<td noWrap width="90" align="center"><b><a href="msearch.asp?word=<%=server.urlencode(Sword)%>" class=title2>音樂搜索</a></b></td>
<td width="7">
<img height="26" src="images/result_left1.gif" width="7" border="0"></td>
<td noWrap width="70" background="images/result_back2.gif">
<p align="center">
<b class="title1">動畫搜索</b></p>
</td>
<td width="7">
<img height="26" src="images/result_right1.gif" width="7" border="0"></td>
<td noWrap width="90" align="center"><b><a href="news.asp?word=<%=server.urlencode(Sword)%>" class=title2>新聞搜索</a></b></td>
<td noWrap width="90" align="center"><b><a href="pic.asp?word=<%=server.urlencode(Sword)%>" class=title2>圖片搜索</a></b></td>
</tr>
</table>
</td>
<td vAlign="top" noWrap align="right" background="result_back1.gif" height="30" bgcolor="#16A6D3">
<img height="21" src="images/result_dot1.gif" width="14" border="0">
<a class="title3" target="_blank" href="http://www.aspshow.net/forum/">登錄論壇</a> <img height="21" src="images/result_dot1.gif" width="14" border="0"><a class="title3" href="#" onClick="MM_popupMsg(' ＝＝＝廣＝告＝服＝務(wù)＝＝＝\r\r廣告聯(lián)系方式：QQ8963017 TEL：13972379802(周)\r\r ＝＝＝合＝作＝愉＝快＝＝＝')">廣告服務(wù)</a></td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<table align="center" style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="181" cellSpacing="8" cellPadding="2" width="750" border="0">
<tbody>
<tr>
<td vAlign="top" height="250" width=70%>
<p> <%=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%>
</td>
<td vAlign="top" width="30%" height="250" align="right">
<table border="0" style="border-collapse: collapse" width="200" cellpadding="0" id="table4" bgcolor="#F0F0F0" height="167">
<tr>
<td height="25">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table5">
<tr>
<td width="26">
<img height="25" src="images/index_left5.gif" width="30" border="0"></td>
<td class="p6" vAlign="bottom" width="100%" background="images/index_back5.gif">
<font color="#5c5c5c"><b>推薦網(wǎng)站</b></font></td>
<td width="12">
<img height="25" src="images/index_right5.gif" width="13" border="0"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td><!--#include file="webtj.inc"--> </td>
</tr>
<tr>
<td><!--#include file="ad.inc"--> </td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<!--#include file="bottom.inc"-->
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -