-- 作者： HKASK -- 發表時間： 2003/10/11 04:40pm [這篇文章最後由HKASK在 2003/10/11 05:23pm 第 1 次編輯] 改了一天都是改不了 [quote] my ($mystatus, $mysaves, $mysavetime, $myloan, $myloantime, $myloanrating, $bankadd1, $bankadd2, $bankadd3, $bankadd4, $bankadd5) = split(/,/, $ebankdata);   unless ($mystatus eq "1" || $mystatus eq "-1" || $ebankdata eq "") { $mysaves = "還沒開戶"; $myloan = "沒有貸款";   }   else {       if ($mystatus) {   $mysaves .= " $moneyname";   if ($myloan) {       $myloan .= " $moneyname";   } else {       $myloan = "沒有貸款";   }       } else {   $mysaves = "還沒開戶";   $myloan = "沒有貸款";       }   } #    $mysaves = "<font title=$mysaves>>9999999999999</font>" if ($mysaves > 9999999999999 ); #    $myloan = "<font title=$myloan>>9999999999999</font>" if ($myloan > 9999999999999 ); $showsaves = $mysaves; $showsaves = 0 if ($showsaves < 0); $showsaves = 999999999 if ($showsaves > 999999999); $showsaves = int($showsaves); $showsavesheight = int(sqrt($showsaves)*10)/20; $showsavesheight = 124 if ($showsavesheight > 124); $showsavesheight = int($showsavesheight); if ($mysaves eq "還沒開戶"){$showsaves=qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>存款：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><font color=$postfontcolortwo>還沒開戶</font></td></tr></table>~;}else { $showsaves = qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>存款：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><table width=$showsavesheight height=8 border=0 cellspacing=0 cellpadding=0 ><TR><TD background=http://a40711.netfirms.com/non-cgi/images/images/bar3.gif title="目前存款：$showsaves $moneyname"></td></tr></table></td></tr></table>~; } $showloam = $myloan; $showloam = 0 if ($showloam < 0); $showloam = 999999999 if ($showloam > 999999999); $showloam = int($showloam); $showloamheight = int(sqrt($showloam)*10)/20; $showloamheight = 124 if ($showloamheight > 124); $showloamheight = int($showloamheight); if ($myloan eq "沒有貸款"){$showloam=qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>貸款：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><font color=$postfontcolortwo>沒有貸款</font></td></tr></table>~;}else { $showloam = qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>貸款：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><table width=$showloamheight height=8 border=0 cellspacing=0 cellpadding=0 ><TR><TD background=http://a40711.netfirms.com/non-cgi/images/images/bar9.gif title="現有貸款：$showloam $moneyname"></td></tr></table></td></tr></table>~; }     $jingyan = $addjy;     $mymoney = ($numberofposts-$numberofreplys) * $addmoney + $numberofreplys * $replymoney + $visitno * $loginmoney + $mymoney - $postdel * $delmoney;   $meili   = ($numberofposts-$numberofreplys) * $addml + $numberofreplys * $replyml + $visitno * $loginml + $meili - $postdel * $delml;   $jingyan = ($numberofposts-$numberofreplys) * $ttojy + $numberofreplys * $rtojy + $visitno * $ltojy + $jingyan - $postdel * $deljingyan; #    $mymoney = "<font title=$mymoney>>9999999999999</font>" if ($mymoney > 9999999999999 ); $mymoney = 0 if ($mymoney < 0); $mymoney = 999999999 if ($mymoney > 999999999); $mymoney1= $mymoney; $mymoney = int($mymoney); $mymoneyheight = int(sqrt($mymoney)*10)/30; $mymoneyheight = 124 if ($mymoneyheight > 124); $mymoneyheight = int($mymoneyheight); $mymoney = qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>現金：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><table width=$mymoneyheight height=8 border=0 cellspacing=0 cellpadding=0 ><TR><TD background=http://a40711.netfirms.com/non-cgi/images/images/bar5.gif title="金錢：$mymoney1 $moneyname"></td></tr></table></td></tr></table>~;   my $meili1= $meili;   $meili = 0 if ($meili < 0);   my $mlwidth = int(sqrt($meili)*10)/30;   $mlwidth = 124 if ($mlwidth > 124);   $mlgraphic = qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo>魅力：</font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><table width=$mlwidth height=8 border=0 cellspacing=0 cellpadding=0><TR><TD background=http://a40711.netfirms.com/non-cgi/images/images/bar7.gif title="$meili1"></td></tr></table></td></tr></table>~;   my $jingyan1= $jingyan;   $jingyan = 0 if ($jingyan < 0);   my $jywidth = int(sqrt($jingyan)*10)/30;   $jywidth = 124 if ($jywidth > 124);   $jygraphic = qq~<table width="100%" cellspacing="1" cellpadding="0" ><tr><td><font color=$postfontcolortwo><font color=$postfontcolorone>經驗：</font></font></td><td width=125 style='BORDER-TOP: 1px solid #C9C9C9; BORDER-LEFT: 1px solid #C9C9C9; BORDER-BOTTOM: 1px solid #C9C9C9; BORDER-RIGHT: 1px solid #C9C9C9;'><table width=$jywidth height=8 border=0 cellspacing=0 cellpadding=0><TR><TD background=http://a40711.netfirms.com/non-cgi/images/images/bar10.gif title="$jingyan1"></td></tr></table></td></tr></table>~; [/quote] 這一些語法在xp 4.0出現錯誤 我知道是沒有加上{$membername}  我改了一天都不知道如何加上去好 我看 getnameinfo,pl 檔來改都是不能麻煩大家指教我一下 -- 作者： POP -- 發表時間： 2003/10/11 05:47pm 你沒說你要改什麼??? 我目前"聲稱"所改好的功能其實都是用舊式的改法 所以可能沒有像新版4.01一樣的js輸出 至少可以用.... 不過關於新版的js輸出方法...得等到下一版我才會知道如何使用 因為下一版山鷹要加入論壇獎章... 到時候就可以知道他是如何調用會員數據的.... 按照我分析的4.01js調用套入....始終不成功 繼續研究囉.... -- 作者： 文 -- 發表時間： 2003/10/11 11:58pm 先放棄4.01吧...~"~