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"

这是随机显示方法

(0)

相关推荐

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

  • destoon首页调用求购供应信息的地区名称的方法

    本文实例主要实现了在destoon首页调用求购供应信息的地区名称.这是destoon开发中比较实用的的一个技巧. 实现代码如下: {loop $tags $k $t} [{area_pos($t[areaid], '/', 1)}]{$t[title]} {/loop} 代码说明如下: $t[areaid], '/', 1 第二个参数是地区与子地区的分隔符 第三个参数可选:设为1只显示一级地区分类:设为2显示二级地区分类等.

  • DEDECMS首页调用图片集里的多张图片

    先找到include/common.inc.php文件,把下面代码贴进去(我贴的是我网站上的,具体可根据需要修改): function Getimg($aid,$imgwith,$imgheight) { global $dsql; $imgurls = ''; $row =$dsql->getone( "select imgurls from dede_addonimages where aid='$aid' "); $imgurls= $row['imgurls'];//获取

  • Android仿淘宝首页头条View垂直滚动效果

    之前本来是打算做TextView垂直向上滚动的,后来发现一位大神做得很好,https://github.com/sfsheng0322/MarqueeView 孙福生大神,然后自己要用到多个View向上滚动,也就是类似淘宝首页头条的那种滚动,所以就按照那个思路想了系啊,可以把View拿来滚动,这样可以自己随意的修改View里面的内容,还比较简单一些.所以这个整个思路就是把View就行循环滚动. 看一下循环滚动View的内容咋写的吧,非常简单. package com.dreamlive.upma

  • Python探针完成调用库的数据提取

    目录 1.简单粗暴的方法--对mysql库进行封装 2.Python的探针 3.制作探针模块 4.直接替换方法 5.总结 1.简单粗暴的方法--对mysql库进行封装 要统计一个执行过程, 就需要知道这个执行过程的开始位置和结束位置, 所以最简单粗暴的方法就是基于要调用的方法进行封装,在框架调用MySQL库和MySQL库中间实现一个中间层, 在中间层完成耗时统计,如: # 伪代码 def my_execute(conn, sql, param): # 针对MySql库的统计封装组件 with M

  • python如何实现API的调用详解

    目录 前言 API 数据接口 API的调用和数据接口的调用 调用的基础-请求方法 几种常见API调用实例 百度AI相关API 百度地图API 有道API uuid sign 常用API分享 总结 前言 在日常工作中,可能需要结合网上现在的一些API或者公司提供的数据接口来得到相应的数据或者实现对应的功能. 因此API的调用和数据接口的访问都是做数据分析的一个常用操作,如何快速实现API和数据接口的调用,网上一般提供很多语言版本,但追根溯源采取的方式都是利用HTTP请求的方式来进行实现的.由于本人

  • SXNA RSS Blog 聚合器程序

    更新说明1,增加LBS皮肤模板2,增加PjBlog皮肤模板3,增加Oblog皮肤模板与导入程序4,改变Z-Blog,LBS,PjBlog皮肤模板选择方式5,首页显示增加原文档RSS调用6,首页调用增加原文档RSS调用,网站名称调用,最后更新时间调用,网站描述调用.7,细微调整了皮肤结构8,修正导入导出Bug9,修正高级搜索Bug10,尝试性修正在国外网站不能访问数据库的错误SXNA1.7下载链接: http://www.sxna.cn/forum/down/core/sxna17.rarSXNA

  • .NET2.0环境下的Ajax选型和应用(提供Demo源码下载)

    主题:.NET2.0环境下的Ajax选型和应用 研究需要解决的问题: 1 Ajax 应用框架的选型及其性能对比 2 如何应用 Ajax 3 应用 Ajax 过程中应该着重注意的问题 研究者: Jimmy.Ke 时间: 2006-11-13 一 Demo说明 Ajax Demo Web Site 是一个完整的 .NET Website ,其中包含 5 个 ASPX 页面及其对应的 CS 文件. 为了方便对比, Demo 中使用了三种 Ajax 应用方式: 一是使用微软提供的 Atlas 应用框架,

  • 详解java集成支付宝支付接口(JSP+支付宝20160912)

    吐槽一下: 支付宝的接口和微信的DEMO和文档真心太难看懂了,乱七八糟,都不知道去哪里找自己要的东西,最近几天我们公司需要做类似的开发,我作为先锋,率先解决Java集成支付宝支付和微信支付接口工作. 我们的工作环境:JSP网站+支付接口,目前工作的支付宝接口为20160912,微信为V3版本,如遇到版本升级,请联系相关机构的客户服务人员升级. 本文介绍JSP+支付宝接口,本文非原创. 新手注意: 1.本文使用的接口地址和参数为沙箱的地址,无论你在使用沙箱或者正式地址,务必核实使用接口地址和参数,

  • PHP通过bypass disable functions执行系统命令的方法汇总

    一.为什么要bypass disable functions 为了安全起见,很多运维人员会禁用PHP的一些"危险"函数,例如eval.exec.system等,将其写在php.ini配置文件中,就是我们所说的disable functions了,特别是虚拟主机运营商,为了彻底隔离同服务器的客户,以及避免出现大面积的安全问题,在disable functions的设置中也通常较为严格. 攻与防是对立的,也是互相补充的,既然有对函数的禁用措施,就会有人想方设法的去突破这层限制,我们只有在掌

随机推荐