标题:如何用ASP代码能实现最近一两天的新闻后面加一个"new"标识
只看楼主
bjmj
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-9-17
得分:0 
ding
2007-09-29 11:39
zjcwg
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2007-9-29
得分:0 
很简单:

<%if DateValue(rs("datetime"))=>DateValue(date()-2) then
Response.Write "<img src=""images/new0.gif"">"
%>

2007-09-29 12:00
angerzl
Rank: 1
等 级:新手上路
帖 子:122
专家分:0
注 册:2007-8-20
得分:0 

加上后,出现:

错误类型:
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/test/公司网站_测试网/双赢招标投标/index.asp, line 262
loop

2007-09-29 12:12
finaly
Rank: 1
来 自:广州
等 级:新手上路
帖 子:80
专家分:0
注 册:2006-6-5
得分:0 
呵呵,看来楼主跟俺一样哦,大侠说的话都不明白

http://
2007-09-29 12:17
angerzl
Rank: 1
等 级:新手上路
帖 子:122
专家分:0
注 册:2007-8-20
得分:0 

我都急死了,谁叫自己太笨了呢~!~!~!~!~

2007-09-29 12:19
zjcwg
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2007-9-29
得分:0 
数据库的表中一定要有时间的字段(AddDate),才能判断所增加的新闻信息是否属最新的。
以下试试看:

<td width="41%" style='BORDER-bottom: #999999 1px dotted'><font color="#999999" >[<%=rs_news("AddDate")%>]</font><%if DateValue(rs("AddDate"))=>DateValue(date()-2) then
Response.Write "<font color=red>new</font>"%><%end if%></td>

或者:

<td width="41%" style='BORDER-bottom: #999999 1px dotted'><font color="#999999" >[<%=rs_news("AddDate")%>]</font><%if DateValue(rs("AddDate"))=date() then%>
<font color=red>new</font><%end if%></td>



[此贴子已经被作者于2007-9-29 13:01:57编辑过]


2007-09-29 12:48
angerzl
Rank: 1
等 级:新手上路
帖 子:122
专家分:0
注 册:2007-8-20
得分:0 

谢谢楼上的朋友,不过加上那段代码以后,没有时间限制啊,全部都有小图标~!~!~

www.masztb.com

2007-09-29 13:11
zjcwg
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2007-9-29
得分:0 
回复:(angerzl)谢谢楼上的朋友,不过加上那段代码以...
一个地方有小错误,再试试!

<td width="41%" style='BORDER-bottom: #999999 1px dotted'><font color="#999999" >[<%=rs_news("AddDate")%>]</font><%if DateValue(rs_news("AddDate"))=date() then%>
<font color=red>new</font><%end if%></td>

2007-09-29 13:20
angerzl
Rank: 1
等 级:新手上路
帖 子:122
专家分:0
注 册:2007-8-20
得分:0 

还是不行,要么都显示,要么一个都没有~!~!

2007-09-29 13:34
angerzl
Rank: 1
等 级:新手上路
帖 子:122
专家分:0
注 册:2007-8-20
得分:0 
<%if DateValue(rs_news("AddDate"))=>DateValue(date()-2) then
Response.Write "<img src=""image/new1.gif"">"
%><%end if%>
这段结果是不显示


<%if DateValue(rs_news("Datetime"))=>DateValue(date()-2) then
Response.Write "<img src=""image/new1.gif"">"
%><%end if%>

这段结果显示,但是全部


究竟哪里错了啊
2007-09-29 13:55



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-173909-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.102585 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved