-- 作者： 华表 -- 发布时间： 2008/06/10 11:26am 论坛贴，我希望记录下每一个看了本贴人的ID，因为有人会遗忘回贴确认，最好能有一个记录功能，自动记下打开贴子人的用户名，并在贴子里面显示。 -- 作者： qfli -- 发布时间： 2008/06/10 01:10pm 目前已经有这个功能了 可以在后台开启"是否准许记录文章瀏览情况"~ -- 作者： 华表 -- 发布时间： 2008/06/10 04:05pm 没有找到该功能。这个在哪里。 -- 作者： 华表 -- 发布时间： 2008/06/10 04:11pm 是可以自动记录下谁看过本贴的功能，能够在顶楼的贴子上注明出浏览者的名字。 -- 作者： qfli -- 发布时间： 2008/06/10 05:26pm 很久以前的修改教学了 不保证一定可行~ ----------------------------------------------- 看过此主题的会员有 ( ultimate edition 3 !! ) http://www.leohacks.com/cgi-bin/topic.cgi?forum=5&topic=445&show=125 idea 是从 dicuzz board 拿过来~~ 目的 : 记录曾看此帖的用户 修改档案 : 两个 - topic.cgi , delpost.cgi 测试论坛 : http://203.219.138.202/cgi-bin/forum/leoboard.cgi 更新 : 06/10/2003 ultimate edition 3 对 forumoption 上作出更改，令管理更完善及方便 05/10/2003 ultimate edition 2 追加管理，解决删除及移动问题!!! 04/10/2003 forth edition 更改 flock 里的代数 1 to 2 来使 Unix 执行 (thanks for roy2 and mailweb) 04/10/2003 ultimate edition 简化再简化: 删去一个 loop及加上权限 04/10/2003 second edition 成功地解决 question 及 简化程式 04/10/2003 忘记教如何加上 现有 qesetion : 记录访客!! (请各位指教) 希望大家喜欢，及把此 hack 变得更好，因为本人是菜鸟一只 :P 找到: 代码： -------------------------------------------------------------------------------- $insidead  = "" if (($forumimagead ne "1")&&($useimageadtopic ne "1")); $insidead1 = "" if (($forumimagead1 ne "1")&&($useimageadtopic1 ne "1")); $threadviewstemp = "◆您是本文章第 <b>$threadviews</b> 个\阅\读者◆" if ($threadviews > 0); 加上 代码： -------------------------------------------------------------------------------- $viewerfile="${lbdir}data/viewlog/$inforum\_$intopic.cgi"; $viewerfile = &stripMETA($viewerfile); &winlock($viewerfile) if (($OS_USED eq "Unix")||($OS_USED eq "Nt")); open(FILE,"$viewerfile"); flock(FILE, 1) if ($OS_USED eq "Unix"); @nameinfile=<FILE>; close(FILE); open(FILE,">$viewerfile"); flock(FILE, 2) if ($OS_USED eq "Unix"); $samecounter=0; $totalcounter=0; $comma="0"; $namelist = ""; foreach $line (@nameinfile){ chomp $line; if ($line ne $inmembername) { $samecounter++; } $namelist .= qq~, ~ if ($comma eq "1"); $namelist .= qq~$line~; $comma="1"; print FILE "$line\n"; $totalcounter++; } if (($samecounter eq $totalcounter) && ($inmembername ne "访客")) { $namelist .= qq~, ~ if ($comma eq "1"); $namelist .= qq~$inmembername~; print FILE "$inmembername"; } close(FILE); &winunlock($viewerfile) if (($OS_USED eq "Unix")||($OS_USED eq "Nt")); $namelist .= qq~暂时没有会员看过此主题的~ if($namelist eq ""); 找到 代码： -------------------------------------------------------------------------------- <td bgcolor=$titlecolor align=right><a href="javascript:this.location.reload()"><img src=$imagesurl/images/refresh1.gif border=0 alt=重新整理本主题></a>  $savefile$reporticon$favicon$printpageicon$pagpageicon$bookmarkpage$sendtofriendicon </td></tr> </table></td><td bgcolor=$tablebordercolor width=1 height=24></td></tr> 加上 代码： -------------------------------------------------------------------------------- <tr><td bgcolor=$titlecolor colspan=4 style="border-left:solid 1px black; border-top:solid 1px black; border-right:solid 1px black; padding:5px">看过此主题的会员有：<br>$namelist</td></tr></table></td></tr></table> delpost.cgi 找到 代码： -------------------------------------------------------------------------------- unlink ("${lbdir}FileCount/$inforum/$inforum\_$intopic.cgi"); 加上 代码： -------------------------------------------------------------------------------- unlink ("${lbdir}data/viewlog/$inforum\_$intopic.cgi"); 找到 代码： -------------------------------------------------------------------------------- copy("${lbdir}forum$inforum/$intopic.mal.pl",       "${lbdir}forum$movetoid/$newthreadnumber.mal.pl")        if (-e "${lbdir}forum$inforum/$intopic.mal.pl"); 在上面加上 代码： -------------------------------------------------------------------------------- copy("${lbdir}data/viewlog/$inforum\_$intopic.cgi", "${lbdir}data/viewlog/$movetoid\_$newthreadnumber.cgi"); 找到 代码： -------------------------------------------------------------------------------- unlink ("${lbdir}FileCount/$inforum/$inforum\_$intopic.cgi"); 加上 代码： -------------------------------------------------------------------------------- unlink ("${lbdir}data/viewlog/$inforum\_$intopic.cgi"); forumoptions.cgi 找到 代码： -------------------------------------------------------------------------------- $filetounlink = "$lbdir" . "forum$inforum/rateip$topicid.file.pl";     unlink $filetounlink; 加上 代码： -------------------------------------------------------------------------------- unlink ("${lbdir}data/viewlog/$inforum\_$intopic.cgi"); 找到 代码： -------------------------------------------------------------------------------- copy("${lbdir}forum$inforum/rateip$intopic.file.pl","${lbdir}forum$movetoid/rateip$newthreadnumber.file.pl") if (-e "${lbdir}forum$inforum/rateip$intopic.file.pl"); 加上 代码： -------------------------------------------------------------------------------- copy("${lbdir}data/viewlog/$inforum\_$intopic.cgi", "${lbdir}data/viewlog/$movetoid\_$newthreadnumber.cgi"); unlink ("${lbdir}data/viewlog/$inforum\_$intopic.cgi"); 最后在 cgi-bin 里的 data 加入新 Folder - viewlog 通过测试版本为 紫荆版本：LB5000XP v1201 -- 作者： 华表 -- 发布时间： 2008/06/10 08:08pm 楼上辛苦了。管理员可以看到别人的点击记录。 -- 作者： Ulmer -- 发布时间： 2008/06/10 11:09pm 这会不会对浏览者不公平？ -- 作者： qfli -- 发布时间： 2008/06/10 11:47pm 这个功能会增加很多文本档案 也会增加备份档案的时间~