Question

asp高手请进，怎样给发布时间在三天内的信息标题加上new图标

代码如下：
<%
if request("hcgood")<>"" then session("hcgood")=request("hcgood")
sql = "select * from shuju where order by 编号 desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
page=int(request.QueryString ("page"))
rs.PageSize=40
pagect=rs.pagesize
if page<=0 then page=1
if page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage=page
gg=rs.recordcount/pagect
gh=int(gg)
if gh<=1 then gh=1
if gg>gh then gh=gh+1
gg=gh
%>
<table width="531">
<%
for i=1 to pagect
if rs.eof or rs.bof then
exit for
end if
%>
<tr>
<td><%=rs("bt")%></a></td>
</tr>
<%
rs.movenext
next
%>
</table>

注明：
1.提取数据的数据库内表名：shuju
2.信息标题对应的字段：bt
3.new图标的相对地址：images/new.jpg
我是个菜鸟，初学，请高手把改好的代码写上来，定重谢。
记录发布时间的字段：rq

Answer 1

<%
if request("hcgood")<>"" then session("hcgood")=request("hcgood")
sql = "select * from shuju where order by 编号 desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
page=int(request.QueryString ("page"))
rs.PageSize=40
pagect=rs.pagesize
if page<=0 then page=1
if page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage=page
gg=rs.recordcount/pagect
gh=int(gg)
if gh<=1 then gh=1
if gg>gh then gh=gh+1
gg=gh
%>
<table width="531">
<%
for i=1 to pagect
if rs.eof or rs.bof then
exit for
end if
%>
<tr>
<td><%if datediff("d",rs("rq"),date())<=3 then response.write "<img src='images/new.jpg'>"%><%=rs("bt")%></a></td>
</tr>
<%
rs.movenext
next
%>
</table>

Answer 2

思路：用日期比较函数用系统时间与新闻的时间进行比较，三天之内显示NEW。否则不显示。
参考以下：
DateDiff 函数 语言参考
版本 2

请参阅

--------------------------------------------------------------------------------

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

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

设置
interval 参数可以有以下值：
设置 描述
yyyy 年
q 季度
n 月
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 由在新的一年中第一个完整的周开始。

Answer 3

判读一下时间嘛，dateiff(time1,time2)<3然后输出nEW就行