📄 search.asp
字号:
<html>
<head>
<title>网恋新闻搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="CSS.css">
</head>
<body bgcolor="#FFFFFF">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#000066">
<td bgcolor="#99CCCC" background="images/leftbg2_20041.gif">
<div align="center" class="unnamed1"><font color="#000000">新闻搜索结果</font></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<p align="center"> <!--#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="#000073">【<%=sss%>】</font>共有<font color="#000073">（<%=rs.recordcount%>）</font>篇文章标题符合关键词:<font color="#000073"><%=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="#000073">【<%=sss%>】</font>共有<font color="#000073">（<%=rs.recordcount%>）</font>篇文章内容符合关键词:<font color="#000073"><%=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>
<div align="center">
<table border="0" width="98%" bordercolor="#000000" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#DBDBDB" class="unnamed2">
<tr>
<td width="453" bgcolor="#000073" background="images/leftbg2_20041.gif">
<p align="center"><font color="#000000">新闻标 题</font>
</td>
<td width="160" bgcolor="#000073" background="images/leftbg2_20041.gif">
<p align="center"><font color="#000000">发表日期</font>
</td>
<td width="70" bgcolor="#000073" background="images/leftbg2_20041.gif">
<p align="center"><font color="#000000">点击数</font>
</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
%>
<tr bgcolor="#FFFFFF">
<td width="453" align="left"> <a href="<%=rs("path")%>/<%=rs("N_Fname")%>"><b>.</b><%=rs("title")%></a>
</td>
<td width="160" bgcolor="#F7F7F7" align="center"><%=rs("dateandtime")%></td>
<td width="70" align="center"><%=rs("hits")%></td>
</tr>
<% i=i+1
rs.movenext
if i=28 then exit do
loop
%>
</table>
</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>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -