现在好象新添加的文章只是第一天显示new标志，如何修改才能让它显示的时间长一些呢？

测试努力中

[此贴子已经被作者于2007-11-14 16:25:48编辑过]

我想用当前系统时间小于添加时间+7天的办法来搞，上面代码蓝色部分替换成这样的

(Year(Now)&Month(Now)&Day(Now) < year(dateadd("d",7,SQL(7,K)))&month(dateadd("d",7,SQL(7,K)))&day(dateadd("d",7,SQL(7,K))))

页面没有提示出错，代码没有语法问题，但是效果似乎没出来。。还在试验中

以下代码测试过程：这样的asp代码,可以通过

<%
dim time
time=year(dateadd("d",7,now()))&month(dateadd("d",7,now()))&day(dateadd("d",7,now()))
if year(now)&month(now)&day(now) < time then
response.write "<div algn='center'>New</div>"
end if
%>
输出为“New”

[此贴子已经被作者于2007-11-14 15:02:22编辑过]

ks_cls/KS.LabelCls.asp 477行关键就是这句了，我加了注释

    If RS.EOF Then   KS_A_L="":RS.Close:Set RS=Nothing:Exit Function
    SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing '取得数据库所有记录
    Dim TotalNum:TotalNum=Ubound(SQL,2) '用UBound函数取数组最大下标，构造sql查询串时循环最大下标次
    Dim Title, T_CssStr, DateCssStr,NewImgStr,HotImgStr,DateStr
    T_CssStr = KS.GetCss(T_Css):DateCssStr = KS.GetCss(DateCss):R_H = KS.G_R_H(R_H):NaviStr = KS.GetNavi(NavType, Nav)
   If P_T=2 Then
       KS_A_L = "<div"&KS.GetCssID(DivID)&KS.GetCss(DivCss) &">" & vbCrLf & " <ul"&KS.GetCssID(UlID)&KS.GetCss(ULCss) &">" & vbCrLf
       For K=0 To TotalNum
  '循环提取数据
     If CBool(S_C_N) = True Then C_N_Link = "[" & KS.GetClassNP(SQL(2,K)) & "]"  
       Title = SQL(1,K)
       TempTitle = GetArticleTitle(Title, T_Len, PicTF, SQL(12,K), SQL(13,K), SQL(14,K))
     If Cbool(NewTF)=True And (Year(SQL(7,K))&Month(SQL(7,K))&Day(SQL(7,K)) =Year(Now)&Month(Now)&Day(Now)) Then NewImgStr="<img src=""" & DomainStr &"images/new.gif"" border=""0""/>" Else NewImgStr=""

原理可能就这样的，取数据库文章添加时间进行格式化，只取年、月、日，忽略分、秒，如果结果和你系统时间的年、月、日相同，则显示NEW标志，这样就可以有当天发的文章显示NEW的效果了

[此贴子已经被作者于2007-11-14 13:38:59编辑过]

好像管理员错了 是在ks_cls/KS.LabelCls.asp 里477行

请教具体的应该怎么样改呢??