有谁用blogbus进来交流一下 blogbus, 交流

Kyuurayi

http://www.blogbus.com

怎么把个贴置顶 HTML代码都忘记了

那巴尔

Blogbus做了好多年了，，模版是很不错，但功能上还有很多不尽人意之处，主要就是一些重要的东西都是靠编辑CSS等完成的，不爽。

DIFIRE

刚开始用blogbus，真的不错！

审美疲劳

记得楼主说过自己很懒。   我就用狗狗搜索了一下。如下


<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>