日期:2014-05-17  浏览次数:20773 次

怎样列出相关新闻?
我在数据库设置了关键词,但用下面的代码怎么不能列出相关新闻?
<%
set   rs=server.createobject( "adodb.recordset ")
sqltext= "select   top   5   *   from   news   where   keyword   like   '% "&s_keyword& "% '   order   by   id   desc "
rs.open   sqltext,conn,1,1        
%>
<table   border= "0 "   width= "100% ">
    <%do   while   not   rs.eof%>
<tr>
<td> · <a   href=news_view.asp?nid= <%=rs( "id ")%> > <%=rs( "name ")%> </A> </td>
</tr>
<%rs.movenext  
                                loop%>
</table>

------解决方案--------------------
<%
set rs=server.createobject( "adodb.recordset ")
sqltext= "select top 5 * from news where keyword like '% "&s_keyword& "% ' order by id desc "
rs.open sqltext,conn,1,1
%>
<table border= "0 " width= "100% ">

<%
if not rs.eof then
rs.movefirst
do while not rs.eof
%>
<tr>
<td> · <a href=news_view.asp?nid= <%=rs( "id ")%> > <%=rs( "name ")%> </A> </td>
</tr>
<%
rs.movenext
loop
else
%>
<tr>
<td> 暂时没有数据。 </td>
</tr>

<%
end if
%>
</table>

------解决方案--------------------
参考一下我的
<table width= "100% " height= "24 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<%
Set rs_pre = server.CreateObject( "Adodb.recordset ")
sql_pre= "select top 4 * from news_table Where newclass = "&rs2( "newclass ")& " and id <> "&request( "id ")& " "
set rs_pre=conn.execute(sql_pre)
ij=1
do while not rs_pre.eof
if ij mod 2=1 then
%>
<tr height= "26 ">
<td width= "4% "> <div align= "center "> <img src= "images/dian2.gif " width= "5 " height= "5 "> </div> </td>
<td width= "48% "> <a href= "ReadArt.asp?id= <%=rs_pre( "id ")%> " class= "news "> <%=PerfectTitle(rs_pre( "title "),22)%> </a> </td>
<%else%>
<td width= "48% "> <a href= "ReadArt.asp?id= <%=rs_pre( "id ")%> " class= "news "> <%=PerfectTitle(rs_pre( "title "),22)%> </a> </td>
</tr>
<%
end if
ij=ij+1
rs_pre.movenext
loop
%>