pjblog实现类似CMS的首页调用

编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
呵呵比较有意思可以看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"

这是随机显示方法 

Copyright © 2016-2025 www.dzhlxh.cn 金源码 版权所有 Power by

网站模板下载|网络推广|微博营销|seo优化|视频营销|网络营销|微信营销|网站建设|织梦模板|小程序模板