📄 search.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6
💻 ASP
字号:
<!--#include file="articleconn.asp"-->                                                                     
<!--#include file="chkstr.inc"-->  
<!--#include file="const.asp"-->
<HTML><HEAD><TITLE><%=fly_user%>-热点搜索</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
 -->
</style>

<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>

<body bgcolor="#666666" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<!--#include file="main.htm"-->
<table width="762" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
    <td class="p1" align="center" height="8"> 
      <table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
        <tr> 
          <td width="275" class="p1" >&nbsp;您的位置&gt;&gt;<a href="default.asp"><%=fly_user%></a>&gt;&gt;热点搜索</td>
          <td width="347" class="p1">&nbsp;</td>
          <td width="128" class="aq"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="762" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000" align="center">
  <tr><%  
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%>  
 <% 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%> 
<% end if       
if sss="按文章作者" then
set rs=server.createobject("adodb.recordset")
sql ="select * from article where (zznews like '%"&checkStr(ttt)&"%') order by dateandtime Desc" 
rs.open sql,conn,1,1
end if
%> 
    <td bgcolor="#FFFFFF"><br>
      <table width="600" height="16" border="0" align="center" cellpadding="3" cellspacing="0" class="p1"  >
        <tr> 
                <td  class="p1"  >
            <div align="right"><font color="#FF0000">【<%=sss%>】</font>您搜索的关键字：<font color="#FF0000"><%=ttt%></font> 
              共有<%=rs.recordcount%>篇文章</div>   
          </td>
              </tr>
            </table>
			<% if rs.eof and rs.bof then  
response.write "<p align='center' class='p1' >【哎呀呀，竟然一篇也没找到：）】"
else
i=0 %> 
            
      <table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#C0C0C0"  class="p1"  >
        <tr bgcolor="eeeeee"> 
                
          <td width="19%" height="23" bgcolor="#808080"> 
            <div align="center"><font color="#FFFFFF"><b>类 别</b></font></div>
          </td>
          <td width="43%" align="center" bgcolor="#808080"> 
            <div align="center"><font color="#FFFFFF"><b>文章标题</b></font></div>
          </td>
          <td width="15%" align="center" bgcolor="#808080"> 
            <div align="center"><font color="#FFFFFF"><b>文章作者</b></font></div>
          </td>
          <td width="23%" align="center" bgcolor="#808080"> 
            <div align="center"><font color="#FFFFFF"><b>发表日期</b></font></div>
          </td>
              </tr>
              <%                       
  if mmm<>0 then                      
  	for iisf=1 to mmm *20                     
  		if rs.eof then exit for                      
  		rs.movenext                      
  	next                      
  end if                      
  do while not rs.eof                       
  %>              
              <tr> 
                <td bgcolor="#FFFFFF"> 
                  <div align="center">『 <%=rs("typename")%> 』</div></td>
                <td bgcolor="#FFFFFF">&nbsp;<a href="openarticle.asp?id=<%=rs("newsid")%>" target="_blank"><%=rs("title")%></a></td>
                <td bgcolor="#FFFFFF">&nbsp;<A 
                  href=userinfo.asp?username=<%=rs("zznews")%> 
                  target=_blank><%=rs("zznews")%></A>       </td>
                <td bgcolor="#FFFFFF">&nbsp;<%=rs("dateandtime")%></td>
              </tr>
              <% i=i+1                                                    
   rs.movenext                                                    
   if i=20 then exit do                                                    
   loop                            
%>          
            </table>
            <%end if%>
            
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="0"  class="p1" >
        <tr> 
                
                  <td height="19"> <div align="right">
                      
                       <%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%> </div></td>
                
              </tr>
            </table>
      <br>
    </td>
  </tr>
</table>
<!--#include file="mai.htm"-->
</body>
</html>
<%               
rs.close                            
set rs=nothing                            
conn.close                            
set conn=nothing %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -