pjblog實現類似CMS的首頁調用

2024-05-04 10:58:30

字體：大中小

來源：轉載

供稿：網友

呵呵比較有意思可以看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>

修改完成后的總代碼是
復制代碼代碼如下:

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

上一篇：[轉]ASP實現關鍵詞獲取(各搜索引擎,GB2312及UTF-8)

下一篇：PJBLOG使用技巧

發表評論

共有條評論