[插件下载]顶部常用信息版块插件,已重组代码

戒聊

呵呵.今天在秋风一叶的博客上看到这个东东,论坛上搜了一下,关于公告什么的都是不能管理的,很不方便...

呵呵.所有开发已完成.演示:http://www.muzili.com,所有东东全在后台管理..支持HTML...

开始没注意Firefox,已修改..

插 件 名: 顶部常用信息版块插件
发布时间:2006-12-29
适用版本: 2.6
作    者: 戒聊
演示地址:http://www.muzili.com

下载地址:http://www.muzili.com/attachments/month_0612/u2006122916419.rar  
诚邀友情连接.

下载包里已更新.因本人对文件的与这不相关的地方修改比较多,请注意备份现有文件.强烈建议自己动手.呵呵.

修改方法如下:
1.执行压缩包中的update.asp,对数据库进行升级.
2.打开common下的library.asp,在第六行插入

程序代码

function blog_affichep()
%>
<DIV id=con align=left>
<UL id=tabtags>
  <LI class=selectTag><A  href="javascript:void(0)">本站公告</A> </LI>
  <LI><A  href="javascript:void(0)">信息推荐</A> </LI>
  <LI><A  href="javascript:void(0)">常用网址</A> </LI>
  <LI><A  href="javascript:void(0)">天气预报</A> </LI>
  <LI><A  href="javascript:void(0)">实用工具</A> </LI>
  <LI><A  href="javascript:void(0)">免责声明</A> </LI>
</UL>
<Ul id=tabtags>
    <li style="height:2px; background-color:#a5e763;"></li>
    <li style="height:2px; background-color:#ffae42;"></li>
    <li style="height:2px; background-color:#ff7573;"></li>
    <li style="height:2px; background-color:#ad7dde;"></li>
    <li style="height:2px; background-color:#4abeff;"></li>
    <li style="height:2px; background-color:#A8C6A8;"></li>
</Ul>
<DIV id=tabtagContent>
<%
        dim SQL1,webLog1,blog_affiche
        SQL1="Select * FROM blog_Info"
        Set webLog1=Server.CreateObject("Adodb.Recordset")
        webLog1.Open SQL1,CONN,1,1

        blog_affiche=weblog1("blog_affiche")
        blog_cuurl=weblog1("blog_cuurl")
        blog_weather=weblog1("blog_weather")
        blog_utools=weblog1("blog_utools")
        blog_announce=weblog1("blog_announce")
        webLog1.Close
        Set webLog1=Nothing
%>
<DIV class="tabtagContent selectTag" id=menu0>
              <%=blog_affiche%>
</DIV>
<DIV class=tabtagContent id=menu1>
<%
        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 "暂未找到任何置顶日志"
        else
            Do While Not webLog1.EOF
                response.write "<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><br>"            
            webLog1.movenext
            Loop
        end if
        webLog1.Close
        Set webLog1=Nothing
%>
</DIV>
<DIV class=tabtagContent id=menu2>
              <%=blog_cuurl%>
</DIV>
<DIV class=tabtagContent id=menu3>
              <%=blog_weather%>
</DIV>
<DIV class=tabtagContent id=menu4>
             <%=blog_utools%>
</DIV>
<DIV class=tabtagContent id=menu5>
             <%=blog_announce%>
</DIV>
</DIV>            
<SCRIPT type=text/javascript>
function selectTag(showContent,selfObj){
    // 操作标签
    var tabtag = document.getElementById("tabtags").getElementsByTagName("li");
    var tabtaglength = tabtag.length;
    for(i=0; i<tabtaglength; i++){
        tabtag.className = "";
    }
    selfObj.parentNode.className = "selectTag";
    // 操作内容
    for(i=0; j=document.getElementById("menu"+i); i++){
        j.style.display = "none";
    }
    document.getElementById(showContent).style.display = "block";
}
</SCRIPT>
</DIV>
<%
end function



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

程序代码

          <td align="left"><textarea name="FilterIPs" cols="50" rows="5"><%=FilterIPs%></textarea></td>
        </tr>
     </table>
    </div>
</fieldset>   


在其下插入:

程序代码

<fieldset>
    <legend>公告管理</legend>
    <div align="left">
<table border="0" cellpadding="2" cellspacing="1">
          <tr>
        <td width="180" 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="1">
          <tr>
        <td width="180" 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="1">
          <tr>
        <td width="180" 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="1">
          <tr>
        <td width="180" 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="1">
          <tr>
        <td width="180" 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"))="1" then weblog("blog_wapURL")=1 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)'免责声明



5.在你需要调用此版块信息的页面的适当的位置加入以下代码即可.(我一般都是加在<div id="mainContent-topimg"></div>之后)

程序代码
<%=blog_affichep%>


6.打开你现在所用风格下的layout.css,在顶部插入以下代码.

程序代码

OL LI {MARGIN: 0px;}
#con {FONT-SIZE: 12px;WIDTH: 100%;margin:0px;}
#tabtags {WIDTH: 100%;text-align:center;margin:0px;}
#tabtags LI {FLOAT: left;HEIGHT: 23px;width:16%;text-align:center;margin:0px 1px 0px 1px;}
#tabtags LI A {COLOR: #000000; LINE-HEIGHT: 23px; HEIGHT: 23px; TEXT-DECORATION: none;text-align:center;margin:0px 1px 0px 1px;}
#tabtags LI.emptyTag {BACKGROUND: none transparent scroll repeat 0% 0%; WIDTH: 4px;}
#tabtags LI.selectTag {BACKGROUND-POSITION: left top; MARGIN-BOTTOM: -2px; POSITION: relative; HEIGHT: 22px;background-color:#ccc;}
#tabtags LI.selectTag A {BACKGROUND-POSITION: right top; COLOR: #000; LINE-HEIGHT: 25px; HEIGHT: 25px;}
#tabtagContent {PADDING-RIGHT: 1px; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px;PADDING-TOP: 1px; BORDER-BOTTOM: #ccc 1px solid;}
.tabtagContent {PADDING: 5px; DISPLAY: none;COLOR: #474747;}
#tabtagContent DIV.selectTag {DISPLAY: block;}


OK,大功搞成.

如果你之前没有修改过这几个文件,可以直接下载覆盖.
解压后,传至网站根目录,直接覆盖原文件.然后执行http://你的博客网址/update.asp,进行数据库升级.OK.
进入后台基本设置,拉至最底部,在这可以设置这里的所有信息了.

本站更多原创PJBLOG2.6插件：http://www.muzili.com/default.asp?cateID=22

[ 本帖最后由 kkey0416 于 2007-8-23 23:08 编辑 ]

3116384

哈哈,,偶是新手,沙发支持你

戒聊

呵呵.所有开发已完成.演示:http://www.muzili.com,所有东东全在后台管理..支持HTML...

Toot

不错的说。

wwsybtx0001

真的挺好的，呵呵，好东西啊，很实用！

dreamxer

什么时间提供分享下载地址呀...期待中.....

戒聊

已提供下载...

dreamxer

最好提供一个手动修改的...因为大家的部分页面文件由于长期加载代码..与博主提供的部分页面不大相同...所以还请劳烦博主提供一个手动修改的方法..

dreamxer

这个功能很类似在 异次元这个页面上的版面聚合功能．．．
你的更完善，可以在后台管理．实现了插件功能．．
但有一个缺陷就是所填加的内容是分类好的．．不可以自定义．．
如果改成分类标题自定义和内容像写日志一样随意布局每个分类。
单独做成一个常规插件，可以选择安装或不安装。。。不要放在基本信息设置里．．．
让页面的任何位置都可以引用一个单独页，布局更自由了．．．
努力做到更好．．嘿嘿．．．我这只是一个建议。。。因为我是菜鸟。。。

[ 本帖最后由 dreamxer 于 2006-12-29 17:40 编辑 ]

soking

555..........
我用的是Firefox 。。
发现不支持你的插件。。。。。。。。