asp相关新闻的写法

作者:admin 日期:2008-11-15

字体大小: 小中大

以前写相关新闻，都是定义标签，当两个新闻标签有相同时，我就认为是相关新闻。

后来发现一些公司请来的编辑，前台实在太傻太懒惰，几乎都不定义标签，所以相关新闻永远是空，后来突发奇想，是不是吧提交的新闻，如果标题上和以往的新闻标题有两个字连续相同，我就认为这两个新闻是相关的。于是就写了下面这么一段

<%
   biaoti=trim(rs("biaoti"))
   tlen=len(biaoti) '获取标题长度
   redim key(tlen-1) '定义数组把标题每两个字分开赋值给数组
   for i=0 to tlen-2
   key(i)=mid(rs("biaoti"),i+1,2)
   next
   m=tlen-2
   for i=0 to tlen-2
   keyword=keyword&"biaoti like '%"
   keyword=keyword&key(i)
   keyword=keyword&"%' "
   if i < m then
   keyword=keyword&"or "
   end if
   next
   set rsXG= Server.CreateObject("adodb.recordset")
   sql="select top 10 * from news where "&keyword&"   order by newsid desc"
   rsXG.open sql,conn,1,3
   while not rsXG.eof
   response.Write rsXG("biaoti")
   response.Write("<br>")
   rsXG.movenext
   wend
%>

'引用自http://hi.baidu.com/superwind/blog/item/a561d588090f4591a4c2723e.html