| 2004/03/30(Tue) 18:04:22 編集(投稿者)
遅くなりましたがありがとうございます! サーバー側に問い合わせてみました。 また、絶対パスについて正しい知識を学ぶことができました。
あとアイコン画像の表示でしたが #--------------------------------------------------------------------------------------------------------------------- # [画像表示] # -> アイコンのサンプル画像一覧を表示します(img_) sub img_ { &hed_("All Icon"); print"<center><table width=\"98\%\"><tr><th bgcolor=\"$ttb\">アイコン画像一覧</td></tr></table>\n"; print"<br><a href=\"javascript:close()\">|X| このウィンドウを閉じる</a><br><br>\n"; my($I,$page_,$page,$page_end,$af,$a,$i)=(0,0,0,0,0,0,0); my($BG)=""; foreach (0..$#ico1){if($ico1[$_] eq "master"){splice(@ico1,$_,1); splice(@ico2,$_,1);}} if(@mas_i){push(@ico1,@mas_i); foreach(0..$#mas_i){push(@ico2,"専用アイコン");}} $page_=int($#ico1/$Ico_kp); if($page_){ print"ページ移動 / "; if($FORM{"page"}){$page=$FORM{"page"};}else{$page=0;} $page_end=$page+($Ico_kp-1); if($page_end > $#ico1){$page_end=$#ico1;} for($i=0;$i<=$page_;$i++){ $af=$page/$Ico_kp; if($i != 0){print"| ";} if($i eq $af){print"<b>$i</b>\n";}else{print"<a href=\"$cgi_f?mode=img&page=$a&no=$no$pp\">$i</a>\n";} $a+=$Ico_kp; } }else{$page=0; $page_end=$#ico1;} print"<table border=\"1\" bordercolor=\"$ttb\" cellspacing=\"0\" cellpadding=\"3\">\n"; foreach ($page..$page_end){ if(($I % 2 && $i) || (!($I % 2)&& !$i)){$BG=$bg;}else{$BG=$k_back;} if(!$I){print"<tr>";} print"<th width=\"$Ico_w\" bgcolor=\"$BG\">"; if($ico1[$_] eq "randam"){print"ランダム<br>アイコン"} elsif($ico1[$_] eq ""){print"アイコン<br>なし";} else{print"<img src=\"$i_dir/$ico1[$_]\"><br>$ico2[$_]";} print"</th>\n"; $I++; if($I >= $Ico_h){print"</tr>"; $I=0; if($i){$i=0;}else{$i=1;}} } if($I){print"</tr>";} print"</table></center>"; &foot_; } のように変えましたらできました。 本当にいろいろとどうもありがとうございました。
|