时间: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邮箱联系删除。
介绍下帝国cms实现网站首页用灵动标签调用文章内容的方法以下是灵动标签的调用方法[e:loop={'58,59,60,61',1,13,0}]
本文实例讲述了帝国CMS实现高效随机调用的方法。分享给大家供大家参考。具体实现方法如下:帝国CMS用ORDERBYRAND()随机调用是最耗资源的一种调用方式,
本文实例讲述了帝国CMS首页调用内容页下载地址的方法。分享给大家供大家参考。具体实现方法如下:复制代码代码如下:[e:loop={'download&#
本文实例讲述了帝国CMS在首页列表页模板调用内容页下载地址的方法。分享给大家供大家参考。具体实现方法如下:[e:loop={'download',10,23,0
为了让TAGS、碎片、专题等调用信息也可以使用类似灵动标签方式来调用,帝国CMS7.0新增了“索引灵动标签”,使调用信息更强大灵活。灵动