9久草视频在线视频精品,欧美一区亚洲一区,欧美视频不卡

呵呵比較有意思可以看http://5e8.com/blog/index.asp
效果就是那樣的轉(zhuǎn)自http://pjblog.yyld.net/article.asp?id=31
修改default.asp，建議修改前先復(fù)制一份作為備份。

找到：
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>

修改完成后的總代碼是

復(fù)制代碼代碼如下:

!--#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("服務(wù)器數(shù)據(jù)讀取失??！") 
   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 '處理系統(tǒng)側(cè)欄模塊信息%> 
   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"

這是隨機(jī)顯示方法

標(biāo)簽：四平遼陽(yáng) 朝陽(yáng) 孝感湖北防城港平頂山馬鞍山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《pjblog實(shí)現(xiàn)類(lèi)似CMS的首頁(yè)調(diào)用》，本文關(guān)鍵詞 pjblog,實(shí)現(xiàn),類(lèi)似,CMS,的,首頁(yè),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。