花褪残红青杏小。燕子飞时,绿水人家绕。

Zblog前台调用某篇文章的回复

ZBLOG教程 十五楼的鸟儿 24095浏览 0评论

修改BUSFLY插件得到的结果,最近留言部分

 
  1.  Function busfly_randomsort_BlogReBuild_GuestComments()
  2.  if busfly_randomsort_isGuestComments=1 then
  3.  'Dim busfly_randomsort_objRS1
  4.  'Dim objStream
  5.  'Dim busfly_randomsort_objArticle
  6.  
  7. 'Comments
  8. Dim strComments
  9.  
  10. Dim s
  11. Dim i
  12. 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")
  13. If (Not busfly_randomsort_objRS1.bof) And (Not busfly_randomsort_objRS1.eof) Then
  14.  For i=1 to busfly_randomsort_NUM_GuestComments
  15.  s=busfly_randomsort_objRS1("comm_Content")
  16. s=Replace(s,vbCrlf,"")
  17. s=busfly_randomsort_cutTitle(s,busfly_randomsort_INTCUTLEN)
  18.  
  19. 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>"
  20.  
  21. busfly_randomsort_objRS1.MoveNext
  22. If busfly_randomsort_objRS1.eof Then Exit For
  23. Next
  24. End If
  25. busfly_randomsort_objRS1.close
  26. Set busfly_randomsort_objRS1=Nothing
  27.  
  28. strComments=TransferHTML(strComments,"[no-asp]")
  29.  
  30. Call SaveToFile(BlogPath & "/include/bfguestcomments.asp",strComments,"utf-8",True)
  31.  
  32. busfly_randomsort_BlogReBuild_GuestComments=True
  33. end if
  34. End Function

 

其中WHERE [log_ID]=216   是你的那篇要调用的文章的ID~


转载请注明:鸟儿博客 » Zblog前台调用某篇文章的回复

与本文相关的文章

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址