SJIS
// 引数１定義（ユーザーとユーザー番号）TU = XTanmatu($USER,$USERNO);
// 端末タイプ毎の記述
$TANMATU = XTanmatu($USER,$USERNO);
$arg1="USER=".$USER."&USERNO=".$USERNO."&a_file=$a_file&copt1=$copt1";
// プログラム登録
$BA1RoH60=PURL."src/ba1roh60.php?".$arg1;
if (defined('C_YEAR_OUT') and (C_YEAR_OUT==1 or C_YEAR_OUT==2)){
$year_opt = C_YEAR_OUT;
}else{
$year_opt = 0;
}
// $filename は taikai_function.inc から取得されます。
if ($TANMATU=="SUMAHO"){
$MYPARAM[20] =$TANMATU;
$MYPARAM[21] =$azno;
$MYPARAM[22] =$pg_note;
$MYPARAM[23] =$F_AJAX;
$dat1.=X_upper($MYPARAM,0,$title);
}else{
$dat1.="";
}
// 06.01.07
if(file_exists($filename) and filesize($filename)){
// ファイルが存在し、且つ容量がある（表示すべき情報がある）
if(($file = fopen($filename,"r")) == FALSE){
$dat1.="ファイルオープンエラー";
}else{
// 読み込み専用でのオープン成功
if(flock($file, 2) == FALSE){
$dat1.="ファイルロックエラー";
}else{
$logs = fread($file, filesize($filename));
$logs =mb_convert_encoding($logs,"SJIS"); //文字コードをShift_JISに。
$pat = ",\n"; //区切り文字を設定
$log_line = explode($pat,$logs); //ログを配列に
if ($TANMATU=="SUMAHO"){
$dat1.="
";
$dat1.="
";
}
for($i=0; $i1
}else{
$wkdate = $print_line[3];
}
$wkdate = mb_convert_encoding($wkdate,"SJIS"); // EUC->SJIS
if ($TANMATU=="SUMAHO"){
$dat1.="- ".$LINK;
$dat1.="class=\"ui-btn\" data_transition=\"slide\">";
$dat1.="$print_cap-$wkdate
";
}else{
$dat1.="●";
$dat1.= $LINK.">";
$dat1.="$print_cap-$wkdate"."
";
}
}
flock($file, 3);
fclose($file);
if ($TANMATU=="SUMAHO"){ $dat1.="
";
$upper.=" $title ";
$upper.="
";
$lower ="TOP
";
}
$head = XHEAD_GEN($TANMATU,$USERNO,$azno,0,$title);
print <<< HTML
{$head}
{$upper}
{$body}
{$dat1}
{$lower}