Iwish Space

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

编辑自定义模版>"Index模版". 把"日志置顶"代码插入到"[--  diarys  --]"之前.

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

<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; 复兴公园; 霁月