### 設定 ################################################## #画像ファイルのサムネイル最大表示の大きさ(単位:ピクセル) #縦横何れかのサイズが↓を超える画像を縮小表示します my$MaxW = 150; # 横幅 my$MaxH = 150; # 縦幅 ###########################################################
database/libディレクトリ
... sub dr { &Lrequire('./lib/db-dr.cgi'); &DataRegist } - #sub dra{ &Lrequire('./lib/db-dr.cgi'); &DataRegistAct } + sub dra{ &Lrequire('./lib/db-image.cgi'); &FileSizeGet; + &Lrequire('./lib/db-dr.cgi'); &DataRegistAct } sub de { &Lrequire('./lib/db-de.cgi'); &DataEdit } - #sub dep{ &Lrequire('./lib/db-de.cgi'); &DataEditPart } + sub dep{ &Lrequire('./lib/db-image.cgi'); &Lrequire('./lib/db-de.cgi'); &DataEditPart } - #sub dea{ &Lrequire('./lib/db-de.cgi'); &DataEditAct } + sub dea{ &Lrequire('./lib/db-image.cgi'); &FileSizeGet('edit'); + &Lrequire('./lib/db-de.cgi'); &DataEditAct } sub dda{ &Lrequire('./lib/db-dda.cgi'); &DataDeleteAct } ... sub lo { &Lrequire('./lib/db-lo.cgi'); &LogOut } - #sub s { &Lrequire('./lib/db-s.cgi'); &Search } + sub s { &Lrequire('./lib/db-image.cgi'); &Lrequire('./lib/db-s.cgi'); &Search } sub dl { &Lrequire('./lib/db-s.cgi'); &DataList } sub aul{ &Lrequire('./lib/db-s.cgi'); &AdminUserList } sub adl{ &Lrequire('./lib/db-s.cgi'); &AdminDataList } - #sub dp { &Lrequire('./lib/db-dp.cgi'); &DataPart } + sub dp { &Lrequire('./lib/db-image.cgi'); &Lrequire('./lib/db-dp.cgi'); &DataPart } ...
<input size="30" type="file" name="DFile(画像ファイル番号)">
<a href="$UpDir/tmp/$PREFORM{DFile(画像ファイル番号)}" target="_blank">$PREFORM{DFile(画像ファイル番号)}</a>
<FORM action="$BaseDir/$MainCGI" method="POST" enctype="multipart/form-data"> <INPUT type="hidden" name="cmd" value="dea"> <INPUT type="hidden" name="SID" value="$PID"> <INPUT type="hidden" name="DataNum" value="$FORM{DataNum}"> <INPUT type="hidden" name="UserNum" value="$FORM{UserNum}"> <INPUT type="hidden" name="Pass" value="$FORM{Pass}"> + <!---HTML---> + &FileSizeHidden; + print <<"<!---HTML--->"; <TABLE style="font-size : 9pt;" width="400">
<input size="30" type="file" name="DFile(画像ファイル番号)"> <font color="#ff0000">現在 > </font> <a href="$UpDir/$DATA{DFile(画像ファイル番号)}" target="_blank">$DATA{DFile(画像ファイル番号)}</a> <input type="checkbox" name="fdel" value="DFile(画像ファイル番号)">削除
- #sub Html_Default{ print <<EOM; + sub Html_Default{ + &ImageSizeGet; + print <<EOM; <TR bgcolor="$TrColor">
<a href="$UpDir/$VD[$REC{Data}{DFile(画像ファイル番号)}]" target="_blank"><img src="$UpDir/$VD[$REC{Data}{DFile(画像ファイル番号)}]" border="0" width="$DFW(画像ファイル番号)" height="$DFH(画像ファイル番号)" alt=""></a>
+ &ImageSizeGet; print <<"<!---HTML--->"; <HTML><HEAD>