V7.02版本论坛的几处小修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

6974 查看	10 回复

主题：[分享]V7.02版本论坛的几处小修改 [收藏主题]

转到：

悠客当前离线

213 主题	15 广播	7 粉丝

级别:二年级

用户积分:996 分
登录次数:401 次
注册时间:2010/11/8
最后登录:2019/10/28

悠客发表于：2010/12/2 16:47:31 | 显示全部帖子查看该作者主题楼主

做线上考试培训就选#科汛网校

今天测试了下V7.02，发现论坛还有几个小问题，现修正如下。

1、论坛内容页面发帖者头像不能显示会员上传的图片。

下面是修改方法：

打开Ks_Cls/Kesion.ClubCls.asp，找到（大概在967行）

复制代码

if lcase(left(userfacesrc,4))<>"http" then userfacesrc="../" & userfacesrc

这句代码，改为

复制代码

if lcase(left(userfacesrc,4))<>"http" and Left(userfacesrc,1)<>"/" then userfacesrc="../" & userfacesrc

即可正常显示。

2、发帖人关闭浏览器后，仍然显示“当前在线”的修改（方法仅供讨论）。

先说下我的思路：

现在官方判断论坛发帖会员是否离线是根据该会员是否退出登录来判断的，也就是判断数据库里的isonline字段输出值是否等于1，如果为0则判断该用户离线。事实上如果会员不执行“退出登录”就关闭浏览器，即使在N小时后，在论坛内容页看该会员的在线状态，还是显示“当前在线”，这应该是一个BUG。假如以该会员登录时间与当前时间进行比较，如果超过后台设置的“删除不活动用户时间”，那么该会员才算是真正处于离线状态。

下面是修改方法：

打开Ks_Cls/Kesion.ClubCls.asp，找到（大概在993行）

复制代码

If UN.SelectSingleNode("@isonline").text="1" Then
echo "<div class=""username"">" & PostUserName & " <span style='color:#ff6600'>当前在线</span></div>"
Else
echo"<div class=""username"">" & PostUserName & " <span style='color:#888888'>当前离线</span></div>"
End If

将这段代码改为

复制代码

If UN.SelectSingleNode("@isonline").text="0" or KS.IsNul(Application("LastUpdateTime")) or (IsDate(Application("LastUpdateTime")) and DateDiff("n",Application("LastUpdateTime"),Now)>CLng(KS.Setting(8))) Then
echo "<div class=""username"">" & PostUserName & " <span style='color:#888888'>当前离线</span></div>"
Else
echo "<div class=""username"">" & PostUserName & " <span style='color:#ff6600'>当前在线</span></div>"
End If

欢迎大家进行测试。

3、网站放在二级目录下测试，点击论坛顶部的“登录”、“注册”无法正常进入相关页面。

下面是修改方法：

打开Images/Club/Club.js，找到function ShowLogin()这个函数（大概在542行），查找

复制代码

p.popupIframe('<img src="/user/images/icon18.png" align="absmiddle">会员登录','/user/userlogin.asp?Action=Poplogin',430,204,'no');}else{

改为

复制代码

p.popupIframe('<img src="../user/images/icon18.png" align="absmiddle">会员登录','../user/userlogin.asp?Action=Poplogin',430,204,'no');}else{

即可。

4、网站放在二级目录下测试，回复贴无法显示常用表情图标。

下面是修改方法：

打开KS_Cls/Kesion.Label.CommonCls.asp，找到

复制代码

c=replace(c,"[em"&NS &"]","<img title='" & strarr(k-1) & "' alt='" & strarr(k-1) & "' src='" & KS.Setting(2) & "/editor/ubb/images/smilies/default/" & NS & ".gif'>")

改为

复制代码

c=replace(c,"[em"&NS &"]","<img title='" & strarr(k-1) & "' alt='" & strarr(k-1) & "' src='" & KS.GetDomain & "editor/ubb/images/smilies/default/" & NS & ".gif'>")

5、论坛内容页底部“返回列表”无法返回当前栏目首页的解决

修改方法见http://bbs.kesion.com/forumthread-173247.html