📄 search.asp
字号:
<!--#include file="head.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天荣现代农业股份有限公司</title>
<link href="css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="20"> </td>
<td width="529" valign="top">您的位置：<a href="">首页</a>-
<%sss=request("sss")%> <span class="unnamed1"><%=sss%>结果</span></td>
<td width="20"> </td>
<td rowspan="3" align="right" valign="top"> <table width="161" border="0" cellpadding="3" cellspacing="1" bgcolor="#6687BA">
<tr>
<td width="161" height="20" background="images/bg11.gif"> <div align="center">站
内 搜 索</div></td>
</tr>
<tr>
<td bgcolor="#F2F4F9"> <form name="searchtitle" onsubmit="if(searchtitle.ttt.value.length<1){alert('搜索关键字不能为空！：）');return(false)}else{return(true)}" method="POST" action="search.asp" target="_blank">
<div align="center">
<input name="ttt" type="text" class="unnamed5" style="FONT-SIZE: 9pt" onfocusin='vbscript:searchtitle.ttt.value=""' value="请输入关键字" size="16">
<br>
<select class="unnamed5" name="sss" size="1" style="FONT-SIZE: 9pt">
<option selected>按新闻标题搜索</option>
<option>按新闻内容搜索</option>
</select>
<br>
<input type="submit" name="Submit" value="搜 索" class="unnamed5" style="FONT-SIZE: 9pt">
<input type="reset" name="Submit2" value="取 消" class="unnamed5" style="FONT-SIZE: 9pt">
</div>
</form></td>
</tr>
<tr>
<td height="20" background="images/bg11.gif"> <div align="center">推
荐 信 息</div></td>
</tr>
<tr>
<td height="10" bgcolor="#F2F4F9"><script language="javascript" src="tjnews1.asp?tjnews=1"></script></td>
</tr>
<tr>
<td height="20" background="images/bg11.gif"> <div align="center">本
周 热 点</div></td>
</tr>
<tr>
<td height="9" bgcolor="#F2F4F9"><script language="javascript" src="week1.asp?week1=2"></script></td>
</tr>
<tr>
<td height="10" bgcolor="#F2F4F9"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td valign="top"><p align="center"><br>
<!--#include file="articleconn.asp"-->
<!--#include file="chkstr.inc"-->
<%
mmm=request("mmm")
if mmm="" then mmm=0
sss=request("sss")
ttt=request("ttt")
ttt=LTRIM(RTRIM(ttt))
if sss="按新闻标题搜索" then
set rs=server.createobject("adodb.recordset")
sql ="select * from article where (title like '%"&checkStr(ttt)&"%') order by dateandtime Desc"
rs.open sql,conn,1,1%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="100%"> <p align="center">共有（<font color="#FF0000"><%=rs.recordcount%></font>）篇文章标题符合关键词:<font color="#FF0000"><%=ttt%></font> </td>
</tr>
</table>
</center>
</div>
<% end if
if sss="按新闻内容搜索" then
set rs=server.createobject("adodb.recordset")
sql ="select * from article where (content like '%"&checkStr(ttt)&"%') order by dateandtime Desc"
rs.open sql,conn,1,1%> <div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="100%"> <p align="center">共有（<font color="#FF0000"><%=rs.recordcount%></font>）篇文章内容符合关键词:<font color="#FF0000"><%=ttt%></font> </td>
</tr>
</table>
</center>
</div>
<% end if %> <% if rs.eof and rs.bof then
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if
i=0 %> <br> <table width="98%" border="0" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#666666" class="unnamed2">
<tr>
<td width="453" background="images/bg10.gif"> <p align="center">标 题
</td>
<td width="160" background="images/bg10.gif"> <p align="center">加入日期
</td>
<td width="70" background="images/bg10.gif"> <p align="center">点击数 </td>
</tr>
<td width="453"><form method=Post action="search.asp">
<%
if mmm<>0 then
for iisf=1 to mmm *28
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof
%>
</form>
<tr>
<td width="453" align="left" bgcolor="#FFFFFF"> <a href="<%=rs("path")%>/<%=rs("N_Fname")%>">★ <%=rs("title")%></a> </td>
<td width="160" bgcolor="#F7F7F7" align="center"><%=rs("dateandtime")%></td>
<td width="70" align="center" bgcolor="#F7F7F7"><%=rs("hits")%></td>
</tr>
<% i=i+1
rs.movenext
if i=28 then exit do
loop
%>
<td width="453"><form method=Post action="search.asp">
</form>
</table>
<div align="center"></div>
<p align="center"> <span class="unnamed1">
<!--上页-->
<%if mmm<>0 then%>
<%="<a href=search.asp?mmm=" & mmm-1 & "&sss=" & sss & "&ttt=" & ttt & ">上页</a>"%>
<%end if%>
<!--下页-->
<%if not rs.eof then%>
<%="<a href=search.asp?mmm=" & mmm+1 & "&sss=" & sss & "&ttt=" & ttt & ">下页</a>"%>
<%end if%>
</span></p>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing %> <p align="center">
<%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td valign="top"> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<!--#include file="topy.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -