| | 打開
forums.cgi
查找
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $postipaddresstemp, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $memcod, my $hiddened) = split(/\t/, $_);
改為
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $postipaddresstemp, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $memcod, my $hiddened, my $savesex) = split(/\t/, $_);
Note:於 my $hiddened 後加入 , my $savesex
查找
$cleanmember =~ tr/A-Z/a-z/;
$XA = $XB = '';
在其下增加
$XA = "<font color=#006400>" if($savesex eq "m");
$XA = "<font color=#FF69B4>" if($savesex eq "f");
顔色可自定義
打開lb.lib.pl
查找
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $savedipaddress, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $savemembercode, $savehidden) = split(/\t/, $line);
改爲
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $savedipaddress, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $savemembercode, $savehidden, $savesex) = split(/\t/, $line);
Note:於 $savehidden 後加入 , $savesex
找到
$tempdata = "$tempusername\t$savedcometime\t$currenttime\t$where\t$ipall\t$saveosinfo\t$savebrowseinfo\t$where2\t$fromwhere\t$membercode\t$savehidden\t" ;
改為
$tempdata = "$tempusername\t$savedcometime\t$currenttime\t$where\t$ipall\t$saveosinfo\t$savebrowseinfo\t$where2\t$fromwhere\t$membercode\t$savehidden\t$sex\t" ;
Note:於 $savehidden\t 後加入 $sex\t
找到
my $tempdata = "$tempusername\t$currenttime\t$currenttime\t$where\t$ipall\t$osinfo\t$browseinfo\t$where2\t$fromwhere\t$membercode\t$hidden\t" ;
改爲
my $tempdata = "$tempusername\t$currenttime\t$currenttime\t$where\t$ipall\t$osinfo\t$browseinfo\t$where2\t$fromwhere\t$membercode\t$hidden\t$sex\t" ;
Note:於 $hidden\t 後加入 $sex\t
找到
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $postipaddresstemp, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $memcod, my $hiddened) = split(/\t/, $line);
改爲
(my $savedusername, my $savedcometime, my $savedtime, my $savedwhere, my $postipaddresstemp, my $saveosinfo, my $savebrowseinfo, my $savedwhere2, my $fromwhere, my $memcod, my $hiddened, my $savesex) = split(/\t/, $line);
Note:於 my $hiddened 後加入 , my $savesex
查找
$cleanmember =~ tr/A-Z/a-z/;
$XA = $XB = '';
在其下增加
$XA = "<font color=#006400>" if($savesex eq "m");
$XA = "<font color=#FF69B4>" if($savesex eq "f");
打開leoboard.cgi
查找
客人或隱身會員
在其右增加
， <font color=#006400>男</font>|<font color=#FF69B4>女</font>
修改完畢。
| | |
版權所有，但歡迎擅自轉載。
|
|
|
頂端 
加到"我的最愛"
主題管理：
總固頂 
取消總固頂 
短訊息
查看
搜尋
通訊錄
複製
引用
回覆
只看我
2003/09/16 02:53am 
IP: 已設定保密
