<% option explicit %> <% dim sort,key,str,color color=1 sort=request("sort") key=trim(request("key")) if sort<>"topic" and sort<>"content" then sort="topic" end if dim curpage,i,page dim rs,sql if session("purview")>"99997" then '管理员和审核员可以列出全部文章 if key="" then '如果搜索关键词为空则列出全部文章 set rs=server.createobject("adodb.recordset") rs.open "select * from news order by ntime DESC",conn,1,1 str="列出全部文章" else if sort="topic" then '按文章标题查找 set rs=server.createobject("adodb.recordset") rs.open "select * from news where topic like '%" & key & "%' order by ntime DESC",conn,1,1 str="按文章标题查找" end if if sort="content" then '按文章标题查找 set rs=server.createobject("adodb.recordset") rs.open "select * from news where content like '%" & key & "%' order by ntime DESC",conn,1,1 str="按文章内容查找" end if end if else '一般用户只能列出通过审核的文章 if key="" then '如果搜索关键词为空则列出全部文章 set rs=server.createobject("adodb.recordset") rs.open "select * from news where audit=1 order by ntime DESC",conn,1,1 str="列出全部文章" else if sort="topic" then '按文章标题查找 set rs=server.createobject("adodb.recordset") rs.open "select * from news where audit=1 and topic like '%" & key & "%' order by ntime DESC",conn,1,1 str="按文章标题查找" end if if sort="content" then '按文章标题查找 set rs=server.createobject("adodb.recordset") rs.open "select * from news where audit=1 and content like '%" & key & "%' order by ntime DESC",conn,1,1 str="按文章内容查找" end if end if end if 'if session("purview")>"99997" if err.number <> 0 then response.write "数据库出错" else %> 文章搜索-----武汉大学生联盟新闻中心 <% if rs.bof and rs.eof then rs.close response.write "没有找到符合条件的文章!!" else %>
查询类型: <%=str%><% if key<>"" then response.write "    查询关键字: " & key & "" end if %>    查询结果:共有 <%=rs.recordcount%> 条文章符合查询条件
<% if request("page")="" then curpage=1 else curpage=cint(request("page")) end if rs.pagesize=20 '******************设置每页显示文章数目*********************** rs.absolutepage=curpage for i = 1 to rs.pagesize %> <% rs.movenext color=color+1 if rs.eof then i = i + 1 exit for end if next %>
---------- 文 章 标 题 ----------
----- 加 入 时 间 -----
浏览次数
">" target=_blank><%=trim(rs("topic"))%> ">
<%=rs("ntime")%>
 ">
<%=rs("hits")%>
<% response.write "
" response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 " response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 " if curpage = 1 then response.write "首页 前页 " else response.write "首页 前页 " end if if curpage = rs.pagecount then response.write "后页 末页" else response.write "后页 末页" end if end if end if 'rs.close set rs=nothing %>



继续查询:
查询关键字:
查询类型: