您的位置:首页精文荟萃软件资讯 → 构建你的网站新闻自动发布系统之四

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

时间:2004/10/7 19:04:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            紧接上节,我们的新闻系统已能完成日常的新闻在线添加,删除等的功能,但这还是不足够的,有的用户可能需要查找一下过往某一专题内容的相关新闻条目,而一个比教完善的新闻系统,当然少不免也的完成这个功能。
  现在马上就为我们的新闻系统添加上(全文/标题)的检索功能吧,首先我们做一个检索表单,见下面的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

dispmess=dispmess&"《/table》"
'dispmess="document.write('"&dispmess&"')"


%》
《%=dispmess%》
  通过传入的KEY参数和select(全文或标题检索参数),生成一条SQL查询语句,分别在标题的数据库字段或在内容的字段中查找是否包含有key的字串,如过有的话就加如我们的结果记录集,最后把新闻标题显示出来。而输出界面当然可以满足您个人的需要,自己来定制,这里不采用分页来显示了。大家可以在这个新闻发布系统的基础上,结合您本身的需要,把它设计得更为完美。
  至此,我们的这套个人网站自动新闻发布系统基本上制作完毕了。

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本