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=>
修改为 
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle""><a href=>修改完成后的总代码是 
[复制此代码]CODE:

<!--#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=>              <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=""/upload/2008/11/30/20081130332381.gif""> <a href=>      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" 
这是随机显示方法  

上一个：ASP实现头像图像随机变换
下一个：pjblog中清空引用的小程序