Pjblog implementation of a similar CMS home page call _ Application Tips

Oh more interesting to see http://5e8.com/blog/index.asp
That's how it works. Http://pjblog.yyld.net/article.asp?id=31 from the Sun
Modify the Default.asp and recommend that you copy it as a backup before modifying it.

Found it:
<div class= "Content-top" ><div class= "Contentleft" ></div>

Amended to

<div class= "Content-top" ><div class= "Contentleft" ></div>

The total code after the modification is

Copy Code code as follows:

<!--#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" >
<% ' main body part!%>
<%
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 ("Server data read failed!") ")
Else
Response.Write ("<tr>")
Do as not caters.eof
If Int (TRD/2) =TRD/2 and trd<>0 Then Response.Write ("</tr><tr>")
%>
&LT;TD width=50% valign= "Top" style= "padding-right:5px;" >
<div class= "Content" >
<div class= "Content-top" ><div class= "Contentleft" ></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 but not RS. Eof
Log_id=rs ("log_id")
Response.Write (" <a href=" "default.asp?id=" &log_ID& "" > "& HTMLEncode (Cutstr (RS ("Log_title")) & "</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 ' Processing System sidebar module information%>
<div id= "sidebar" >
<div id= "Innersidebar" >
<div id= "sidebar-topimg" ><!--the top of the tool bar image--></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"-->

Did everyone notice


Sql= "Select * from Blog_content where log_cateid=" &caters ("cate_id") & "ORDER BY log_posttime Desc"

Put
Sql= "Select * from Blog_content where log_cateid=" &caters ("cate_id")
Replace into
Sql= "Select * from Blog_content where log_cateid=" &caters ("cate_id") & "ORDER BY log_posttime Desc"

This is a random display method.