您现在的位置:计算机技术学习网 > 技术中心 > WEB编程 > ASP >

构建你的网站新闻自动发布系统之七

来源:未知 责任编辑:智问网络 发表时间:2013-10-22 19:23 点击:
紧接上节,我们的新闻系统已能完成日常的新闻在线添加,删除等的功能,但这
还是不足够的,有的用户可能需要查找一下过往某一专题内容的相关新闻条目,而一
个比教完善的新闻系统,当然少不免也的完成这个功能。   
  现在马上就为我们的新闻系统添加上(全文/标题)的检索功能吧,首先我们做
一个检索表单,见下面的HTML代码,把这些代码放在需要新闻检索的web页面上。就
可以供用户方便地完成新闻搜寻。   
《form method="POST" action="http://XXX..com.cn/cgi-
win/search/search.asp"》   
《p》《select name="select" size="1"》   
《option selected value="search_1"》新闻检索(标题)《/option》   
《option value="search_2"》新闻检索(全文)《/option》   
《/select》《input type="text" name="key" size="20"》《input
type="submit" value="搜 索"   
name="search"》《/p》   
《/form》   
在这个FORM的基础添加上处理搜寻的ASP程序search.asp。在表单用我们用key这个
参数来指示出需要匹配的字串,而select参数指定是基于全文搜索还是标题搜
索。   
  现在进入程序处理部份,看看我们的search.asp程序。   
*search.asp   
《% @language="vbscript" %》   
《%   
if request.form("key")="" then   
response.redirect "/"   
end if     
select case request.form("select")   
case "search_1"   
%》   
《!--#include Virtual="/cgi-win/search/news/data.inc"--》   
《%   
  Set rs_1 = Server.CreateObject("ADODB.Recordset")   
  sql="select * from data where instr(news_title,"&request.form
("key")&")》0"   
  sql=sql+" Order by news_id Desc,news_class ASC"   
  rs_1.open sql,conn_1,3,2   
case "search_2"   
%》   
《!--#include Virtual="/cgi-win/search/news/data.inc"--》   
《%   
  Set rs_1 = Server.CreateObject("ADODB.Recordset")   
  sql="select * from data where instr(news_comment,"&request.form
("key")&")》0"   
  sql=sql+" Order by news_id Desc,news_class ASC"   
  rs_1.open sql,conn_1,3,2   
end select   
if rs_1.bof then   
response.redirect "/"   
response.end   
end if   
rs_1.movefirst   
dispmess="《table border=0 width=100% cellpadding=0 cellspacing=0
class=a9》"   
disp=""   
do while not rs_1.eof   
if not rs_1.eof then   
disp=disp&"《tr》《td》《a href=http://www.aaaaa.com.cn/news/read.asp?
news_id="&rs_1("news_id")&" target=_blank》》》"&rs_1("news_title")
&"《font size=1》("&rs_1("news_month")&"-"&rs_1("news_day")&")
《/font》《/a》《/td》《/tr》《/p》"   
rs_1.movenext   
end if   
loop   
dispmess=dispmess&disp   
  
    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    推荐热点

    • WAP常见问题问答大全(四)
    • ASP开发必备:WEB打印代码大全
    • ASP调用系统ping命令
    • asp缓存技术
    • ASP教程:第三篇 ASP基础
    • 用ASP+XML打造留言本(4)
    • 关于ASP Recordset 分页出现负数解决方法及建议
    • 用asp怎样编写文档搜索页面(5)
    • ASP处理多关键词查询实例代码
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1