asp网页怎么给特定的新闻后面加上NEW图标?

程序是这样的
function News11(num,SortPath)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top "& num &" * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
rs.open sql,conn,1,1
i=1
if rs.eof then
response.write "</ul>"
Response.Write "<li>暂无相关信息</li>"&VbCrLf
response.write "</ul>"
else
Response.Write "<table width=""360"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""3"">"
do while not rs.eof
if now()-rs("AddTime")<=2 then
NewsName=Left(rs("NewsName"),18)
else
NewsName=Left(rs("NewsName"),18)
NewFlag=""
end If
If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "NewsView.asp?ID="&rs("id")&""
End If
i=i+1
Response.Write " <tr height=""20"">"&VbCrLf
Response.Write " <td style=""border-bottom:1px dashed #DEDEDE;""><img src=""images/122.jpg"" /> <a href="""&AutoLink&""">"&NewsName&"</a></td>"&VbCrLf
Response.Write " <td align=""right"" style=""border-bottom:1px dashed #DEDEDE;"">["&FormatDate(rs("Addtime"),13)&"]</td>"&VbCrLf
Response.Write " </tr>"&VbCrLf
rs.movenext
loop
response.write "</table>"
end if

rs.close
set rs=nothing
end Function
应该怎么改。求帮忙

修改两处即可.
if now()-rs("AddTime")<=2 then
NewsName=Left(rs("NewsName"),18)
NewFlag="<img src=new.gif>" '在这里插入一行,写你的New图片
else
NewsName=Left(rs("NewsName"),18)
NewFlag=""
end If
然后,将下面这行修改成这样.
Response.Write " <td style=""border-bottom:1px dashed #DEDEDE;""><img src=""images/122.jpg"" /> <a href="""&AutoLink&""">"&NewsName&"</a>" & NewFlag & "</td>"&VbCrLf
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-06-03
yanzilisan183回答的完全正确~~~

asp网页怎么给特定的新闻后面加上NEW图标?
NewFlag="" '在这里插入一行,写你的New图片 else NewsName=Left(rs("NewsName"),18)NewFlag=""end If 然后,将下面这行修改成这样.Response.Write " "&NewsName&"" & NewFlag & ""&VbCrLf

asp 最近三天的新闻加后new标识
<%if data-rs("添加日期的字段名")<4 then response.write ""%>

asp网页怎么给特定的新闻后面加上NEW图标
cnmai=<%=rsnx("id")%>" target="_blank" title="<%=rsnx("biaoti")%>"><%if cstr(formatdatetime(rsnx("fbsj"),2))=cstr(date()) then%><%=left(rsnx("biaoti"),11)%><A href="x.asp?cnmai=<%=rsnx("id")%>" target="_blank"><%else%><%=left(rsnx("biaot...

关于asp,我想在一条新闻的最后根据时间的最新添加一个new的图标
if month(rs("addtime"))=month(Now()) then response.write("")不是说明只要是一个月内发的帖子就显示new.gif吗?这样有一个漏洞,比如2001年5月发的帖子,到2008年5月,还是有new.gif

asp网站,如何让新闻列表在最近3天的新闻后加new图标?
加个IF语句 判断新闻添加时间与当前时间的差

asp如何给新闻加new的图标
需要在数据库中加一个保存时间的字段 根据你的需要设定日期。读出字段和当前时间比较。如果符合你的要求,则输出图片即可

asp在最近几天的新闻后加new图标的问题!
rs.open "select * from news where sort="&id&" and datediff(d,addtime,getdate())>7 order by id desc",conn,1,1 上面的7是最近7天显示new 上面这句话只是选择7天的新闻 如果要求有其它的新闻的话 那就要读取你的新闻时间,通过datediff进行对比,如果是小于7 则输出news.gif ...

ASP如何实现新闻加NEW图标
rs.open "select top 8 title,id,addtim from news where classid <> 8 and hot= 1 order by addtim desc",conn,1,1 if rs.eof and rs.bof then response.write "暂无新闻"else addtim = rs("addtim")IF datediff("d",addtim,Now())>=30 then response.Write ""end if end...

ASP新录的新闻标题后面加new图片,如何实现
库里有时间字段吗 在标题后面加上一个IF,写入时间比系统时间的差小于7,输出图片,大于,就什么也没有 if now()-rs("AddTime")<=2 then NewFlag=" "else NewFlag=""end If

ASP.NET控制15天之内的新闻后面显示一张new图片(新闻列表采用Repeater或D...
首先,你的代码写的真滥,连数据库N次、不必要的循环!rep_xw要先进行数据绑定,再显示15天之内的新闻图片!不知道你是怎么做的?如果不是就有问题了啊(别的好像没有什么逻辑错误)。

相似回答