',$error,'

サイト運営者にお問い合せ下さい。
'; exit; } // 完了ページの表示 Function Print_Thanks() { echo '
ご利用ありがとうございます。

Copyright (C) 2001-2003 All right reserved by CGI KON '; exit; } Function Get_Record($fp) { while(!feof($fp)) { $buff = fgets($fp,255); $record .= $buff; if(ereg("\n",$buff)) break; } return $record; } // 初期設定 $Q_FILE = "anketo.tsv"; $A_FILE = "anketo.log"; // 質問の取得 $fp = @fopen($Q_FILE,"r"); if($fp) { $num = 0; while(!feof($fp)) { $line = Get_Record($fp); $question[$num++] = ereg_replace("\x0A","",$line); } fclose($fp); } else { Print_Error("ファイルの読込に失敗しました。"); } // 回答の出力 if($answer) { if(!file_exists($A_FILE)) { for($loop = 0;$loop < count($question);$loop++) { $column = split("\t",$question[$loop]); if($column[1]) $titles[] = $column[1]; } $titles[] = "登録日時"; } for($loop = 0;$loop < $number;$loop++) { $value = ${"Q".($loop + 1)}; $value = ereg_replace("\x0D\x0A|\x0D|\x0A","",$value); $result[] = $value; } $result[] = date("Y/m/d H:i:s",time()); $fp = @fopen($A_FILE,"a"); if($fp) { if($titles) fputs($fp,join("\t",$titles)."\n"); fputs($fp,join("\t",$result)."\n"); fclose($fp); Print_Thanks(); } else { Print_Error("ファイルの書込に失敗しました。"); } }