作品展示

顶部常用信息开发完成.提供下载

作者:小戒日期:2006-12-29

字体大小: 小中大

.打开根目录下的ConContent.asp,找到

复制内容到剪贴板

程序代码

在其下插入:

复制内容到剪贴板

程序代码

<fieldset>
    <legend>公告管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="">
          <tr>
        <td width="80" align="right">公告(支持HTML代码)</td><td width="300"><textarea name="blog_affiche" cols="50" rows="5"><%=blogaffiche%></textarea></td></tr>
     </table>
    </div>
</fieldset>

<fieldset>
    <legend>常用网址管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="">
          <tr>
        <td width="80" align="right">常用网址(支持HTML代码)</td><td width="300"><textarea name="blog_cuurl" cols="50" rows="5"><%=blog_cuurl%></textarea></td></tr>
     </table>
    </div>
</fieldset>

<fieldset>
    <legend>天气预报管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="">
          <tr>
        <td width="80" align="right">天气预报(支持HTML代码)</td><td width="300"><textarea name="blog_weather" cols="50" rows="5"><%=blog_weather%></textarea></td></tr>
     </table>
    </div>
</fieldset>

<fieldset>
    <legend>实用工具管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="">
          <tr>
        <td width="80" align="right">实用工具(支持HTML代码)</td><td width="300"><textarea name="blog_utools" cols="50" rows="5"><%=blog_utools%></textarea></td></tr>
     </table>
    </div>
</fieldset>

<fieldset>
    <legend>免责声明管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="">
          <tr>
        <td width="80" align="right">免责声明(支持HTML代码)</td><td width="300"><textarea name="blog_announce" cols="50" rows="5"><%=blog_announce%></textarea></td></tr>
     </table>
    </div>
</fieldset>

继续,找到

复制内容到剪贴板

程序代码

if CheckStr(Request.form("blog_wapURL"))="" then weblog("blog_wapURL")= else weblog("blog_wapURL")=0

在下面插入:

复制内容到剪贴板

程序代码

    weblog("blog_affiche")=Request.form("blog_affiche")
    weblog("blog_cuurl")=Request.form("blog_cuurl")
    weblog("blog_weather")=Request.form("blog_weather")
    weblog("blog_utools")=Request.form("blog_utools")
    weblog("blog_announce")=Request.form("blog_announce")

4.打开common下的cache.asp
找到

复制内容到剪贴板

程序代码

'=========================日志基本信息缓存=======================

在其上插入

复制内容到剪贴板

程序代码

Dim blog_cuurl,blog_weather,blog_utools,blog_announce

找到

复制内容到剪贴板

程序代码

"blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL" & _

修改为:

复制内容到剪贴板

程序代码

"blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL,blog_cuurl,blog_weather,blog_utools,blog_announce" & _

找到

复制内容到剪贴板

程序代码

blog_wapURL=CBool(blog_Infos(44,0))'使用 wap 转换文章超链接

在其下插入:

复制内容到剪贴板

程序代码

        blog_cuurl=blog_Infos(45,0)'常用网址
        blog_weather=blog_Infos(46,0)'天气预报
        blog_utools=blog_Infos(47,0)'实用工具
        blog_announce=blog_Infos(48,0)'免责声明

[本日志由小戒于 2008-05-27 08:26 AM 编辑]

上一篇: [移植风格] 迷糊娃娃V1 for PJBLOG

下一篇: 今天为福利事业捐出两百块.希望所有的好人一生平安....

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: 顶部常用信息下载

相关日志:

评论: 11 | 引用: 125 | 查看次数: -

1 | 2 | ›

mnz631[2007-08-18 05:19 PM |

]

这个帖子真不错。

simplelife[2006-12-30 07:43 PM |

]

我是用站长你的文件直接覆盖的，并不是自己修改的~~

回simplelife,你重新下载下...因为我刚发布这个出来的时候还没做上.后来才发现要另外做的...已经做在下载包里面了.

simplelife[2006-12-30 07:41 PM |

]

非常感谢站长的指点！！
还有一个小问题，为什么在日志的页面里这个信息框没有显示出来？在首页或分类页就正常
http://slife.32o.cn/blog/

麻烦站长帮我看看~~~~~

simplelife[2006-12-30 06:17 PM |

]

非常感谢站长研究出这么实用的咚咚！！已经用上了！感觉很不错~~~~~~~~
我有一个想法，如果我不想调用顶置日志，向调用精华日志或最新日志
该怎么修改呢？？？？？？？？？？？？？
我是个程序菜鸟，只能做一些肤浅的修改~~~~~~~~
希望站长能帮我看看~~~~~

回simplelife:
精华日志目前本博客没有设置到这个东西,不过你都可以通过修改第二步中间的这句来达到你的目的.
SQL1="Select * FROM blog_Content where log_IsTop=True orDER BY log_PostTime DESC"

如果你的博客中已经有精华功能,将log_IsTop=True改成你的条件.最新日志的话请去掉where log_IsTop=True这一句就OK了.

秋风[2006-12-30 00:36 AM |

]

信息类要如何修改为按浏览最多前8贴，分两边排列

回秋风:不知道你的邮箱,直接写在这吧...
除了信息推荐做如下修改,其他的几个直接在后台编辑HTML就OK了.

还是修改cls_default.asp,将下面这段代码

<%
        SQL1="Select * FROM blog_Content where log_IsTop=True orDER BY log_PostTime DESC"
        Set webLog1=Server.CreateObject("Adodb.Recordset")
        webLog1.Open SQL1,CONN,1,1
        If webLog1.EOF or webLog1.BOF Then
            response.write "<tr align=left><td>暂未找到任何置顶日志</td></tr>"
        else
            Do While Not webLog1.EOF
                response.write "<tr align=left><td><font color=#999999>["&DateToStr(webLog1("log_PostTime"),"Y-m-d")&"]</font><font color=#0000ff><A href=article.asp?id="&webLog1("log_ID")&">"&webLog1("log_Title")&"</A></font></td></tr>"
            webLog1.movenext
            Loop
        end if
        webLog1.Close
        Set webLog1=Nothing
%>

修改成:

<%
        SQL1="Select top 8 * FROM blog_Content where log_IsTop=True orDER BY log_PostTime DESC"
        Set webLog1=Server.CreateObject("Adodb.Recordset")
        webLog1.Open SQL1,CONN,1,1
        If webLog1.EOF or webLog1.BOF Then
            response.write "<tr align=left><td>暂未找到任何置顶日志</td></tr>"
        else
            dim i
            i=0
            Do While Not webLog1.EOF
            if (i mod 2)=0 then
                response.write "</tr><tr align=left>"
            end if
                response.write "<td><font color=#999999>["&DateToStr(webLog1("log_PostTime"),"Y-m-d")&"]</font><font color=#0000ff><A href=article.asp?id="&webLog1("log_ID")&">"&webLog1("log_Title")&"</A></font></td>"
            i=i+1
            webLog1.movenext
            Loop
        end if
        webLog1.Close
        Set webLog1=Nothing
%>

这样就行了....

小戒[2006-12-29 10:09 PM |

]

回TESTTEST22,代码如下:

<table width="100%"  border="0" cellspacing="0" cellpadding="1">
                <tr align="center">
          <td align="center"> <iframe allowtransparency="true"  src="http://weather.265.com/weather.htm" scrolling="no" frameborder="0" marginwidth="1" marginheight="1" height="60" width="168"></iframe>
<iframe allowtransparency="true" name="weather" src="http://tianqi.9991.com/o/" scrolling="no" frameborder="0" marginwidth="1" marginheight="1" height="70" width="298"></iframe> </td>
        </tr>
      </table>

testtest22[2006-12-29 09:49 PM |

]

请问，天气那里的代码怎样写才有你这种效果？

小戒[2006-12-29 05:41 PM |

]

回MAGICBOY:谢谢您的建议.近期开发..

magicbaby[2006-12-29 05:38 PM |

]

如果改成分类标题自定义和内容像写日志一样随意布局每个分类。单独做成一个常规插件，可以选择安装或不安装。。。不要放在基本信息设置里．．．让页面的任何位置都可以引用一个单独页，布局更自由了．．．可以考虑一下这个建议．．

小戒[2006-12-29 05:32 PM |

]

回MAGICBOY:非常好的建议,呵呵.纳入下一步开发计划中.呵呵.

1 | 2 | ›

发表评论

昵　称:
密　码:	游客发言不需要密码.
邮　箱:	支持Gravatar头像.
网　址:	输入网址便于回访.
内　容:	正在加载编辑器...
验证码:	点击获取验证码
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字记住我的信息,以便下次评论时不用输入用户名.

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.

顶部常用信息开发完成.提供下载

作者:小戒 日期:2006-12-29

作者:小戒日期:2006-12-29