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