#!/usr/local/bin/perl # ==================================================================== # 農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点CGIスクリプト # 作成者: 株式会社コアネット # 著作権所有:株式会社コアネット(Copyright(c) COANET) # WEB:http://www.coa2.co.jp # 設置・規約:システム設置マニュアルをご参照下さい。 # ==================================================================== #---------------------------------------------------------------- # 追加設定 #---------------------------------------------------------------- # CGIファイル名 $CGI_NAME = 'news_seminer.html'; #---------------------------------------------------------------- # デバッグ用 #---------------------------------------------------------------- $CGI_DIR = ''; # Use Include Mode Only $EX_DATA_DIR = 'cgi/seminar/'; # Use Include Mode Only $bugHideRegDate = 1; # Hide Registar Date (List) $bugNewsTitleForm = 3; # News Title Form Number (Include Mode Only) #---------------------------------------------------------------- # 実行前処理 #---------------------------------------------------------------- # 設定ファイル読込み require './config.cgi'; # ライブラリ読込み require $LIB_JCODE; require $LIB_CGI; require $LIB_MULTI; # 投稿受理最大サイズ $cgi_lib'maxdata = $MaxUpData; # ディレクトリ設定値の整形 if ($DATA_DIR !~ /\/$/) { $DATA_DIR .= "/"; } if ($LOCK_DIR !~ /\/$/) { $LOCK_DIR .= "/"; } if ($CGI_DIR) { if ($CGI_DIR !~ /\/$/) { $CGI_DIR .= "/"; } } # ログファイルが存在しなかった場合、新規作成する if (!(-e "$DATA_DIR$DATA_FILE")) { open(OUT, ">$DATA_DIR$DATA_FILE") || &Error("新規ログファイル「$DATA_DIR$DATA_FILE」の作成に失敗しました"); close(OUT); chmod(0666, "$DATA_DIR$DATA_FILE"); } if (!(-e "$DATA_DIR$CATEGORY_FILE") && $CATEGORY_KEY) { open(OUT, ">$DATA_DIR$CATEGORY_FILE") || &Error("新規ログファイル「$DATA_DIR$CATEGORY_FILE」の作成に失敗しました"); close(OUT); chmod(0666, "$DATA_DIR$CATEGORY_FILE"); } # テンプレートデータ取得 &getTemplate; # フォーム値の整形 &Decode; # フォーム定義データ取得 &getFormDefine; # スクリプト動作モード if ($in{mode} eq 'include') { $CGI_MODE = 1; $CGI_NAME = $CGI_DIR.$CGI_NAME; } if ($in{mode} eq 'title') { &getLogData if (!$flgLogData); print "Content-type: text/html\n\n"; foreach (@IN_DATA) { @data = split (/<>/, $_); if ($in{key}) { if ($in{key} eq $data[0]) { print "$data[$bugNewsTitleForm]|"; last; } } else { if ($TOP_NEWS) { print "$data[$bugNewsTitleForm]|"; } last; } } exit; } #---------------------------------------------------------------- # 表示 #---------------------------------------------------------------- # ログファイルのデータ取得 &getLogData if (!$flgLogData); # 最新記事の自動取得 if ($TOP_NEWS && !$in{key}) { @data = split (/<>/, @IN_DATA[0]); if ($data[0]) { $in{key} = $data[0]; } } # 記事データ取得 if ($in{key}) { $flgKeySearch = 0; ($tmpKey, $tmpPrev, $tmpNext) = (); # 記事検索処理 $cntData = 0; foreach (@IN_DATA) { @data = split (/<>/, $_); if (!$flgKeySearch) { # 前の記事のkey値を取得 $tmpPrevKey = $tmpKey; if ($PAGE_MAX) { $tmpPrevPage = $tmpPage; } $tmpKey = $data[0]; if ($PAGE_MAX) { $tmpPage = int($cntData / $PAGE_MAX); } # 該当記事が見つかったら記事データを取得・整形して次の記事へ if ($tmpKey eq $in{key}) { for ($frm = 0; $frm <= $frmMax; $frm++) { if ($frmType[$frm] eq 'date') { if ($data[$frm]) { ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data[$frm]); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $data{$frmName[$frm]} = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $data{$frmName[$frm]} = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } } } else { if ($HTML_TAG) { $data{$frmName[$frm]} = &decHtmlEscape($data[$frm]); } else { $data{$frmName[$frm]} = $data[$frm]; } } } #アップロードファイルの情報取得 if ($UPLOAD_KEY) { (@tmpTail) = split (/;/, $data[$frmMax+1]); (@tmpWidth) = split (/;/, $data[$frmMax+2]); (@tmpHeight) = split (/;/, $data[$frmMax+3]); (@tmpAlt) = split (/;/, $data[$frmMax+4]); } $flgKeySearch = 1; next; } $cntData++; } else { # 記事データの取得・整形が完了したら、次の記事のkey値を取得してループを抜ける $tmpNextKey = $data[0]; if ($PAGE_MAX) { $tmpNextPage = int(($cntData + 1) / $PAGE_MAX); } last; } } # 特殊タグの作成 if ($flgKeySearch) { # 投稿日データ作成 ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data{key}); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $data{regDate} = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $data{regDate} = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } # 前記事リンク作成 if ($tmpPrevKey) { if ($PAGE_MAX) { $tmpPrevTag = "page=$tmpPrevPage\&"; } else { $tmpPrevTag = ""; } $data{linkPrev} = "前の記事へ"; } else { $data{linkPrev} = ""; } # 次記事リンク作成 if ($tmpNextKey) { if ($PAGE_MAX) { $tmpNextTag = "page=$tmpNextPage\&"; } else { $tmpNextTag = ""; } $data{linkNext} = "次の記事へ"; } else { $data{linkNext} = ""; } # 記事リストに戻るリンク作成 $data{linkList} = "一覧に戻る"; #アップロードファイル表示タグ作成 if ($UPLOAD_KEY) { $data{upFiles} = ""; for (0..$UPLOAD_KEY-1) { if ($tmpTail[$_]) { if ($tmpWidth[$_] && $tmpHeight[$_]) { # 画像をサムネイルで表示させる場合、画像ファイルは処理をスキップする if ($USE_THUMB) { next; } $tmpIcon = $ICON_IMAGE; } else { $tmpIcon = $ICON_FILE; } if ($USE_ALT) { if (!$tmpAlt[$_]) { $tmpAlt[$_] = $DEFAULT_ALT; } } else { $tmpAlt[$_] = ''; } $tmpFileNo = $_ + 1; $data{upFiles} .= ""; } } # 画像ファイルのサムネイル表示処理 if ($USE_THUMB) { $data{upFiles} .= ""; } $data{upFiles} .= "
$tmpAlt[$_]\"$tmpAlt[$_]\"
"; for (0..$UPLOAD_KEY-1) { if ($tmpTail[$_]) { if (!$tmpWidth[$_] && !$tmpHeight[$_]) { next; } $tmpFileNo = $_ + 1; $tmpFilePath = "$EX_DATA_DIR$DATA_DIR${tmpKey}_$tmpFileNo$tmpTail[$_]"; $tmpThumbPath = "$EX_DATA_DIR$DATA_DIR${tmpKey}_${tmpFileNo}s$tmpTail[$_]"; if (!(-e $tmpThumbPath)) { $tmpThumbPath = $tmpFilePath; } $data{upFiles} .= "\"$tmpAlt[$_]\" "; } } $data{upFiles} .= "
"; } # ヘッダのタイトルタグ編集 if ($HEAD_TITLE) { $HEADER =~ s//<title>$data{title} - /i; } } } # ヘッダ出力 &prtHeader if (!$flgHead); # 記事詳細表示 if ($in{key}) { if ($flgKeySearch) { &prtDetail; } else { &prtNotFound; } } # 記事リスト表示 if (!$in{key} || $DISP_LIST) { if (@IN_DATA) { print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"10\" width=\"100%\">\n"; $cntList = 0; foreach (@IN_DATA) { if ($PAGE_MAX) { $tmpListPage = int($cntList / $PAGE_MAX); $cntList++; if ($tmpListPage < $page) { next; } if ($tmpListPage > $page) { last; } } print " <tr>\n"; @data = split (/<>/, $_); for ($frm = 0; $frm <= $frmMax; $frm++) { if ($frmList[$frm]) { if (($frmType[$frm] eq 'time') || ($frmType[$frm] eq 'date')) { if (($frmType[$frm] eq 'time') && $bugHideRegDate) { next; } if ($data[$frm]) { ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data[$frm]); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $tmpData = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $tmpData = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } $tmpExTag = ' width: 150px;'; } } elsif ($frmType[$frm] eq 'tbox') { my(@tmp) = split (/<br>/, $data[$frm]); if (length($tmp[0]) > 30) { $tmpData = z_substr($tmp[0],0,30); $tmpData .= '...'; } else { $tmpData = "$tmp[0]"; } } else { if ($HTML_TAG) { $data[$frm] = &decHtmlEscape($data[$frm]); } if ($data[0] eq $tmpKey) { $tmpData = "<b>$data[$frm]</b>"; } else { $tmpData = "<a href=\"$CGI_NAME?page=$tmpListPage&key=$data[0]\">$data[$frm]</a>"; } } print " <td style=\"border-top: 1px #cccccc solid;$tmpExTag\" >$tmpData</td>\n"; $tmpExTag = ""; } } print " </tr>\n"; } print "</table>\n"; print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"10\" width=\"100%\">\n"; print "<tr><td align=\"center\" style=\"border-top: 1px #cccccc solid;\" nowrap>■ <b>PAGE</b> /"; $tmpPageMax = int($#IN_DATA / $PAGE_MAX); for (0..$tmpPageMax) { if ($_ == $page) { print " <b>".int($_ + 1)."</b>"; } else { print " <a href=\"$CGI_NAME?page=$_&key=$tmpKey\">".int($_ + 1)."</a>"; } } print " ■</td></tr>\n"; print "</table>\n"; } else { print "<div style=\"text-align: center; padding: 30px;\">\n"; print " 記事がありません\n"; print "</div>\n"; } } # フッタ出力 &prtFooter; exit; 太陽光・人工光や培養液などを制御し野菜の安定供給を可能にする-千葉大学 植物工場</h1> <!-- SiteID START --> <div id="SiteID"> <div id="Header_l"> <a href="./"><img src="image/logo.gif" alt="農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点" title="農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点" width="307" height="38"></a> </div> <div id="Header_r"> <ul> <li class="tab_home"><a href="./"><img src="image/icon_home.gif" alt="農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点のトップページへ" title="農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点のトップページへ" width="50" height="16"></a></li> <li class="tab_access"><a href="access.html"><img src="image/icon_access.gif" alt="アクセスマップ" title="アクセスマップ" width="70" height="16"></a></li> <li class="tab_sitemap"><a href="sitemap.html"><img src="image/icon_sitemap.gif" alt="サイトマップ" title="サイトマップ" width="70" height="16"></a></li> </ul> <p class="clear"> <!--Google search--> <form action="http://www.google.com/cse" id="cse-search-box" target="google_window"> <div> <input type="hidden" name="cx" value="010708233994455511517:q1q-ayx56rc" /> <input type="hidden" name="ie" value="Shift_JIS" /> <input type="text" name="q" size="31" /> <input type="submit" name="sa" value="検索" /> </div> </form> <script type="text/javascript" src="http://www.google.com/cse/brand?form=cse-search-box&lang=ja"></script> <!--Google search END--> </div> </div> <!-- SiteID END --> <!-- globalnavi START --> <div id="globalnavi"> <ul> <li id="navi01"><a href="./" title="農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点のトップページ">農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点のトップページ</a></li> <li id="navi02"><a href="project.html" title="プロジェクト概要">プロジェクト概要</a></li> <li id="navi03"><a href="member.html" title="組織">組織</a></li> <li id="navi04"><a href="research.html" title="研究成果">研究成果</a></li> <li id="navi05"><a href="human.html" title="人材育成">人材育成</a></li> <li id="navi06"><a href="link.html" title="リンク">リンク</a></li> </ul> </div> <!-- globalnavi END --> <img src="image/head_img_s.jpg" alt="人と環境にやさしい 高品質・高収量・計画的植物生産とその普及促進のために" width="780" height="100"> <!-- contents_container START --> <div id="contents_container"> <!-- main START --> <div id="main"> <div id="topicpath"> <ul> <li><a href="./">トップページ</a></li> <li> > </li> <li>シンポジウム・セミナー</li> </ul> </div> <h2>シンポジウム・セミナー</h2> #!/usr/local/bin/perl # ==================================================================== # 農林水産省 植物工場 実証・展示・研修事業 千葉大学拠点CGIスクリプト # 作成者: 株式会社コアネット # 著作権所有:株式会社コアネット(Copyright(c) COANET) # WEB:http://www.coa2.co.jp # 設置・規約:システム設置マニュアルをご参照下さい。 # ==================================================================== #---------------------------------------------------------------- # 追加設定 #---------------------------------------------------------------- # CGIファイル名 $CGI_NAME = 'news_seminer.html'; #---------------------------------------------------------------- # デバッグ用 #---------------------------------------------------------------- $CGI_DIR = ''; # Use Include Mode Only $EX_DATA_DIR = 'cgi/seminar/'; # Use Include Mode Only $bugHideRegDate = 1; # Hide Registar Date (List) $bugNewsTitleForm = 3; # News Title Form Number (Include Mode Only) #---------------------------------------------------------------- # 実行前処理 #---------------------------------------------------------------- # 設定ファイル読込み require './config.cgi'; # ライブラリ読込み require $LIB_JCODE; require $LIB_CGI; require $LIB_MULTI; # 投稿受理最大サイズ $cgi_lib'maxdata = $MaxUpData; # ディレクトリ設定値の整形 if ($DATA_DIR !~ /\/$/) { $DATA_DIR .= "/"; } if ($LOCK_DIR !~ /\/$/) { $LOCK_DIR .= "/"; } if ($CGI_DIR) { if ($CGI_DIR !~ /\/$/) { $CGI_DIR .= "/"; } } # ログファイルが存在しなかった場合、新規作成する if (!(-e "$DATA_DIR$DATA_FILE")) { open(OUT, ">$DATA_DIR$DATA_FILE") || &Error("新規ログファイル「$DATA_DIR$DATA_FILE」の作成に失敗しました"); close(OUT); chmod(0666, "$DATA_DIR$DATA_FILE"); } if (!(-e "$DATA_DIR$CATEGORY_FILE") && $CATEGORY_KEY) { open(OUT, ">$DATA_DIR$CATEGORY_FILE") || &Error("新規ログファイル「$DATA_DIR$CATEGORY_FILE」の作成に失敗しました"); close(OUT); chmod(0666, "$DATA_DIR$CATEGORY_FILE"); } # テンプレートデータ取得 &getTemplate; # フォーム値の整形 &Decode; # フォーム定義データ取得 &getFormDefine; # スクリプト動作モード if ($in{mode} eq 'include') { $CGI_MODE = 1; $CGI_NAME = $CGI_DIR.$CGI_NAME; } if ($in{mode} eq 'title') { &getLogData if (!$flgLogData); print "Content-type: text/html\n\n"; foreach (@IN_DATA) { @data = split (/<>/, $_); if ($in{key}) { if ($in{key} eq $data[0]) { print "$data[$bugNewsTitleForm]|"; last; } } else { if ($TOP_NEWS) { print "$data[$bugNewsTitleForm]|"; } last; } } exit; } #---------------------------------------------------------------- # 表示 #---------------------------------------------------------------- # ログファイルのデータ取得 &getLogData if (!$flgLogData); # 最新記事の自動取得 if ($TOP_NEWS && !$in{key}) { @data = split (/<>/, @IN_DATA[0]); if ($data[0]) { $in{key} = $data[0]; } } # 記事データ取得 if ($in{key}) { $flgKeySearch = 0; ($tmpKey, $tmpPrev, $tmpNext) = (); # 記事検索処理 $cntData = 0; foreach (@IN_DATA) { @data = split (/<>/, $_); if (!$flgKeySearch) { # 前の記事のkey値を取得 $tmpPrevKey = $tmpKey; if ($PAGE_MAX) { $tmpPrevPage = $tmpPage; } $tmpKey = $data[0]; if ($PAGE_MAX) { $tmpPage = int($cntData / $PAGE_MAX); } # 該当記事が見つかったら記事データを取得・整形して次の記事へ if ($tmpKey eq $in{key}) { for ($frm = 0; $frm <= $frmMax; $frm++) { if ($frmType[$frm] eq 'date') { if ($data[$frm]) { ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data[$frm]); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $data{$frmName[$frm]} = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $data{$frmName[$frm]} = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } } } else { if ($HTML_TAG) { $data{$frmName[$frm]} = &decHtmlEscape($data[$frm]); } else { $data{$frmName[$frm]} = $data[$frm]; } } } #アップロードファイルの情報取得 if ($UPLOAD_KEY) { (@tmpTail) = split (/;/, $data[$frmMax+1]); (@tmpWidth) = split (/;/, $data[$frmMax+2]); (@tmpHeight) = split (/;/, $data[$frmMax+3]); (@tmpAlt) = split (/;/, $data[$frmMax+4]); } $flgKeySearch = 1; next; } $cntData++; } else { # 記事データの取得・整形が完了したら、次の記事のkey値を取得してループを抜ける $tmpNextKey = $data[0]; if ($PAGE_MAX) { $tmpNextPage = int(($cntData + 1) / $PAGE_MAX); } last; } } # 特殊タグの作成 if ($flgKeySearch) { # 投稿日データ作成 ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data{key}); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $data{regDate} = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $data{regDate} = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } # 前記事リンク作成 if ($tmpPrevKey) { if ($PAGE_MAX) { $tmpPrevTag = "page=$tmpPrevPage\&"; } else { $tmpPrevTag = ""; } $data{linkPrev} = "<a href=\"$CGI_NAME?${tmpPrevTag}key=$tmpPrevKey\">前の記事へ</a>"; } else { $data{linkPrev} = ""; } # 次記事リンク作成 if ($tmpNextKey) { if ($PAGE_MAX) { $tmpNextTag = "page=$tmpNextPage\&"; } else { $tmpNextTag = ""; } $data{linkNext} = "<a href=\"$CGI_NAME?${tmpNextTag}key=$tmpNextKey\">次の記事へ</a>"; } else { $data{linkNext} = ""; } # 記事リストに戻るリンク作成 $data{linkList} = "<a href=\"$CGI_NAME\">一覧に戻る</a>"; #アップロードファイル表示タグ作成 if ($UPLOAD_KEY) { $data{upFiles} = "<table border=\"0\" cellspacing=\"5\" width=\"100%\">"; for (0..$UPLOAD_KEY-1) { if ($tmpTail[$_]) { if ($tmpWidth[$_] && $tmpHeight[$_]) { # 画像をサムネイルで表示させる場合、画像ファイルは処理をスキップする if ($USE_THUMB) { next; } $tmpIcon = $ICON_IMAGE; } else { $tmpIcon = $ICON_FILE; } if ($USE_ALT) { if (!$tmpAlt[$_]) { $tmpAlt[$_] = $DEFAULT_ALT; } } else { $tmpAlt[$_] = ''; } $tmpFileNo = $_ + 1; $data{upFiles} .= "<tr><td align=\"right\"><a href=\"$EX_DATA_DIR$DATA_DIR${tmpKey}_$tmpFileNo$tmpTail[$_]\">$tmpAlt[$_]<img src=\"$EX_DATA_DIR$tmpIcon\" border=\"0\" width=\"20\" height=\"20\" alt=\"$tmpAlt[$_]\"></a></td></tr>"; } } # 画像ファイルのサムネイル表示処理 if ($USE_THUMB) { $data{upFiles} .= "<tr><td align=\"left\">"; for (0..$UPLOAD_KEY-1) { if ($tmpTail[$_]) { if (!$tmpWidth[$_] && !$tmpHeight[$_]) { next; } $tmpFileNo = $_ + 1; $tmpFilePath = "$EX_DATA_DIR$DATA_DIR${tmpKey}_$tmpFileNo$tmpTail[$_]"; $tmpThumbPath = "$EX_DATA_DIR$DATA_DIR${tmpKey}_${tmpFileNo}s$tmpTail[$_]"; if (!(-e $tmpThumbPath)) { $tmpThumbPath = $tmpFilePath; } $data{upFiles} .= "<a href=\"$tmpFilePath\" target=\"_blank\"><img src=\"$tmpThumbPath\" border=\"0\" width=\"$tmpWidth[$_]\" height=\"$tmpHeight[$_]\" alt=\"$tmpAlt[$_]\"></a> "; } } $data{upFiles} .= "</td></tr>"; } $data{upFiles} .= "</table>"; } # ヘッダのタイトルタグ編集 if ($HEAD_TITLE) { $HEADER =~ s/<title>/<title>$data{title} - /i; } } } # ヘッダ出力 &prtHeader if (!$flgHead); # 記事詳細表示 if ($in{key}) { if ($flgKeySearch) { &prtDetail; } else { &prtNotFound; } } # 記事リスト表示 if (!$in{key} || $DISP_LIST) { if (@IN_DATA) { print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"10\" width=\"100%\">\n"; $cntList = 0; foreach (@IN_DATA) { if ($PAGE_MAX) { $tmpListPage = int($cntList / $PAGE_MAX); $cntList++; if ($tmpListPage < $page) { next; } if ($tmpListPage > $page) { last; } } print " <tr>\n"; @data = split (/<>/, $_); for ($frm = 0; $frm <= $frmMax; $frm++) { if ($frmList[$frm]) { if (($frmType[$frm] eq 'time') || ($frmType[$frm] eq 'date')) { if (($frmType[$frm] eq 'time') && $bugHideRegDate) { next; } if ($data[$frm]) { ($time, $sec, $min, $hour, $mday, $mon, $year, $week_j, $week_e) = &getTime($data[$frm]); if ($DATE_TYPE) { $mon = int($mon); #一桁の時、先頭の「0」を取る $mday = int($mday); $tmpData = $year.'年'.$mon.'月'.$mday.'日 ('.$week_j.')'; } else { $tmpData = $year.'/'.$mon.'/'.$mday.' ('.$week_e.')'; } $tmpExTag = ' width: 150px;'; } } elsif ($frmType[$frm] eq 'tbox') { my(@tmp) = split (/<br>/, $data[$frm]); if (length($tmp[0]) > 30) { $tmpData = z_substr($tmp[0],0,30); $tmpData .= '...'; } else { $tmpData = "$tmp[0]"; } } else { if ($HTML_TAG) { $data[$frm] = &decHtmlEscape($data[$frm]); } if ($data[0] eq $tmpKey) { $tmpData = "<b>$data[$frm]</b>"; } else { $tmpData = "<a href=\"$CGI_NAME?page=$tmpListPage&key=$data[0]\">$data[$frm]</a>"; } } print " <td style=\"border-top: 1px #cccccc solid;$tmpExTag\" >$tmpData</td>\n"; $tmpExTag = ""; } } print " </tr>\n"; } print "</table>\n"; print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"10\" width=\"100%\">\n"; print "<tr><td align=\"center\" style=\"border-top: 1px #cccccc solid;\" nowrap>■ <b>PAGE</b> /"; $tmpPageMax = int($#IN_DATA / $PAGE_MAX); for (0..$tmpPageMax) { if ($_ == $page) { print " <b>".int($_ + 1)."</b>"; } else { print " <a href=\"$CGI_NAME?page=$_&key=$tmpKey\">".int($_ + 1)."</a>"; } } print " ■</td></tr>\n"; print "</table>\n"; } else { print "<div style=\"text-align: center; padding: 30px;\">\n"; print " 記事がありません\n"; print "</div>\n"; } } # フッタ出力 &prtFooter; exit; <p class="pagetop"> <a href="#Bg"><img src="image/goto_top.gif" alt="PAGE TOP" border="0"></a> </p> </div> <!-- main END--> <!-- s-navi START --> <div id="s-navi"> <!-- s-navi-bana START --> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <meta http-equiv="Content-Style-Type" content="text/css"> <meta name="GENERATOR" content="JustSystems Homepage Builder Version 18.0.13.0 for Windows"> <title> シンポジウム・セミナー
研修
お知らせ

NPO植物工場研究会
NPO植物工場研究会 植物工場勉強会
お問い合わせ

農林水産省 植物工場
実証・展示・研修事業 千葉大学拠点

国立大学法人 千葉大学
環境健康フィールド科学センター
〒277-0882
千葉県柏市柏の葉6丁目2番1号
TEL/FAX:04-7137-8312
【受付】平日10:00〜12:00,13:00〜17:00
お問い合わせはこちらへ

千葉大学