作品展示 订阅所有作品展示的日志

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

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

字体大小: 小 中 大
所有内容全后台管理,支持HTML代码.需要的下吧.呵呵.

已修改,支持Firefox.

修改方法如下:
.执行压缩包中的up�ate.asp,对数据库进行升级.
2.打开common下的library.asp,在第六行插入
复制内容到剪贴板程序代码程序代码

function blog_affichep()
%>
<DIV id=con align=left>
<UL id=tabtags>
  <LI class=sel�ctTag><A onMouseMove="sel�ctTag('menu0',this)" href="javascript:void(0)">本站公告</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu',this)" href="javascript:void(0)">信息推荐</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu2',this)" href="javascript:void(0)">常用网址</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu3',this)" href="javascript:void(0)">天气预报</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu4',this)" href="javascript:void(0)">实用工具</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu5',this)" 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 SQL,webLog,blog_affiche
        SQL="Sel�ct * FROM blog_Info"
        Set webLog=Server.Cr�ateObject("Adodb.Recordset")
        webLog.Open SQL,CONN,,

        blog_affiche=weblog("blog_affiche")
        blog_cuurl=weblog("blog_cuurl")
        blog_weather=weblog("blog_weather")
        blog_utools=weblog("blog_utools")
        blog_announce=weblog("blog_announce")
        webLog.Close
        Set webLog=Nothing
%>
<DIV class="tabtagContent sel�ctTag" id=menu0>
              <%=blog_affiche%>
</DIV>
<DIV class=tabtagContent id=menu>
<%
        SQL="Sel�ct * FROM blog_Content wh�re log_IsTop=True oDER BY log_PostTime DESC"
        Set webLog=Server.Cr�ateObject("Adodb.Recordset")
        webLog.Open SQL,CONN,,
        If webLog.EOF o webLog.BOF Then
            response.write "暂未找到任何置顶日志"
        else
            Do While Not webLog.EOF
                response.write "<font color=#999999>["&DateToStr(webLog("log_PostTime"),"Y-m-d")&"]</font><font color=#0000ff><A href=article.asp?id="&webLog("log_ID")&">"&webLog("log_Title")&"</A></font><br>"            
            webLog.movenext
            Loop
        end if
        webLog.Close
        Set webLog=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 sel�ctTag(showContent,selfObj){
    // 操作标签
    var tabtag = document.getElementById("tabtags").getElementsByTagName("li");
    var tabtaglength = tabtag.length;
    for(i=0; i<tabtaglength; i++){
        tabtag[i].className = "";
    }
    selfObj.parentNode.className = "sel�ctTag";
    // 操作内容
    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="">
          <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)'免责声明


5.在你需要调用此版块信息的页面的适当的位置加入以下代码即可.(我一般都是加在<div id="mainContent-topimg"></div>之后)
复制内容到剪贴板程序代码程序代码
<%=blog_affichep%>


6.打开你现在所用风格下的layout.css,在顶部插入以下代码.
复制内容到剪贴板程序代码程序代码

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

OK,大功搞成.

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


下载文件 点击下载此文件
[本日志由 小戒 于 2008-05-27 08:26 AM 编辑]
收藏到QQ书签 文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 顶部 常用信息 下载
评论: 11 | 引用: 125 | 查看次数: -
回复回复mnz631 [2007-08-18 05:19 PM | del]
这个帖子真不错。
回复回复simplelife [2006-12-30 07:43 PM | del]
我是用站长你的文件直接覆盖的，并不是自己修改的~~

回simplelife,你重新下载下...因为我刚发布这个出来的时候还没做上.后来才发现要另外做的...已经做在下载包里面了.
回复回复simplelife [2006-12-30 07:41 PM | del]
非常感谢站长的指点！！
还有一个小问题，为什么在日志的页面里这个信息框没有显示出来？在首页或分类页就正常
http://slife.32o.cn/blog/

麻烦站长帮我看看~~~~~
回复回复simplelife [2006-12-30 06:17 PM | del]
非常感谢站长研究出这么实用的咚咚！！已经用上了！感觉很不错~~~~~~~~
我有一个想法，如果我不想调用顶置日志，向调用精华日志或最新日志
该怎么修改呢？？？？？？？？？？？？？
我是个程序菜鸟，只能做一些肤浅的修改~~~~~~~~
希望站长能帮我看看~~~~~

回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 | del]
信息类要如何修改为按浏览最多前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 | del]
回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 | del]
请问，天气那里的代码怎样写才有你这种效果？
回复回复小戒 [2006-12-29 05:41 PM | del]
回MAGICBOY:谢谢您的建议.近期开发..
回复回复magicbaby [2006-12-29 05:38 PM | del]
如果改成分类标题自定义和内容像写日志一样随意布局每个分类。单独做成一个常规插件，可以选择安装或不安装。。。不要放在基本信息设置里．．．让页面的任何位置都可以引用一个单独页，布局更自由了．．．可以考虑一下这个建议．．
回复回复小戒 [2006-12-29 05:32 PM | del]
回MAGICBOY:非常好的建议,呵呵.纳入下一步开发计划中.呵呵.
发表评论
昵　称:
密　码: 游客发言不需要密码.
邮　箱: 博主回复后，系统将发送通知邮件到您的邮箱，可不填.
网　址:
内　容:
验证码: 验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.