pjblog实现类似CMS的首页调用

呵呵比较有意思可以看http://5e8.com/blog/index.asp
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp，建议修改前先复制一份作为备份。

找到：
<div class="content-top"><div class="contentleft"></div><h1 class="contenttitle"><a href=""default.asp?id="&caters("cate_id")&"""><%=caters("cate_name")%></a></h1> </div>


修改为

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

修改完成后的总代码是

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

大家是不是注意到


sql="select * from blog_content where log_cateid="&caters("cate_id")&" order by log_posttime desc"

把
sql="select * from blog_content where log_cateid="&caters("cate_id")
替换成
sql="select * from blog_content where log_cateid="&caters("cate_id")&" order by log_posttime desc"

这是随机显示方法