« 就快圣诞了,祝大家圣诞快乐! | (回到Blog入口) | 从管理学看 SEO 和 SEF 之 5W1H »

为BOLG增加树型显示功能的文件!(更新)

有人说出错,所以这次我把源代码放上供需要的人自己修改,
此文件只适合1.06和1.08的ACCESS版本,SQL的没有尝试过,
请安装时候做好必要的备份工作,祝大家圣诞愉快
1.第8行 找到 Dim log_Year,log_Month,log_Day,cateID,SQLFiltrate 

有人说出错,所以这次我把源代码放上供需要的人自己修改,
此文件只适合1.06和1.08的ACCESS版本,SQL的没有尝试过,
请安装时候做好必要的备份工作,祝大家圣诞愉快
1.第8行 找到 Dim log_Year,log_Month,log_Day,cateID,SQLFiltrate

在后面增加 ,viewType,viewMode,sortBy 这3个变量

2.接下去的第9行(
[code]log_Year=CheckStr(Trim(Request.QueryString("log_Year")))[/code]之前)
插入代码

[code]viewMode=Session("viewMode")'显示模式函数开始
If Request.QueryString("viewMode")="list" Then
viewMode="list"
Session("viewMode")="list"
ElseIf Request.QueryString("viewMode")="normal" Then
viewMode="normal"
Session("viewMode")=""
End If
viewType=CheckStr(Trim(Request.QueryString("viewType")))'显示模式函数结束
[/code]
3.找到 Url_Add="?"

插入


[code]sortBy=Session("sortBy")'显示模式函数开始
If CheckStr(Trim(Request.QueryString("sortBy")))="" Then
sortBy="log_IsTop ASC,log_ID"
Session("sortBy")="log_IsTop ASC,log_ID"
ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_PostTime" Then
sortBy="log_PostTime"
Session("sortBy")="log_PostTime"
ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_CateID" Then
sortBy="log_CateID"
Session("sortBy")="log_CateID"
ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_ViewNums" Then
sortBy="log_ViewNums"
Session("sortBy")="log_ViewNums"
ElseIf CheckStr(Trim(Request.QueryString("sortBy")))="log_CommNums" Then
sortBy="log_CommNums"
Session("sortBy")="log_CommNums"
End If'显示模式函数结束
[/code]
4.找到 [code]SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C[/code]

[code]If viewMode="list" Then'显示模式修改开始
SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY "&sortBy&" DESC"
End IF'显示模式修改结束
[/code]
5.找到
[code] Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather[/code]
在其下面一行加入

[code]If viewMode="list" Then blogPerPage=blogPerPage*6'显示模式修改:1表示倍数[/code]
6.找到代码块

[code]Response.Write(MultiPages)
Response.Write("

")

[/code]

替换为

[code]Response.Write("

"&MultiPages&"显示模式: 默认视图 | 文章列表
")'显示模式修改开始
Response.Write("
")
If viewMode="list" Then Response.Write("")'显示模式修改结束
[/code]

7.找到
[code]Response.Write("

")
[/code]
替换为
[code]If viewMode="list" Then'显示模式修改开始
Response.Write("
")
Else
Response.Write("
")'显示模式修改结束
[/code]
8.最后一步!注意到第7步刚刚加入一个if判断函数但没有End if 结束它 所以务必找到

[code]webLog.MoveNext[/code]
在其上面一行加入 End if 以结束第7步这个判断函数。
修改完毕,剩下的就是些调整页面的事情,如果还有问题可以参考下载文件里的内容修改
[down=attachments/month_0412/a8zd_default.rar]点击下载此文件[/down]

关于

此页面包含了发表于2004年12月22日 12:53的 Blog 上的单篇日记。

此 Blog 的前一篇日记是 就快圣诞了,祝大家圣诞快乐!

此 Blog 的后一篇日记是 从管理学看 SEO 和 SEF 之 5W1H

更多信息可在 主索引 页和 归档 页看到。

Creative Commons License
此 Blog 中的日记遵循以下授权 Creative Commons(创作共用)授权.
Powered by
Movable Type 6.3.2
文章列表          排序方式:发表时间,分类,查看数,评论数
["&webLog("cate_Name")&"] - "&webLog("log_Title")&""&log_Author&""&DateToStr(webLog("log_PostTime"),"Y-m-d H:I A")&""&webLog("log_CommNums")&"|"&webLog("log_QuoteNums")&"|"&webLog("log_ViewNums")&"