| | [這篇文章最後由HKASK在 2003/10/11 05:23pm 第 1 次編輯]
改了一天都是改不了
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>~;
|
|
這一些語法在xp 4.0出現錯誤
我知道是沒有加上{$membername} 我改了一天都不知道如何加上去好
我看 getnameinfo,pl 檔來改都是不能麻煩大家指教我一下
| | |
版權所有，但歡迎擅自轉載。
|
|
|
頂端 
加到"我的最愛"
主題管理：
總固頂 
取消總固頂 
短訊息
查看
搜尋
通訊錄
複製
引用
回覆
只看我
2003/10/11 04:40pm 
IP: 已設定保密
