pjblog实现类似CMS的首页调用

!--#include file="BlogCommon.asp" -->
!--#include file="header.asp" -->
!--#include file="common/ModSet.asp" -->
!--#include file="plugins.asp" -->
!--#include file="class/cls_default.asp" -->
!--#include file="class/cls_logAction.asp" -->
  div id="Tbody">
  div id="mainContent">
   div id="innermainContent">
       div id="mainContent-topimg">/div>
    %=content_html_Top_default%>
    div id="Content_ContentList" class="content-width">
    %'主體部分!%>
  %
  if request("cateid")="" then%>
           table width=100%>%
  Dim CateRS
   Dim Trd
   Set CateRS=Server.CreateObject("Adodb.RecordSet")
   SQL="Select * FROM blog_category where cate_outlink=0"
   CateRS.Open SQL,Conn,1,1
   If CateRS.Eof And CateRS.Bof Then
    Response.Write("服务器数据读取失败！")
   Else
    Response.Write("tr>")
    Do While Not CateRS.Eof
    If int(trd/2)=trd/2 and trd>0 then Response.Write("/tr>tr>")
  %>
              td  width=50% valign="top" style="padding-right:5px;">
              div class="Content">
              div class="Content-top">div class="ContentLeft">/div>h1 class="ContentTitle"">a href="default.asp?cateID=%=CateRS("cate_id")%>">%=CateRS("cate_Name")%>/a>/h1> /div>
              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%>
       div id="sidebar-bottomimg">/div>
    /div>
   /div>
   div style="clear: both;height:1px;overflow:hidden;margin-top:-1px;">/div>
/div>
!--#include file="footer.asp" -->