|
|
呵呵比较有意思可以看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"
这是随机显示方法
|
|
发表于 2007-2-5 00:00:00
