pjblog实现类似CMS的首页调用(2)

              <div class="Content-body">
    <%Dim RS,row
    row=0
    Set RS=Server.CreateObject("Adodb.RecordSet")
    SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")&" order by log_posttime desc"
    RS.Open SQL,Conn,1,1
    SQLQueryNums=SQLQueryNums+1
    If RS.Eof And RS.Bof Then
     Response.Write("None")
    Else
     Dim log_Weather,log_ID
     Do While Not RS.Eof
      log_ID=RS("log_ID")
      Response.Write("<img src=""images/code.gif""> <a href=""default.asp?ID="&log_ID&""">"&HTMLEncode(cutStr(RS("log_Title"),42))&"</a>")
      Response.Write("<br>")
      RS.Movenext
      row=row+1
              if row=10 then
           Exit do
              end if
     Loop
    End If
    RS.Close
    Set RS=Nothing%><br></div></td>
  <%
   trd=trd+1
             ' if trd=10 then
       '    Exit do
              'end if
   CateRS.Movenext
   Loop
   End if
   CateRS.Close
   Set CateRS=Nothing
  %>
  </table>
<%else%><%ContentList%>
<%end if%></div>
    <%=content_html_Bottom_default%>
       <div id="mainContent-bottomimg"></div>
   </div>
   </div>
   <%Side_Module_Replace '处理系统侧栏模块信息%>
   <div id="sidebar">
    <div id="innersidebar">
       <div id="sidebar-topimg"><!--工具条顶部图象--></div>
     <%=side_html_default%>