PJ Blog修改-将首页改为全局模式

<!--#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")="" and request("display")="" then%>
<table width=100%><%
Dim CateRS
Dim Trd
Set CateRS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_category where cate_outlink=0 order by cate_Order"
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">
<%
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
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"),28))&"</a>")
Response.Write("<br>")
RS.Movenext
row=row+1
if row=10 then
Exit do
end if
Loop
%>
<div align="right"><a href="default.asp?ID=<%=CateRS("cate_id")%>">MORE</a> </div>
<%
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>
<table width=100%>
<td width=50% valign="top" style="padding-right:5px;">
<div class="Content">
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle">Commonts</h1></div>
<div class="Content-body">
<%Dim RS,row
row=0
SQLQueryNums=0
Set RS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_Comment order by comm_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
Response.Write("<img src=""images/reply.gif""> <a href=""default.asp?ID="&RS("BLOG_ID")&"#comm_"&RS("comm_ID")&""">"&HTMLEncode(cutStr(RS("comm_Author"),28))&"说:"&HTMLEncode(cutStr(RS("comm_content"),28))&"</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>
<td width=50% valign="top" style="padding-right:5px;">
<div class="Content">
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle">Messages</h1></div>
<div class="Content-body">
<%
row=0
SQLQueryNums=0
Set RS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_book order by book_PostTime desc"
RS.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If RS.Eof And RS.Bof Then
Response.Write("None")
Else
Do While Not RS.Eof
if book_HiddenReply then
Response.Write("<img src=""images/email.gif""> <a href=""LoadMod.asp?plugins=GuestBookForPJBlog#book_"&RS("book_ID")&""">"&HTMLEncode(cutStr(RS("book_messager"),28))&"说:"&HTMLEncode(cutStr(RS("book_content"),28))&"</a>")
else
Response.Write("<img src=""images/email.gif""> <a href=""LoadMod.asp?plugins=GuestBookForPJBlog#book_"&RS("book_ID")&""">"&HTMLEncode(cutStr(RS("book_messager"),28))&"说:隐藏留言</a>")
end if
Response.Write("<br>")
RS.Movenext
row=row+1
if row=10 then
Exit do
end if
Loop
%>
<div align="right"><a href="LoadMod.asp?plugins=GuestBookForPJBlog">MORE</a> </div>
<%
End If
RS.Close
Set RS=Nothing%><br></div></td>
</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" -->