Rison

引用:

拓展功能：   增强用户体验，给评论加上楼层提示
修 改 者：   Rison
发布时间：   2008-06-03
适用版本：   v2.6、v2.7
拓展演示：   去抢个楼就看到了
修改文件：   cls_article.asp

沙发、板凳、地板，很多优秀的博客里都会有很多拥护者，为了占据第一页的留言，他们可能会彻夜等待博主发博，然后抢占沙发。那天闲的无聊，突然想起给评论加上沙发、板凳、地板，也就用了20分钟，就完成了，觉得很有意思，也增强了会员的访问乐趣，我博客里大家可以尽情的灌水，呵呵！这是个自由之地。

要说明一下的是，PJ默认的评论顺序的按时间倒序的，所以我们要在这里把评论给改成正序才能看出沙发出来。

加个演示：


修改非常的简单，仅修改cls_article.asp一个文件
1、首先把博客里的评论都改成正序排列，找到

复制内容到剪贴板

代码:

if log_ViewArr(6,0) then comDesc="Desc" else comDesc="Asc" end If

修改成

复制内容到剪贴板

代码:

if log_ViewArr(6,0) then comDesc="Asc" else comDesc="Desc" end If

2、找到

复制内容到剪贴板

代码:

dim blog_Comment,Pcount,comm_Num,blog_CommID,blog_CommAuthor,blog_CommContent,Url_Add,commArr,commArrLen

在后面添加

复制内容到剪贴板

代码:

,Floor

3、找到

复制内容到剪贴板

代码:

blog_CommContent=commArr(1,Pcount)

在下面添加

复制内容到剪贴板

代码:

Floor=Pcount+1+(CurPage-1)*blogcommpage

4、找到下面代码，原版PJ有2段一样的，如果你修改了评论回复可能会有3段

复制内容到剪贴板

代码:

<div class="commenttop">

5、在这两段的的后面都添加如下代码（回复的那段不要加）

复制内容到剪贴板

代码:

<span style="float:right;"><strong><%if Floor=1 then%>沙发<%elseif Floor=2 then%>板凳<%elseif Floor=3 then%>地板<%else%><%=Floor%> 楼<%end if%></strong></span>

OK，这次修改完毕，如果还想要完美，就修改发表日志页面blogpost.asp、blogedit.asp，将“倒序”修改为“正序”。

还是那句话：方法告诉给你了，就看你自己再去发挥了！

有什么问题欢迎反馈

[ 本帖最后由 Rison 于 2008-6-3 17:40 编辑 ]

紫仁

强帖  抢座..

四川-果果

抢个板凳！

dudo

地板！

戒聊

马桶。

Dziku_D

水沟

Dziku_D

这个不错~~~我这的沙发很大

cosh

地下室

bullfrog

补充一下，如果想要在倒序的时候仍然正确显示沙发，板凳等，可以将

复制内容到剪贴板

代码:

Floor=Pcount+1+(CurPage-1)*blogcommpage

改为：

复制内容到剪贴板

代码:

Floor=comm_Num - (Pcount + 1 + (CurPage-1)*blogcommpage) + 1

不过这个时候，前面的

复制内容到剪贴板

代码:

if log_ViewArr(6,0) then comDesc="Desc" else comDesc="Asc" end If

就不需要更改了，保持原样即可。

bullfrog

引用:

原帖由 bullfrog 于 2008-6-4 01:21 发表
补充一下，如果想要在倒序的时候仍然正确显示沙发，板凳等，可以将Floor=Pcount+1+(CurPage-1)*blogcommpage改为：Floor=comm_Num - (Pcount + 1 + (CurPage-1)*blogcommpage) + 1不过这个时候，前面的if log_ViewAr ...

今天突然想到，再次补充，如果将

复制内容到剪贴板

代码:

Floor=Pcount+1+(CurPage-1)*blogcommpage

改为：

复制内容到剪贴板

代码:

If comDesc = "Desc" Then
         Floor=comm_Num - (Pcount + 1 + (CurPage-1)*blogcommpage) + 1
      Else
        Floor = Pcount + 1 + (CurPage-1)*blogcommpage
      End If

的话，那么系统就可以自动判断评论顺序然后产生相应的楼层顺序了。（前提还是不修改if log_ViewArr(6,0) then comDesc="Desc" else comDesc="Asc" end If那行代码）