用户登陆
站点日历
站点统计
最新评论
热门日志
日志搜索
[转载]对 L-Blog 美化的一些记录（技巧） [ 日期：2005-08-20 ] [ 来自：
四四说明：鉴于L-blog程序有些朋友有比较大的改动，请谨慎修改。参考为用。很个人的一些记录，仅供参考。
根目录文件说明
admincp.asp 管理首页、管理面板导航
attachment.asp 上传组件
blogcomm.asp 发表评论
blogedit.asp 修改日志
bloglinks.asp 友情链接加入
blogpost.asp 发表新日志
blogrss1.asp 修改电子信箱名
blogrss2.asp
blogview.asp 日志进入后题目颜色设置
blogvisit.asp 访问记录列表
commlist.asp 评论列表
commond.asp
default.asp 首页中间部分
favorite.asp 提交书签
footer.asp 首页下部
header.asp 首页上部
ipview.asp IP地址查询
logging.asp 用户登录
member.asp 用户列表
register.asp 用户注册
search.asp 网站搜索，修改字颜色。
tblist.asp 引用列表，修改字颜色。
trackback.asp 引用通告列表
日历和登陆栏都有背景色，它们的背景色在inclued/library.asp里面修改，找到装载日历与登陆栏的table,把相应的单元格背景改成你想要的颜色就可以了
想让上下直接顶在浏览器的边框,请问该怎么改?
<body topmargin="0">
LBLOG缺省的上传文件大小设置的是多大？
修改文件:commond.asp 找到:上传文件的大小以及后缀名限制
如何修改兰色条和边框
上面的在改这个图片就OK了，用PS作过渡色
下面的边框改CSS里的.msg_content
border: 1px solid #0252AB;
首页调用论坛最新帖子
<span id=yuzi>Loading...</span>
<script src=new.asp?id=yuzi&forumid=1&TopicCount=10&Count=15&showtime=1&icon=◎></script>
增加在线播放MP3插件的方法：
首先在需要的位置防入以下代码：
<DIV><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase=" http://download.macromedia.com/pub/sho...h/swflash.cab#version=6 ,0,29,0 " width="165" height="120"><param name="movie" value="styles/mp3player.swf"><param name="quality" value="low"><param name="wmode" value="transparent"><param name="menu" value="false"><embed src="styles/mp3player.swf" quality="low" pluginspage=" http://www.macromedia.com/go/getflashplayer"type="application/x-shoc ... /embed></object></div>
再将以下文件放到styles目录下，注意MP3清单文件放到根目录下
如何让页码"[1]"去掉"[]",在那里修改?
include/function.asp 文件里面
每页10个记录是这么改
原：
Do Until webLog.EOF OR PageCount=5
修改为：
Do Until webLog.EOF OR PageCount=10
首页调用新帖
修改library..asp,在最后一个End Sub后插入下面的代码,在首页适当位置用Call NewBlogList调用就可以了：
Sub NewBlogList '最新文章
Response.Write ("<div class=""siderbar_head""><img src=""images/sider_search.gif"" border =""0"" align=""absmiddle""> 最新日志</div><div class= ""siderbar_main"">")
Dim blog_Topicnewlist
Set blog_Topicnewlist=Conn.Execute("SELECT TOP 9 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow FROM blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_PostTime DESC")
IF blog_Topicnewlist.EOF AND blog_Topicnewlist.BOF Then
Response.Write("暂无")
Else
Do While NOT blog_Topicnewlist.EOF
IF blog_Topicnewlist("log_IsShow")=False Then
Response.Write (" a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")& "' title='隐藏日志，不显示预览'> "&HTMLEncode(cutStr(blog_Topicnewlist ("log_Title"),16))&"</a><br>")
Else
Response.Write("a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='"&HTMLEncode(blog_Topicnewlist("log_Author"))&": "&HTMLEncode(cutStr(blog_Topicnewlist("log_Content"),200))&"'> "&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),16))&"</a><br>")
End IF
blog_Topicnewlist.MoveNext
Loop
End IF
Set blog_Topicnewlist=Nothing
End Sub
在分類前加小圖片的方法
首先打開include/library.asp
找下面的代碼：
Sub CategoryList '分类列表
Dim blog_CategoryNums,blog_CategoryNumI
blog_CategoryNums=Ubound(Arr_Category,2)
For blog_CategoryNumI=0 To blog_CategoryNums
Response.Write(" | <a href=""default.asp?cateID="&Arr_Category(0,blog_CategoryNumI)&""">"&Arr_Category(1,blog_CategoryNumI)&"</a>")
然後替換成：
Sub CategoryList '分类列表
Dim blog_CategoryNums,blog_CategoryNumI
blog_CategoryNums=Ubound(Arr_Category,2)
For blog_CategoryNumI=0 To blog_CategoryNums
Response.Write(" | <img src=images/"&blog_CategoryNumI&".gif></img><a href=""default.asp?cateID="&Arr_Category(0,blog_CategoryNumI)&""">"&Arr_Category(1,blog_CategoryNumI)&"</a>")
換成后你在你的images文件夾裏加上對應的圖片 比如分類的ID是1 就在images裏加上1.gif的圖片 2就加上2.gif 如此類推！！當然你可以自己設定放圖片的地址 如在images加一個叫fenlei的文件夾就把
<img src=images/"&blog_CategoryNumI&".gif
改成：
<img src=images/fenlei/"&blog_CategoryNumI&".gif
問題：上傳中文文件出現亂碼
解決： 把include/upfile.asp裏面的兩個
tStream.Charset = "GB2312"
改成：
tStream.Charset = "UTF-8"
引用通告地址 (0)：
http://fourfourmusic.cn/blog/trackback.asp?tbID=728
http://fourfourmusic.cn/blog/trackback.asp?tbID=728&CP=GBK