pjblog实现类似CMS的首页调用

时间:2021-05-26

呵呵比较有意思可以看http://5e8.com/blog/index.asp
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp,建议修改前先复制一份作为备份。

找到:
<divclass="Content-top"><divclass="ContentLeft"></div><h1class="ContentTitle"><ahref=""default.asp?ID="&CateRS("cate_id")&"""><%=CateRS("cate_Name")%></a></h1></div>


修改为

<divclass="Content-top"><divclass="ContentLeft"></div><h1class="ContentTitle""><ahref="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1></div>

修改完成后的总代码是
复制代码 代码如下:
<!--#includefile="BlogCommon.asp"-->
<!--#includefile="header.asp"-->
<!--#includefile="common/ModSet.asp"-->
<!--#includefile="plugins.asp"-->
<!--#includefile="class/cls_default.asp"-->
<!--#includefile="class/cls_logAction.asp"-->
<divid="Tbody">
<divid="mainContent">
<divid="innermainContent">
<divid="mainContent-topimg"></div>
<%=content_html_Top_default%>
<divid="Content_ContentList"class="content-width">
<%'主體部分!%>
<%
ifrequest("cateid")=""then%>
<tablewidth=100%><%
DimCateRS
DimTrd
SetCateRS=Server.CreateObject("Adodb.RecordSet")
SQL="Select*FROMblog_categorywherecate_outlink=0"
CateRS.OpenSQL,Conn,1,1
IfCateRS.EofAndCateRS.BofThen
Response.Write("服务器数据读取失败!")
Else
Response.Write("<tr>")
DoWhileNotCateRS.Eof
Ifint(trd/2)=trd/2andtrd<>0thenResponse.Write("</tr><tr>")
%>
<tdwidth=50%valign="top"style="padding-right:5px;">
<divclass="Content">
<divclass="Content-top"><divclass="ContentLeft"></div><h1class="ContentTitle""><ahref="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1></div>
<divclass="Content-body">
<%DimRS,row
row=0
SetRS=Server.CreateObject("Adodb.RecordSet")
SQL="Select*FROMblog_Contentwherelog_cateId="&CateRS("cate_id")&"orderbylog_posttimedesc"
RS.OpenSQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
IfRS.EofAndRS.BofThen
Response.Write("None")
Else
Dimlog_Weather,log_ID
DoWhileNotRS.Eof
log_ID=RS("log_ID")
Response.Write("<imgsrc=""images/code.gif""><ahref=""default.asp?ID="&log_ID&""">"&HTMLEncode(cutStr(RS("log_Title"),42))&"</a>")
Response.Write("<br>")
RS.Movenext
row=row+1
ifrow=10then
Exitdo
endif
Loop
EndIf
RS.Close
SetRS=Nothing%><br></div></td>
<%
trd=trd+1
'iftrd=10then
'Exitdo
'endif
CateRS.Movenext
Loop
Endif
CateRS.Close
SetCateRS=Nothing
%>
</table>
<%else%><%ContentList%>
<%endif%></div>
<%=content_html_Bottom_default%>
<divid="mainContent-bottomimg"></div>
</div>
</div>
<%Side_Module_Replace'处理系统侧栏模块信息%>
<divid="sidebar">
<divid="innersidebar">
<divid="sidebar-topimg"><!--工具条顶部图象--></div>
<%=side_html_default%>
<divid="sidebar-bottomimg"></div>
</div>
</div>
<divstyle="clear:both;height:1px;overflow:hidden;margin-top:-1px;"></div>
</div>
<!--#includefile="footer.asp"-->

大家是不是注意到


SQL="Select*FROMblog_Contentwherelog_cateId="&CateRS("cate_id")&"orderbylog_posttimedesc"


SQL="Select*FROMblog_Contentwherelog_cateId="&CateRS("cate_id")
替换成
SQL="Select*FROMblog_Contentwherelog_cateId="&CateRS("cate_id")&"orderbylog_posttimedesc"

这是随机显示方法

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章