教你自动给最近三天内的文章加new图标 [复制链接]

呵呵 谢谢 效果很明显，只是感觉显示图标不是很好看，调整成，显示红色标记，在原基础上修改的。

代码如下：
<%@ Language="vb" aspcompat="true" %>
<% Response.Buffer ="true" %>

<%
        dim conn
        dim sql
        
        Conn=Server.CreateObject("ADODB.Connection")
        Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/database/gov1.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False")'红色部分表示数据库文件路径，请改为你自己的路径。
        sql="UPDATE [information] SET  [title_style] ='' where [title_style]  LIKE '%color:red%' or  [title_style] is null"
        Conn.Execute(sql)        
        sql="UPDATE [information] SET  [title_style] = 'color:red' WHERE [title_style] NOT LIKE '%color: #%' AND [thedate] BETWEEN DateAdd('d', -3, NOW()) AND NOW()"'将红色部分设置为你的new图标位置。DateAdd('d', -3, NOW()) 一句中的-3表示自动给最近3天内的文件加上new图标，也可以根据需要改为其它数字，时间一过就会自动消失的。：#之间有空格，请去掉。
        Conn.Execute(sql)
        
        Conn.close
        Conn=Nothing
        Response.Redirect("index.aspx")'将红色部分设置为你的主页。
%>

这样做 就不会替换掉客户自定义的标题的颜色

=: #