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" -->