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

ASP 21NN 2年前 (2018-05-24) 55次浏览 已收录 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》”

12下一页


本文:构建你的网站新闻自动发布系统之四 本文链接:https://www.21nn.cn/biancheng/asp/4258.html 本站所以图片、文章仅限用于学习和研究目的; 不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。 本站信息来自网络,版权争议与本站无关。 您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。 如有侵权请邮件与我们联系处理。i@ki4.cn
喜欢 (0)
[1353713598@qq.com]
分享 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址