博道--博客优化

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://blogway.blogbus.com/logs/11139516.html

很遗憾blogbus不支持日志置顶的功能。

不过当初我看中blogbus就是他可以自由加代码的优点。所以肯定有解决的办法。

于是在搜索时，不经意间发现了这个有用的代码。

把以下这个代码插入到[--diarys--]（index模板中--选择旧模板）之前即可。

<script language=VBScript>
dim
EntryUrl
EntryUrl="置顶帖子的URL"
set
HtmlRes=createobject("Microsoft.XMLHTTP")
HtmlRes.open
"get",EntryUrl,false 《博客美化DIY》
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>

不过需注意的是这个代码不是早任何模板中都实用。所以在编制代码的时候要备份代码