猪圈

有人说出错，所以这次我把源代码放上供需要的人自己修改，
此文件只适合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&"

显示模式: 默认视图 | 文章列表

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

CGI.NET 发表于 2004年12月22日 12:53 | 全文

搜索

搜索此 Blog:

关于

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

此 Blog 的前一篇日记是 就快圣诞了，祝大家圣诞快乐！。

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

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

订阅 RSS feed
[这是什么？]

此 Blog 中的日记遵循以下授权 Creative Commons(创作共用)授权.

Powered by
Movable Type 6.3.2