呵呵比较有意思可以看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"
这是随机显示方法