新闻动态

   

您现在的位置是:首页 » 新闻动态 » 网站技术


asp显示相关文章


人气: 1892  日期: 2012-01-29  作者: 大向网络  [打印本文]

思路:首先得从该文章提取关键字(字段是tags),用英文的半角符号拆分开,在开始的时候把类似 asp教程,php教程,网站建设 这样的一个数组拆分开 就成了单独的asp教程 php教程 网站建设 再分别和数据库内的titles字段进行模糊搜索 大家在运行的时候可以试着输出下sql语句 就可以看到 类似

    Select Top 12 * from News where Titles like '%asp教程%' or Titles like '%php教程%' or Titles like '%网站建设%' and id <> 431 Order by Hits desc,ID desc 这样的一句话,效果一下就能看出来了.

<%
tags=rs_news("tags") 'tags是从当前读取的新闻信息抽出来的字段信息
TitleAbout = split(tags,",") '拆分数组
For i = 0 To ubound(TitleAbout) 
  KeyWord = KeyWord & "Titles like '%"
  KeyWord = KeyWord & TitleAbout(i)
  KeyWord = KeyWord & "%' "
   if i < ubound(TitleAbout) then '只有循环数量小于数组最大数的时候才会输出or 否则后面会出现语法错误,
   KeyWord=KeyWord & "or "        '这个判断不可少的哦 这里调试的时候没仔细看 弄了很久。
  end if
Next 


   Sql = "Select Top 12 * from News where "
   
   Sql = Sql & " " & KeyWord  '相关新闻
   
   Sql = Sql & " and id <> "& ID &" Order by Hits desc,ID  desc" 
    response.Write(sql)
 Set Rs=Server.CreateObject("ADODB.RecordSet") 
 
 Rs.open Sql,Conn,1,1
 
 if Rs.eof and Rs.bof then
  response.Write "&nbsp;"
 else
 
  do while not rs.eof 
  %>
<li >
<a href="show_<%=Rs("types")%>_<%=Rs("id")%>.html">
<%=left(Rs("Titles"),25)%><% if len(Rs("Titles"))>=25 then response.Write("...") end if%>
</a>
</li>
  
  <%
  Rs.movenext
  Loop
  
 end if
 Rs.close
 set Rs=nothing
%>



  上一篇:asp的split拆分函数使用
  下一篇:html5自带得表单验证代码 做验证再也不用那么复杂了
相关文章(Tags:asp,asp相关文章,asp相关产品,相关信息)