修改BUSFLY插件得到的结果，最近留言部分
- Function busfly_randomsort_BlogReBuild_GuestComments()
- if busfly_randomsort_isGuestComments=1 then
- 'Dim busfly_randomsort_objRS1
- 'Dim objStream
- 'Dim busfly_randomsort_objArticle
- 'Comments
- Dim strComments
- Dim s
- Dim i
- Set busfly_randomsort_objRS1=objConn.Execute("SELECT [log_ID],[comm_ID],[comm_Content],[comm_PostTime],[comm_Author] FROM [blog_Comment] WHERE [log_ID]=216 ORDER BY [comm_ID] DESC")
- If (Not busfly_randomsort_objRS1.bof) And (Not busfly_randomsort_objRS1.eof) Then
- For i=1 to busfly_randomsort_NUM_GuestComments
- s=busfly_randomsort_objRS1("comm_Content")
- s=Replace(s,vbCrlf,"")
- s=busfly_randomsort_cutTitle(s,busfly_randomsort_INTCUTLEN)
- strComments=strComments & "<li><a href="""& ZC_BLOG_HOST & "post/guestbook.html" & "#comment-1" & """ title=""" & busfly_randomsort_objRS1("comm_PostTime") & " post by " & busfly_randomsort_objRS1("comm_Author") & """>"+s+"</a></li>"
- busfly_randomsort_objRS1.MoveNext
- If busfly_randomsort_objRS1.eof Then Exit For
- Next
- End If
- busfly_randomsort_objRS1.close
- Set busfly_randomsort_objRS1=Nothing
- strComments=TransferHTML(strComments,"[no-asp]")
- Call SaveToFile(BlogPath & "/include/bfguestcomments.asp",strComments,"utf-8",True)
- busfly_randomsort_BlogReBuild_GuestComments=True
- end if
- End Function
其中WHERE [log_ID]=216 是你的那篇要调用的文章的ID~
转载请注明：鸟儿博客 » Zblog前台调用某篇文章的回复