世界之窗论坛 - Powered by Discuz! Board

标题: 有谁用blogbus进来交流一下 [打印本页]

作者: Kyuurayi 时间: 2007-7-30 15:58 标题: 有谁用blogbus进来交流一下

http://www.blogbus.com

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

作者: 审美疲劳 时间: 2007-7-30 18:09

记得楼主说过自己很懒。

我就用狗狗搜索了一下。如下

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

作者: DIFIRE 时间: 2007-7-30 18:20

刚开始用blogbus，真的不错！

作者: 那巴尔 时间: 2007-7-30 22:38

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

欢迎光临世界之窗论坛 (http://bbs.theworld.cn/)