• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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"

    这是随机显示方法 
    上一篇:光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
    下一篇:ASP实现头像图像随机变换
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    pjblog实现类似CMS的首页调用 pjblog,实现,类似,CMS,的,首页,