新闻系统用到的，3天之内的发表的新闻标题显示红色，反之显示其它的颜色。

最新推荐文章于 2022-04-24 20:28:51 发布

web718

最新推荐文章于 2022-04-24 20:28:51 发布

阅读量1.8k

点赞数

分类专栏： ASP 文章标签： vbscript class date border table file

本文链接：https://blog.csdn.net/web718/article/details/487854

版权

ASP 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

If date() - myrs("newsdate") <= 3 Then

<%@language="VBscript"%>
<%Response.Expires=0%>

<%
newsort=Request.QueryString("Id")
set myrs=server.CreateObject("Adodb.recordset")
myrs.Open "select top 5 id,title,newsdate from news_purpose1 where indexsign='1' and newsort="&newsort&" order by id desc",conn,1,1
if myrs.RecordCount<>0 then
Response.Write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0 >');"
do until myrs.EOF
If date() - myrs("newsdate") <= 3 Then
title1="<font color='red'>"&left(myrs("title"),22)&"</font>"
else
title1=left(myrs("title"),22)
end if
      title_str="<tr><td > <img src='images/dot2.jpg' width='3' height='5'> <a href='cn/dynamic_detail.asp?id=" & myrs("id") & "' target='_blank' class=a02>" & title1 & "</a></td><td width=50> <font color=#666666 class=a02>"
      title_str=title_str & month(myrs("newsdate")) & "-" & day(myrs("newsdate")) & "</font></td><tr>"
      Response.Write "document.write(" & chr(34) & title_str & chr(34) & ");"
myrs.MoveNext
loop
Response.Write "document.write('<tr><td align=right colspan=2><a href=cn/dynamic.asp?newsortId="&newsort&" class=a03>更多...</a> </td></tr>');"
Response.Write "document.write('</table>');"
else

end if