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

方法1：

最近在论坛上看到有许多朋友想自动给文章列表使用new图标，有朋友也向我探讨这个问题，下面我就来教你如何自动给你的文章加上new图标，时间一过就自动消失。看此贴的人不要忘了回贴，请尊重作者的劳动成果。
1、在记事本中复制如下代码：
<%@ 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("/kanghaoran/kanghaoran.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False")'红色部分表示数据库文件路径，请改为你自己的路径。
        sql="UPDATE [information] SET  [title_style] ='' where [title_style] NOT LIKE '%color:%' or  [title_style] is null"
        Conn.Execute(sql)        
        sql="UPDATE [information] SET  [title_style] = 'background:url(/kanghaoran/kanghaoran/new.gif) no-repeat 100% 0px ; padding: 1px 33px 0px 0px;' 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")'将红色部分设置为你的主页。
%>
2、将上面的代码存为default.aspx文件。放置到你网站所在的根目录。
3、在iis中配置主页为你刚才建立的default.aspx文件。
4、一切ok,剩下的就是偷着乐。


方法2：

首先声明的是我用VB语言写代码，只是因为我对这种语言比较熟悉，看到很多朋友对此存有疑惑，那么我就改用系统默认的C#，这样你也不必改相应的模块文件了，同时对相应的代码也做了一些调整，让你使用起来更方便，改动的地方更少。
1、登陆后台，在表单模型管理中新建一自定义表单，随便什么名字都可以，字段建不建立无所谓，建立这个空表单的目的只是因为系统默认建立自定义模型必须要调用表单，实际上这个表单不起什么作用；
2、在表单模型管理中新建一自定义模型（这个步骤还不会？到富士康去报道吧）
3、在自定义模型管理中点击模型设置，在相应出现的对话框中点击模块模型（导航模型也可以，随便哪个模型无所谓，我用模块模型只是为了教程方便。）
4、复制以下代码到数据列表区：
<% @ Import  NameSpace="PageAdmin"%>
<% @ Import  NameSpace="System.Data"%>
<% @ Import  NameSpace="System.Data.OleDb"%>
<% Response.Buffer=true; %>

<%      
        Conn myconn ;
        OleDbConnection myOleDb ;
        OleDbCommand comm;
        string conPath,sql;

              myconn=new Conn();
        conPath=myconn.Constr();

        myOleDb=new OleDbConnection(conPath);
        myOleDb.Open();

        sql="UPDATE [information] SET  [title_style] ='' where [title_style] NOT LIKE '%color:%' or  [title_style] is null";
        comm=new OleDbCommand(sql,myOleDb);
        comm.ExecuteNonQuery();

        sql="UPDATE [information] SET  [title_style] = 'background:url(/images/new/new.gif) no-repeat 100% 0px ; padding: 1px 33px 0px 0px;' WHERE [title_style] NOT LIKE '%color:%' AND [thedate] BETWEEN DateAdd('d', -3, NOW()) AND NOW()";//不要忘记了替换为你自己的new图标位置，至于new图标保留几天，改-3这个数字吧.
        comm=new OleDbCommand(sql,myOleDb);
        comm.ExecuteNonQuery();

        myconn=null;
        comm=null;
        myOleDb.Close();
        myOleDb=null;
%>
5、保存此自定义模型。
6、在首页中新建一模块，类型为自定义模型，在自定义模型设置中调用刚才建立的自定义模型。
7、设置一个自义样式,在外层容器样式中输入"display:none";并调用自定义样式用于刚才建立的模块,以达到隐藏此模块的目的(但不等同于真正的隐藏，只是看到不而已，否则程序无法运行.)
8、重新进入主页，如无效果，多刷新几次。你成功了吗？如果你还不成功，也许你的代码输入有误，请仔细检查你的代码。成功后不要忘记来报到。

  出处：http://pa.779web.com/index.aspx?menuid=5&type=articleinfo&lanmuid=9&infoid=165&language=cn