在线列表显示IP详细地址插件 for D6.0,6.10

结合
linuxbbs修改的在线列表中增加访问者IP地址和地理位置信息显示For 5.5
和
bluelovers修改的让D6可以使用wry.dat IP数据

1首先让D6可以使用wry.dat IP数据

编辑 /include/misc.func.php 文件，
找

1.                         if(@file_exists($tinyipfile)) {
   
2.                                 $return = convertip_tiny($ip, $tinyipfile);
   
3.                         } elseif(@file_exists($fullipfile)) {
   
4.                                 $return = convertip_full($ip, $fullipfile);
   
5.                         }

复制代码

替换为

1.                         if(@file_exists($fullipfile)) {
   
2.                                 $return = convertip_full($ip, $fullipfile);
   
3.                         } elseif(@file_exists($tinyipfile)) {
   
4.                                 $return = convertip_tiny($ip, $tinyipfile);
   
5.                         }

复制代码

找

1.         if(!$fd = @fopen($ipdatafile)) {
   
2.                 return '- Invalid IP data file';
   
3.         }

复制代码

替换为

1.         if(!$fd = @fopen($ipdatafile, 'rb')) {
   
2.                 return '- Invalid IP data file';
   
3.         }

复制代码

2、编辑 /member.php 文件，
查找

1. $onlinelist[] = $online;

复制代码

，在其上面一行加入如下代码：

1.         if($discuz_uid && in_array($adminid, array(1))){
   
2.                 require_once './include/misc.func.php';
   
3.                 $online['where']=convertip($online['ip']);
   
4.         }

复制代码

3、编辑 \templates\default\whosonline.htm 文件，
查找

<td>$online[ip] </td>

，将其替换成如下代码：

<td>
                  <!--{if $discuz_uid && in_array($adminid, array(1))}-->
                      $online[where]-<font color=#cccccc>[{$online[ip]}]</font>
                  <!--{else}-->
                      $online[ip]
                  <!--{/if}-->
        </td>

4、上传wry.dat 到 \ipdata目录下
到此操作完成，看看效果吧。



6.10
修改办法
6.1已经支持wry.dat IP数据了

1、编辑 /member.php 文件，
查找

1. $onlinelist[] = $online;

复制代码

在其上面一行加入如下代码：

1.         if($discuz_uid && in_array($adminid, array(1))){
   
2.                 require_once './include/misc.func.php';
   
3.                 $online['where']=convertip($online['ip']);
   
4.         }

复制代码

2、编辑 \templates\default\whosonline.htm 文件，
查找

1. <td>$online[ip] </td>

复制代码

，将其替换成如下代码：

1. <td><!--{if $discuz_uid && in_array($adminid, array(1))}-->$online[where]-<font color=#cccccc>[{$online[ip]}]</font><!--{else}-->$online[ip]<!--{/if}--></td>

复制代码

[ 本帖最后由 5569811 于 2008-9-12 10:54 编辑 ]

可以只给管理员看见吗？？

是的,只允许管理员看！

顶~~~

谢谢，主要ip数据用wry.dat 的比较容易更新，也不大

[ 本帖最后由 5569811 于 2007-9-5 11:58 编辑 ]

楼主更新一下IP数据库.好像不新.有很多IP地址不显示地理位置.就比如GG的机器人

珊瑚虫版IP数据库　20070824　的版本！

最后一个图片是用什么看的？
点在线列表右边的下拉框吗？

首页底部的
在线会员 - XX 人在线 - XX 会员(0 隐身), XXX位游客 - 最高记录是 XXX 于 2007-X-XX.
看到了吗

不错，好东西啊