blogbus让日志置顶的代码

时间:2007-03-06 08:57:12 字体:[大 中 小] 收藏 我要投稿

BlogBus没有日志置顶的功能. 于是我写了代码来实现此功能.

首先进入模版设置, 把公用模版导入到自定义模版中. 编辑自定义模版>"Index模版". 把"日志置顶"代码插入到"[--  diarys  --]"之前.

打开要置顶的文章(必须是"全文阅读"), 复制出地址栏的URL. (应该是http://username.blogbus.com/logs/2007/08/1234567.html这样的形式). 把得到的URL替换掉"日志置顶"代码中"EntryUrl"的值. 保存后发布重建, Blog就有了单帖置顶的功能.

以后如果要更改置顶日志, 只要把代码中"EntryUrl"的值该掉即可.

日志置顶代码:

<script language=VBScript>
dim EntryUrl
EntryUrl="这里是要置顶帖子的URL"
set HtmlRes=createobject("Microsoft.XMLHTTP")
HtmlRes.open "get",EntryUrl,false
HtmlRes.send

dim StartPos, EndPos, EntryText
StartPos = InStr(1, HtmlRes.responseText, "<div class=" & Chr(34) & "entry" & Chr(34) & ">", 1)
EndPos = InStr(1, HtmlRes.responseText, "<DIV id=" & Chr(34) & "comments" & Chr(34) & ">", 1)

EntryText= Mid(HtmlRes.responseText, StartPos, EndPos-StartPos-6) & "</div>"

EntryText=replace(EntryText,"<h2><a href=", "<h2><B>置顶: </B><a href=")

EntryText=replace(EntryText,"<h2><B>置顶: </B><a href=" & Chr(34) & "#" & Chr(34) & ">", "<h2><B>置顶: </B><a href=" & Chr(34) & EntryUrl & Chr(34) &">")


dim PosTable1, PosTable2
PosTable1=InStr(1, EntryText, "<table width=" & Chr(34) & "468", 1)
PosTable2=InStr(PosTable1, EntryText, "</table>", 1)

EntryText=Left(EntryText, PosTable1-1) & Right(EntryText, Len(EntryText)-PosTable2-7)

document.write EntryText

set HtmlRes=nothing
</script>

特别说明: 由于公用模版的代码不同, 并不是所有模版都适用"日志置顶代码".

目前测试过可用的模版列表: 丝绒板; 双鱼重生; 1982; 乐@风; Lova Highway; Pennyroyal Tea; 湖水·印象; Lova Passion

暂时不能使用的模版列表: 实验2; Shanghai Sunrise; Summerblue; Just set it free; LOVA系列1~7; 复兴公园; 霁月

别的模版还未做测试.

如果发现"日志置顶代码"不能在你的Blog上正常使用, 请留下Blog地址和联系方式. 如果你的模版在"不能使用列表"内或者是自定义模版, 也请留下Blog地址和联系方式.

上一篇：随机浏览BlogBUS 的日志的代码
下一篇：为你的blogbus指定日志加上密码
E-mail:admin@bokedm.com 20秒注册会员 结交博客爱好者 分享你的精彩
博友观点(2) 查看所有评论
评论加载中…
相关文章
2007-03-06 08:58:42为你的blogbus指定日志加上密码
2007-03-06 08:57:12blogbus让日志置顶的代码
2007-03-06 08:55:48随机浏览BlogBUS 的日志的代码
2007-03-06 08:53:48恢复blogbus里的数据的方法
2007-03-06 08:51:03最新为BlogBus单篇日志加密的代码
2007-03-06 08:49:01如何在BLOGBUS的应用UBB代码?

热门分享

推荐精品