如何实现asp在最近新闻上加闪动"news"标志（问题已解决） - 编程论坛

#2

smlx98072008-02-21 14:12

加入一个冷却的new gif动画图片就好了啊~看看下面代码
'最新主题
<%
sub bbs5
set rs=server.CreateObject("adodb.recordset")
sql="select top 10 title,boardid,topicid from dv_topic  order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof then
response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>当前没有主题</td></tr></table>"
else
do while not rs.eof
response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' style='padding:3px;'><tr>"
response.Write"<td ><img src='images/dian.gif' width='2' height='2' align='absmiddle'>?"
response.write "<a  title='"&rs("title")&"' target='_blank' href='bbs1/dispbbs.asp?boardid="&rs("boardid")&"&id="&rs("topicid")&"&page=1'>"
response.write cutstr(rs("title"),12,"")
response.write "</a><img src='images/新标志.gif' width='2' height='2' align='absmiddle'></td>"
response.Write "<tr></table>"
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
end if
end sub
%>

#3

yms1232008-02-21 15:01

楼上的是一种办法，新闻读取时按时间进行排序前几条就是最新的。
也可以利用datediff函数来判断。

#4

towering2008-02-21 16:29

如果是想在最近一个月的新闻标题后加，
应该怎么做呢？
谢谢！！！！

#5

smlx98072008-02-21 21:02

你把你的代码发上来让大家看看啊~
用Datediff这个函数可以实现你说的要求。你可以去查阅一下这个函数的参数。

#6

towering2008-02-22 19:08

我还是应该学习一下Datediff先，呵呵！
谢谢！

#7

towering2008-02-24 18:16

搞定！为了方便大家学习我把代码送出：
<%if DateDiff("h",rs("dateTime"),now())<=24 then%><img src="img/new.gif"><%end if%>
这是1天的，Datadiff函数介绍如下：
DateDiff 函数

描述
返回两个日期之间的时间间隔。
语法
DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]])
DateDiff 函数的语法有以下参数：

参数描述
interval 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
date1, date2 必选。日期表达式。用于计算的两个日期。
firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

设置
interval 参数可以有以下值：
设置描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒

firstdayofweek 参数可以有以下值：

常数值描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

firstweekofyear 参数可以有以下值：

常数值描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。

说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。

如果 date1 晚于 date2，则 DateDiff 函数返回负数。

firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。

在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

参考百度百科

[[it] 本帖最后由 towering 于 2008-2-24 18:17 编辑 [/it]]