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

舍本逐末，主页变成空白页面，这样做的结果就是seo优化没有了

没有考虑到楼上所提出的这个问题，seo优化与这个有关吗?我将此代码设置为主页的目的只是为了减少程序调入的次数，果真如楼上所说，也很简单，将之加入一个自定义模块，然后在首页中调用就可以了。步骤修改如下:
1、用记事本打开/zdymodel/template_zdymodel.aspx文件,将   <% @ Control language="c#" Inherits="PageAdmin.detail_zdymodel"%>这一句中的"c#" 改为"vb"。
2、建立自定义模型:在模块模型数据列表区中输入以下代码:
<%
        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
%>
3、按保存按扭，保存自定义模型。
4、在首页中新建一模块，类型为自定义模型，在模型调用中调用刚才建立的自定义模型。设置一个自义样式,在外层容器样式中输入"display:none";并调用自定义样式用于刚才建立的模块,以达到隐藏此模块的目的(但不等同于真正的隐藏，只是看到不而已，否则程序无法运行.)
5、刷新网页,如果没有效果，多刷新几次（或重新进入主页)，如果访问你网站的人员较多，就不存在此情况了，ok，你成功了吗?( 可以参见http://bamiaoxx.gicp.net)上的效果。

好像不行哦

你这样
是不是主机还得安装vb？

“建立自定义模型:在模块模型数据列表区中输入以下代码”模块模型数据列表区在哪呀？

谢谢您的经验分享

“建立自定义模型:在模块模型数据列表区中输入以下代码”模块模型数据列表区在哪呀？

还是没弄明白，请楼主 明示啊

看着还不错

“建立自定义模型:在模块模型数据列表区中输入以下代码”模块模型数据列表区在哪呀？

好久没有登陆论坛了，今天登陆后发现看这个贴子的人很多，但可惜回贴的人很少，又发现仍然有许多朋友没有将这个效果做出来，我现在就将详细的步骤说出来，做出效果的人不要忘记了回贴，这也是对作者劳动的肯定。
首先声明的是我用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、重新进入主页，如无效果，多刷新几次。你成功了吗？如果你还不成功，也许你的代码输入有误，请仔细检查你的代码。成功后不要忘记来报到。

请把第7步再详细一点，比如“设置一个自定义样式是在哪设置的，调用它到刚建立的模块又是怎样调用的，我很菜，你别笑话。

出现这个错误   怎么回事？  还是不行啊

嗯，第七步没有看懂

pa很强大，一些基本的东西得先自己去摸索，如果样样都靠别人去解决，对自己的技术提升是很慢的。如果连自定义样式还不会，那你得再把整个系统再熟悉一下。你说是吧？至于15楼的问题，因为我这里没有遇到类似的情况，所以无法说清，看你的代码。应该没有问题。在代码前面用debug命令调试一下，看看具体是什么情况，再根据相应情况做处理吧。感谢大家对此贴的支持。