ASP新录的新闻标题后面加new图片,如何实现

来源:百度知道 编辑:UC知道 时间:2024/06/30 21:55:03
这是我的原代码,要如何实现一周的新闻后面有new图片
Sub ListNewsShort_1(Classid,Rows,Titlelen,ShowTime)

Call CheckClassParent(Classid)

if classparent = 0 then
SqlTxt = "SELECT Top "&Rows&" * FROM View_PClassNews WHERE news_checked=1and news_del=0 and class_parent = "&Classid&" ORDER BY news_id DESC"
else
SqlTxt = "SELECT Top "&Rows&" * FROM View_PClassNews WHERE news_checked=1 and news_del=0 and class_id = "&Classid&" ORDER BY news_id DESC"
end if
Set Rssub = Server.CreateObject("ADODB.Recordset")
Rssub.Open SqlTxt,Conn,1,1%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
if Rssub.EOF then
Call Nodata()
Else
While NOT Rssub.EOF
%>
<tr>
<td width="84%" height="24">· <a href="

库里有时间字段吗

在标题后面加上一个IF,写入时间比系统时间的差小于7,输出图片,大于,就什么也没有
if now()-rs("AddTime")<=2 then
NewFlag=" <img src=""Images/new.gif"" align=""absmiddle"">"
else
NewFlag=""
end If