⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search.asp

📁 先锋文章在线管理系统 v1.0 1.文章分页:默认一页显示10条记录
💻 ASP
字号:
<% Response.Buffer=True %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head>
<LINK rel="stylesheet" href="css/index.css" type="text/css">
<title>先锋ASP精华网——文章查询结果</title>
</head>
<script language="javascript" src="ksk-js/window.js"></script>
<!--#include file="dbconn.asp"-->
<!--#include file="inc/chkstr.inc"-->

<% dim i,sss,ttt
sss=request.form("sss")
ttt=request.form("ttt")
if sss="按文章标题" then
set rs=server.createobject("adodb.recordset")
sql ="select * from text1 where (title like '%"&checkStr(ttt)&"%') order by id Desc" 
rs.open sql,conn,1,1 %> 
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" width="500" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" background="images/t-image2.gif">
    <tr>
      <td width="100%">
        <p align="left">&nbsp;文章查询结果——<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 text1 where (zuozhe='"&checkStr(ttt)&"') order by id Desc" 
rs.open sql,conn,1,1 %> 
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" width="500" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" background="images/t-image2.gif">
    <tr>
      <td width="100%">
        <p align="left">&nbsp;文章查询结果——<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="1" width="500" bordercolor="#000000" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#DBDBDB">         
<tr>         
<td width="302" bgcolor="#000073">         
<p align="center"><font color="#FFFFFF">——文 章 标 题——</font></td>                              
<td width="99" bgcolor="#000073">                              
<p align="center"><font color="#FFFFFF">作 者</font></td>                              
<td width="86" bgcolor="#000073">                              
<p align="center"><font color="#FFFFFF">加入日期</font></td>                              
<td width="51" bgcolor="#000073">                              
<p align="center"><font color="#FFFFFF">点击数</font></td>                              
</tr>                       
<form method=Post action="search.asp">    
<% do while not rs.eof %>      
<tr>                              
<td width="302" background="images/t-image2.gif" align="left">&nbsp;<A HREF="javascript:openwin('view-text.asp?id=<%=rs("id")%>')"><%=rs("title") %></A></td>                              
<td width="99" background="images/t-image2.gif" align="center">【<A HREF="mailto:<%=rs("email")%>"><%=rs("zuozhe")%></A>】</td>                              
<td width="86" background="images/t-image2.gif" align="center"><%=rs("date")%></td>                              
<td width="51" background="images/t-image2.gif" align="center">(<font color="#0000B4"><%=rs("click")%></font>)</td>      </tr>        
<% i=i+1                             
   rs.movenext                             
   if i=999 then exit do                             
   loop     
rs.close    
set rs=nothing    
conn.close    
set conn=nothing %>                          
</table>     
    
      
      

⌨️ 快捷键说明

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