Sub NewBlogList '最新Bolg列表
  Response.Write("<div class=""siderbar_head""><img src=""images/news_types.gif"" border=""0"" align=""absmiddle"" /> 最新日

志</div><div class=""siderbar_main"">")
  Dim blog_Topicnewlist
  Set blog_Topicnewlist=Conn.Execute("SELECT TOP 10 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow FROM 

blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_PostTime DESC")
  IF blog_Topicnewlist.EOF AND blog_Topicnewlist.BOF Then
      Response.Write("暂无")
  Else
      Do While NOT blog_Topicnewlist.EOF
      IF blog_Topicnewlist("log_IsShow")=False Then
        Response.Write("<a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='隐藏日志，不显示预

览'>"&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),20))&"</a><br>")
      Else
      Response.Write("<a href='blogview.asp?logID="&blog_Topicnewlist("log_ID")&"' title='"&HTMLEncode(blog_Topicnewlist

("log_Title"))&"'>"&HTMLEncode(cutStr(blog_Topicnewlist("log_Title"),20))&"</a><br>")
      End IF
          blog_Topicnewlist.MoveNext
      Loop
  End IF
  Set blog_Topicnewlist=Nothing
End Sub

Sub hotBlogList '最热Bolg列表
  Response.Write("<div class=""siderbar_head""><img src=""images/sider_hot.gif"" border=""0"" align=""absmiddle"" /> 最热日志

</div><div class=""siderbar_main"">")
  Dim blog_hotlist
  Set blog_hotlist=Conn.Execute("SELECT TOP 10 T.log_ID,T.log_Title,T.log_Author,log_Content,log_IsShow,log_ViewNums FROM 

blog_Content T,blog_Category C WHERE T.log_cateID=C.cate_ID ORDER BY T.log_ViewNums DESC")
  IF blog_hotlist.EOF AND blog_hotlist.BOF Then
      Response.Write("暂无最热日志")
  Else
      Do While NOT blog_hotlist.EOF
      IF blog_hotlist("log_IsShow")=False Then
        Response.Write("<a href='blogview.asp?logID="&blog_hotlist("log_ID")&"' title='隐藏日志，不显示预览'>"&HTMLEncode

(cutStr(blog_hotlist("log_Title"),20))&"</a><br>")
      Else
      Response.Write("<a href='blogview.asp?logID="&blog_hotlist("log_ID")&"' title='"&HTMLEncode(blog_hotlist("log_Title"))

&"'>"&HTMLEncode(cutStr(blog_hotlist("log_Title"),20))&"</a><br>")
      End IF
          blog_hotlist.MoveNext
      Loop
  End IF
  Set blog_hotlist=Nothing
End Sub