主题:  新闻显示的问题

林易
职务：普通成员
等级：3
金币：1.0
发贴：750
#12004/8/21 11:02:33
看到5d站的新闻显示的时候最后发的几个带了new这样的小图标，而紧接的几个没有了new图标。
可以通过top3等来显示最上面，接下来的记录怎么产生，我实在不懂望提示一二，谢谢



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
#22004/8/21 11:38:18
1.如果是前三条显示new.只要在循环记录的时候定义一个递增的变量,初始值是1.然后在这个变量<=3的时候显示new



2.如果是根据时间来判断,查找一下VBScript中DateDiff函数



林易
职务：普通成员
等级：3
金币：1.0
发贴：750
#32004/8/21 11:59:03
先谢谢您了，感谢您多次帮助：）
我用了个笨办法，理论上可以过去，但是仍然有问题，
现在表里面有9个记录，我先top 5在move5后只显示了7个记录
代码如下
<!--#include file="conn.asp"-->
<%
set hrs=server.CreateObject("ADODB.RecordSet") 
hrs.Source="select  top 5 * from News where  SmallClassID=17 order by NewsID DESC"  
hrs.Open hrs.Source,conn,1,1 
if hrs.bof and hrs.eof then
response.write"没有记录！"
else
do while not hrs.eof
%>
<table width="349" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><% Response.write "<a title=" & trim(hrs("Title")) & " href=ReadNews.asp?NewsID=" & hrs("NewsID") &  "&BigClassID=" & hrs("BigClassId") & "&SmallClassID=" & hrs("SmallClassID") & " target=_blank><img src='pic/news.gif' border=0> "  & trim(hrs("Title")) & "(" & YEAR(hrs("UpdateTime")) & "-" & Month(hrs("UpdateTime")) &"-"& Day(hrs("UpdateTime")) & ")</a>" %> 
</td>
  </tr>
</table>
<%
   hrs.movenext
    loop
    end if
hrs.close
set hrs=nothing
%>	
<% 
set hr=server.CreateObject("ADODB.RecordSet") 
sqln="select   * from News where  SmallClassID=17 order by NewsID DESC"
hr.open sqln,conn,1,3 
	hr.move 5
if hr.eof  then
response.Write "没有记录！"
else
do while not hr.eof
 %>
 <table width="349" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><% Response.write "<a title=" & trim(hr("Title")) & " href=ReadNews.asp?NewsID=" & hr("NewsID") &  "&BigClassID=" & hr("BigClassId") & "&SmallClassID=" & hr("SmallClassID") & " target=_blank>"  & trim(hr("Title")) & "(" & YEAR(hr("UpdateTime")) & "-" & Month(hr("UpdateTime")) &"-"& Day(hr("UpdateTime")) & ")</a>" %> 
</td>
  </tr>
</table>
<% hr.movenext
loop 
end if
hr.close 
set hr=nothing%>



janlay
职务：管理员
等级：7
金币：28.0
发贴：7244
#42004/8/21 15:32:22
new不new要看是不是最近发表的，而不是最新发表的，这必然涉及到与当前时间比较的问题



林易
职务：普通成员
等级：3
金币：1.0
发贴：750
#52004/8/21 16:06:16
janlay在上个帖子中说
引用:
new不new要看是不是最近发表的，而不是最新发表的，这必然涉及到与当前时间比较的问题

我是通过desc 把最近发布的新闻放在最上面的



林易
职务：普通成员
等级：3
金币：1.0
发贴：750
#62004/8/21 16:08:43
lemontree在上个帖子中说
引用:
何必那么麻烦？
for i = 1 to rs.recordcount
response.write rs("title"
if i >=3 then
response.write "<img src=new.gif>"
end if
rs.movenext
end if

谢谢您的指导，应该是i<=3吧



林易
职务：普通成员
等级：3
金币：1.0
发贴：750
#72004/8/21 16:25:55
我需要的效果实现，多谢上面几位的指点，是不是可以通过move 来实现请给出意见
下面是我实现的效果的代码希望对其他人有帮助
  
<%
set hrs=server.CreateObject("ADODB.RecordSet") 
hrs.Source="select top 9 * from News where  SmallClassID=17 order by NewsID DESC"  
hrs.Open hrs.Source,conn,1,1 
'if hrs.eof  then
'response.Write "&Atilde;&raquo;&Oacute;&ETH;&frac14;&Ccedil;&Acirc;&frac14;&pound;&iexcl;"
'else 
'do while not hrs.eof 
dim i
for i = 1 to hrs.recordcount
%>
<link href="style.css" rel="stylesheet" type="text/css">

<table width="272" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="287" >&middot;<% 
response.write "<a title=" & trim(hrs("Title")) & " href=ReadNews.asp?NewsID=" & hrs("NewsID") &  "&BigClassID=" & hrs("BigClassId") & "&SmallClassID=" & hrs("SmallClassID") & " target=_blank>"  & trim(hrs("Title")) & "(" & YEAR(hrs("UpdateTime")) & "-" & Month(hrs("UpdateTime")) &"-"& Day(hrs("UpdateTime")) & ")</a>" 
if i <=5 then
response.write "<img src=pic/news.gif>"
end if 
hrs.movenext %>
    </td>   
  </tr>
</table>
<%

'loop
'end if
next
hrs.close
set hrs=nothing
%>