�}�C�X�N�[��ena�@�������R�w�Z
 
���h���|�[�g
���h�ʐ^�� ���h�f���� �A�H�o�X���
���h�y�[�W�Ɋւ��āA���܂��܂Ȉӌ�����������ł����������Ƃ��ł��܂��B

="4.1.0"){ extract($_REQUEST); extract($_SERVER); } /* * P-BBS by ToR * http://php.s3.to * * 2000/12/02 pre ���� * 2001/03/06 v1.0 �����[ * 2001/03/11 v1.1 HTML�����o��OnOff�A�������݌�Location�Ŕ�΂��A�Ǘ�Ӱ��pass��apass * 2001/04.16 v1.2 �ߋ����O�Ή��A�����‚��ƐF�ς��B�f�U�C���ύX * 2001/04/24 v1.23 �������݌�\���֐����A�y�[�W���O�ύX�A�Ǘ�Ӱ�ގ��s��C���A�z�X�g�\���ARe:[2] * 2001/05/04 v1.231 �N�b�L�[��HTML�ɏ����o���Ă��܂��o�O�C��,�ߋ����O���[�h�̔�\��
* 2001/05/17 v1.232 �����������A�s�������lj� * 2001/05/27 v1.24 autolink�C���A�������݌�refresh�Ŕ�΂� * 2001/06/02 v1.25 GET���e�֎~�A�O�����e�֎~ * 2001/11/15 v1.26 >�̌�̃X�y�[�X�������BPHP3�̎����X��
�ƂȂ�o�O�C�� * 2002/05/25 v1.27 i18n�폜�A�������C�� * 2002/02/11 v1.28 �N�b�L�[�̕��������΍� * 2003/05/25 v1.29 �֎~�z�X�g�A�֎~���[�h�lj� * 2003/06/07 v1.3 �����폜�o����悤�� * * �V���v���Ȍf���‚ł��B�Ǘ����[�h�t * ��̃��O�t�@�C����p�ӂ��āA�p�[�~�b�V������606�ɂ��Ă������� * HTML�������o���ꍇ�́A���̃f�B���N�g����707��777����Ȃ��ƃ_���ł� */ //-------------�ݒ肱������------------- /* �ɓ����^�C�g�� */ //$title1 = 'P-BBS'; /* �f���‚�TOP�^�C�g���iHTML�j*/ //$title2 = '<font size=5 face=Verdana color=gray><b>P-BBS</b></font>'; /* <body>�^�O */ //$body = '<body bgcolor="#FDFDFD" text="#777777">'; /* �Ǘ��җp�p�X���[�h�B�K���ύX���ĉ������B*/ $admin_pass = 'ce585gt'; /* ���O�ۑ��t�@�C�� */ $logfile = 'bbs.log'; /* TOP�y�[�W��HTML�ɏ����o���� �iyes=1 no=0�j*/ $htmlw = 0; /* �ÓIHTML�������o���ꍇ��HTML�t�@�C�� */ $html_file = 'pbbs.html'; /* �߂��iHOME�j*/ $home = 'http://www.ena.co.jp/summer/ms'; /* ��y�[�W������̕\���L���� */ $page_def = 10; /* �ő�L�^���� ������z����ƌÂ�������ߋ����O�ֈڂ�܂��B*/ $max = 200; /* �����������i���O�A�薼�A�{���j�S�p���Ƃ��̔����ł� */ $maxn = 40; $maxs = 40; $maxv = 1500; /* �{���̉��s������ */ $maxline = 25; /* ����z�X�g����̘A�����e�𐧌� --> �b�����L�q����Ƃ��̎��Ԉȏ���o�߂��Ȃ��ƘA�����e�ł��Ȃ�*/ $w_regist = 30; /* �����Ŏ��������N���邩�ǂ����iyes=1 no=0�j*/ $autolink = 0; /* HTML�^�O��L���ɂ��邩�iyes=1 no=0)*/ $tag = 0; /* �^�C�g�������œ��e���ꂽ�ꍇ */ $mudai = '(����)'; /* �����‚������̐F */ $re_color = "#AA5620"; /* �z�X�g��\�����邩�i�\�����Ȃ�=0 <!-->���ŕ\��=1 �\��=2�j*/ $hostview = 1; /* �O���������݋֎~�ɂ���?(����=1,���Ȃ�=0) */ define("GAIBU", 0); /* �g�p����t�@�C�����b�N�̃^�C�v�imkdir=1 flock=2 �g��Ȃ�=0�j*/ define("LOCKEY", 2); //�ʏ��2��OK /* mkdir���b�N���g������lock�Ƃ������Ńf�B���N�g�����쐬����777�ɂ��Ă������� */ define("LOCK" , "lock/plock"); //lock�̒��ɍ�郍�b�N�t�@�C���� /* �ߋ����O�쐬����? */ $past_key = 1; /* �ߋ����O�ԍ��t�@�C�� */ $past_no = "pastno.log"; /* �ߋ����O�쐬�f�B���N�g��(�������݌����K�v) */ $past_dir = "./"; /* �ߋ����O��‚ɏ������ލs�� */ $past_line= "50"; // �{���֎~�z�X�g�i���K�\���� $no_host[] = 'kantei.go.jp'; $no_host[] = 'anonymizer.com'; $no_host[] = '10.10.232.72.reverse.layeredtech.com'; $no_host[] = '125.243.207.130'; $no_host[] = '129.41.250.20'; $no_host[] = '60.191.251.9'; $no_host[] = '71.216.100.241'; $no_host[] = '125.57.43.173'; $no_host[] = 'customer-201-147-158-52.uninet-ide.com.mx'; $no_host[] = '218.16.121.26'; $no_host[] = '81.40.205.61.west.flets.alpha-net.ne.jp'; $no_host[] = '125.178.86.75'; $no_host[] = '58.142.112.196'; $no_host[] = '221.224.33.227'; $no_host[] = '192.104.37.15'; $no_host[] = 'dsl-201-155-170-232.prod-empresarial.com.mx'; // �g�p�֎~���[�h $no_word[] = '����'; $no_word[] = '�n��'; //---------�ݒ肱���܂�-------------- // �֎~�z�X�g if (is_array($no_host)) { $host = gethostbyaddr(getenv("REMOTE_ADDR")); foreach ($no_host as $user) { if(preg_match("/$user/i", $host)){ header("Status: 204\n\n");//�󔒃y�[�W exit; } } } function head(&$dat){ //�w�b�_�[�\���� global $mode,$no,$PHP_SELF,$logfile,$title1,$title2,$body,$p_bbs,$htmlw; //�N�b�L�[�𒸂��܂� if (get_magic_quotes_gpc()) $p_bbs = stripslashes($p_bbs); if(!$htmlw) list($r_name,$r_mail) = explode(",", $p_bbs); if($mode == "resmsg"){ //���X�̏ꍇ $res = file($logfile); $flag = 0; while (list($key, $value) = each ($res)) { list($rno,$date,$name,$email,$sub,$com,$url) = explode("<>", $value); if ($no == "$rno"){ $flag=1; break; } } if ($flag == 0) error("�Y���L�������‚���܂���"); if(ereg("Re\[([0-9]+)\]:", $sub, $reg)){ $reg[1]++; $r_sub=ereg_replace("Re\[([0-9]+)\]:", "Re[$reg[1]]:", $sub); }elseif(ereg("^Re:", $sub)){ $r_sub=ereg_replace("^Re:", "Re[2]:", $sub); }else{ $r_sub = "Re:$sub"; } $r_com = ">$com"; $r_com = eregi_replace("<br( /)>","\r>",$r_com); } $head='<style type="text/css"> <!-- body,td {font-size:12pt;} input,textarea,select{ border-top:1px solid #999999; border-right:1px solid #999999; border-bottom:1px solid #999999; border-left:1px solid #999999; font-size:9pt;color:#808080;background-color:#FFFFFF;} a:link {color:#9A0000;text-decoration:none;} a:visited {color:#9A0000;text-decoration:none;} a:hover {color:#ADD8E6;text-decoration:underline;} .mizu {background-color:#ADD8E6;} .hada {background-color:#FFEFD5;} .t { border: 1px #ADD8E6 solid} --> </style>'; $dat=$head.$body; echo ' <form method="POST" action="'.$PHP_SELF.'"> <input type="hidden" name="mode" value="regist"><center> <table border="0" cellpadding="2" cellspacing="0" width="400"> <tr> <td class="mizu" height="20"> </td> </tr> <tr> <td class="hada"> <div align="center">'.$title2.'<br></div> <table border="0" cellpadding="1" cellspacing="3" width="390"> <tr> <td><font color="#990000">�薼</font></td> <td><input type="text" name="sub" size="30" value="'.$r_sub.'"></td> </tr> <tr> <td><font color="#990000">�����O</font></td> <td><input type="text" name="name" size="30" value="'.$r_name.'"></td> </tr> <tr> <td><font color="#990000">���[��</font></td> <td><input type="text" name="email" size="30" value="'.$r_mail.'"></td> </tr> <tr> <td><font color="#990000">url</font></td> <td><input type="text" name="url" size="30" value="http://"></td> </tr> <tr> <td colspan=2><font COLOR="#990000">�R�����g</font><br> <center><textarea rows="5" cols="58" name="com">'.$r_com.'</textarea></center></td> </tr> <tr> <td colspan=2><!--font color="#990000">pass</font> <input type="password" name="password" size="8"--><br> <center><input type="submit" value=" OK "> <input type="reset" VALUE="Clear"> </center> </td> </tr> </table><br></td> </tr> <tr> <td class="mizu" height="20"> </td> </tr> </table></center><br><br></form> '; } function foot(&$dat){ //�t�b�^�[�\���� global $PHP_SELF,$home,$past_key; $dat.='<div align="right"><form method="POST" action="'.$PHP_SELF.'"> <input type=hidden name=mode value="usrdel">No <input type=text name=no size=2> pass <input type=password name=pwd size=4 maxlength=8> <input type=submit value="Del"></form> [ <a href='.$home.'>Home</a> ] [ <a href='.$PHP_SELF.'?mode=admin>admin</a> ] '; if($past_key) $dat.='[ <a href='.$PHP_SELF.'?mode=past>old_log</a> ]'; $dat.='<br><br><small><!-- P-BBS v1.232 -->- <a href="http://php.s3.to" target="_top">P-BBS</a> -</small></div> '; } function Main(&$dat){ //�L���\���� global $logfile,$page_def,$page,$PHP_SELF,$autolink,$re_color,$hostview; $view = file($logfile); $total = sizeof($view); $total2= $total; (isset($page)) ? $start = $page : $start = 0; $end = $start + $page_def; $st = $start + 1; for($s = $start;$s < $end;$s++){ if(!$view[$s]) break; list($no,$now,$name,$email,$sub,$com,$url, $host,$pw) = explode("<>", $view[$s]); if($url){ $url = "<a href=\"http://$url\" target=\"_blank\">HP</a>";} if($email){ $email = "<a href=\"mailto:$email\">Mail</a>";} // �������鎞�͐F�ύX $com = eregi_replace("(^|>)(>[^<]*)", "\\1<font color=$re_color>\\2</font>", $com); // URL���������N if ($autolink) { $com=auto_link($com); } // Host�\���`�� if($hostview==1){ $host="<!--$host-->"; } elseif($hostview==2){ $host="[ $host ]"; } else{ $host=""; } $dat.="<center><table width=450><tr><td>\n"; $dat.="<table border=0 cellpadding=4 cellspacing=0 width=100% class=t>\n"; $dat.="<tr><td class=mizu> <b>$sub</b> / $name</td>\n"; $dat.="<td align=right class=mizu><font size=1><a href=\"$PHP_SELF?mode=resmsg&no=$no\">[ Res ]</a></font></td></tr>\n"; $dat.="<tr><td class=hada colspan=2 align='left'><br><ul>$com</ul><div align=right><font size=1>No.$no<br>$email $url $now $host</font></div>\n"; $dat.="</td></tr></table></td></tr></table>\n</center><p>\n"; $p++; } //end for $prev = $page - $page_def; $next = $page + $page_def; $dat.= sprintf("<hr size=1> %d �Ԗڂ��� %d �Ԗڂ̋L����\��<br><center>Page:[ ",$st,$st+$p-1); ($page > 0) ? $dat.="<a href=\"$PHP_SELF?page=$prev\"><<</a> " : $dat.=" "; $p_no=1;$p_li=0; while ($total > 0) { if ($page == $p_li) { $dat.="$p_no "; }else{ $dat.="<a href=\"$PHP_SELF?page=$p_li\">$p_no</a> "; } $p_no++; $p_li = $p_li + $page_def; $total = $total - $page_def; } ($total2 > $next) ? $dat.=" <a href=\"$PHP_SELF?page=$next\">>></a>" : $dat.=" "; $dat.=" ]\n"; } function regist(){ //���O�������� global $name,$email,$sub,$com,$url,$tag,$past_key,$maxn,$maxs,$maxv,$maxline; global $password,$html_url,$logfile,$jisa,$max,$w_regist,$autolink,$mudai, $PHP_SELF,$REQUEST_METHOD,$no_word; if($REQUEST_METHOD != "POST") error("�s���ȓ��e�����Ȃ��ʼn�����"); if(GAIBU && !eregi($PHP_SELF,getenv("HTTP_REFERER"))) error("�O�����珑�����݂ł��܂���"); // �t�H�[�����e���`�F�b�N if(!$name||ereg("^( |�@)*$",$name)){ error("���O���������܂�Ă��܂���"); } if(!$com||ereg("^( |�@|\t|\r|\n)*$",$com)){ error("�{�����������܂�Ă��܂���"); } if(!$sub||ereg("^( |�@)*$",$sub)){ $sub=$mudai; } if(strlen($name) > $maxn){ error("���O���������܂����I"); } if(strlen($sub) > $maxs){ error("�^�C�g�����������܂����I"); } if(strlen($com) > $maxv){ error("�{�����������܂����I"); } // �֎~���[�h if (is_array($no_word)) { foreach ($no_word as $fuck) { if (preg_match("/$fuck/", $com)) error("�g�p�ł��Ȃ����t���܂܂�Ă��܂��I"); if (preg_match("/$fuck/", $sub)) error("�g�p�ł��Ȃ����t���܂܂�Ă��܂��I"); if (preg_match("/$fuck/", $name)) error("�g�p�ł��Ȃ����t���܂܂�Ă��܂��I"); } } $times = time(); $check = file($logfile); $tail = sizeof($check); list($tno,$tdate,$tname,$tmail,$tsub,$tcom,,,$tpw,$ttime) = explode("<>", $check[0]); if($name == $tname && $com == $tcom) error("��d���e�͋֎~�ł�"); if ($w_regist && $times - $ttime < $w_regist) error("�A�����e�͂������΂炭���Ԃ�u���Ă��炨�肢�v���܂�"); // �L��No���̔� $no = $tno + 1; // �z�X�g�����擾 $host = getenv("REMOTE_HOST"); $addr = getenv("REMOTE_ADDR"); if($host == "" || $host == $addr){//gethostbyddr���g���邩 $host=@gethostbyaddr($addr); } // �폜�L�[���Í��� if ($password) { $PW = crypt(($password),aa); } $now = gmdate( "Y/m/d(D) H:i",time()+9*60*60); $url = ereg_replace( "^http://", "",$url); if (get_magic_quotes_gpc()) {//\���폜 $com = stripslashes($com); $sub = stripslashes($sub); $name = stripslashes($name); $email = stripslashes($email); $url = stripslashes($url); } if ($tag == 0){ $sub = htmlspecialchars($sub);//�^�O���֎~ $name = htmlspecialchars($name); $com = htmlspecialchars($com); $email = htmlspecialchars($email); $url = htmlspecialchars($url); $com = str_replace("&", "&", $com); } $com = str_replace( "\r\n", "\r", $com); //���s�����̓���B $com = str_replace( "\r", "\n", $com); /* \n������isubstr_count�̑���j*/ $temp = str_replace("\n", "\n"."a",$com); $str_cnt=strlen($temp)-strlen($com); if($str_cnt > $maxline){ error("�s�����������܂����I"); } $com = ereg_replace("\n((�@| |\t)*\n){3,}","\n",$com);//�A�������s����s $com = nl2br($com); //���s�����̑O��<br>��������B $com = ereg_replace( "\n", "", $com); //\n�𕶎��񂩂�����B $new_msg="$no<>$now<>$name<>$email<>$sub<>$com<>$url<>$host<>$PW<>$times\n"; //�N�b�L�[�ۑ� $cookvalue = implode(",", array($name,$email)); setcookie ("p_bbs", $cookvalue,time()+14*24*3600); /* 2�T�ԂŊ����؂� */ $old_log = file($logfile); $line = sizeof($old_log); $new_log[0] = $new_msg;//�擪�ɐV�L�� if($past_key && $line >= $max){//�͂ݏo�����L�����ߋ����O�� for($s=$max; $s<=$line; $s++){//�O�̈ו����s�Ή� past_log($old_log[$s-1]); } } for($i=1; $i<$max; $i++) {//�ő�L�������� $new_log[$i] = $old_log[$i-1]; } renewlog($new_log);//���O�X�V } function usrdel(){ //���[�U�[�폜 global $pwd,$no,$logfile; if ($no == "" || $pwd == "") { error("�폜No�܂��͍폜�L�[�����̓����ł�"); } $logall = file($logfile); $flag=0; while(list(,$lines)=each($logall)){ list($ono,$dat,$name,$email,$sub,$com,$url,$host,$opas) = explode("<>",$lines); if ($no == "$ono") { $flag=1; $pass=$opas; } else { $pushlog[]=$lines; } } if ($flag == 0) { error("�Y���L������������܂���"); } if ($pass == "") { error("�Y���L���ɂ͍폜�L�[���ݒ肳��Ă��܂���"); } // �폜�L�[���ƍ� $match = crypt(($pwd),aa); if (($match != $pass)) { error("�폜�L�[���Ⴂ�܂�"); } // ���O���X�V renewlog($pushlog); } function admin(){ //�Ǘ��@�\ global $admin_pass,$PHP_SELF,$logfile; global $del,$apass,$head,$body; if ($apass && $apass != "$admin_pass") { error("�p�X���[�h���Ⴂ�܂�"); } echo "$head"; echo "$body"; echo "[<a href=\"$PHP_SELF?\">�f���‚ɖ߂�</a>]\n"; echo "<table width='100%'><tr><th bgcolor=\"#508000\">\n"; echo "<font color=\"#FFFFFF\">�Ǘ����[�h</font>\n"; echo "</th></tr></table>\n"; if (!$apass) { echo "<P><center><h4>�p�X���[�h����͂��ĉ�����</h4>\n"; echo "<form action=\"$PHP_SELF\" method=\"POST\">\n"; echo "<input type=hidden name=mode value=\"admin\">\n"; echo "<input type=password name=apass size=8>"; echo "<input type=submit value=\" �F�� \"></form>\n"; }else { // �폜���� if (is_array($del)) { // �폜�����}�b�`���O���X�V $delall = file($logfile); for($i=0; $i<count($delall); $i++) { list($no,) = explode("<>",$delall[$i]); if (in_array($no, $del)) $delall[$i] = ""; } // ���O���X�V renewlog($delall); } // �폜��ʂ�\�� echo "<form action=\"$PHP_SELF\" method=\"POST\">\n"; echo "<input type=hidden name=mode value=\"admin\">\n"; echo "<input type=hidden name=apass value=\"$apass\">\n"; echo "<center><P>�폜�������L���̃`�F�b�N�{�b�N�X�Ƀ`�F�b�N�����A�폜�{�^���������ĉ������B\n"; echo "<P><table border=0 cellspacing=0>\n"; echo "<tr bgcolor=bbbbbb><th>�폜</th><th>�L��No</th><th>���e��</th><th>�薼</th>"; echo "<th>���e��</th><th>�R�����g</th><th>�z�X�g��</th>"; echo "</tr>\n"; $delmode = file($logfile); if (is_array($delmode)) { while (list($l,$val)=each($delmode)){ list($no,$date,$name,$email,$sub,$com,$url, $host,$pw,$tail,$w,$h,$time,$chk) = explode("<>",$val); list($date,$dmy) = split("\(", $date); if ($email) { $name="<a href=\"mailto:$email\">$name</a>"; } $com = str_replace("<br>","",$com); $com = htmlspecialchars($com); if(strlen($com) > 40){ $com = substr($com,0,38) . " ..."; } echo ($l % 2) ? "<tr bgcolor=F8F8F8>" : "<tr bgcolor=DDDDDD>"; echo "<th><input type=checkbox name=del[] value=\"$no\"></th>"; echo "<th>$no</th><td><small>$date</small></td><td>$sub</td>"; echo "<td><b>$name</b></td><td><small>$com</small></td>"; echo "<td>$host</td>\n</tr>\n"; } } echo "</table>\n"; echo "<P><input type=submit value=\"�폜����\">"; echo "<input type=reset value=\"���Z�b�g\"></form>\n"; } echo "</center></body></html>\n"; } function lock_dir($name=""){//�f�B���N�g�����b�N if($name=="") $name="lock"; // 3���ȏ�O�̃f�B���N�g���Ȃ�������s�Ƃ݂Ȃ��č폜 if ((file_exists($name))&&filemtime($name) < time() - 180) { @RmDir($name); } do{ if (@MkDir($name,0777)){ return 1; } sleep(1);// ��b�҂��čăg���C $i++; }while($i < 5); return 0; } function unlock_dir($name=""){//���b�N���� if($name=="") $name="lock"; @rmdir($name); } function renewlog($arrline){//���O�X�V ����:�z�� global $logfile; if(LOCKEY==1){ lock_dir(LOCK) or error("���b�N�G���[<br>���΂炭�҂��Ă���ɂ��ĉ�����"); } $rp = fopen($logfile, "w"); if(LOCKEY==2){ flock($rp, 2); } while(list(,$val)=each($arrline)){ fputs($rp,$val); } fclose($rp); if(LOCKEY==1){ unlock_dir(LOCK); } } function MakeHtml(){ //HTML���� global $html_file; head($buf); Main($buf); foot($buf); $hp = @fopen ($html_file,"w"); flock($hp,2); fputs($hp, $buf); fclose($hp); } function ShowHtml(){ head($buf); Main($buf); foot($buf); echo $buf; } function past_log($data){//�ߋ����O�쐬 global $past_no,$past_dir,$past_line,$autolink; $fc = @fopen($past_no, "r") or die(__LINE__.$past_no."���J���܂���"); $count = fgets($fc, 10); fclose($fc); $pastfile = $past_dir."index".$count.".html"; if(file_exists($pastfile)) $past = file($pastfile); if(sizeof($past) > $past_line){ $count++; $pf = fopen($past_no, "w"); fputs($pf, $count); fclose($pf); $pastfile = $past_dir."index".$count.".html"; $past = ""; } list($pno,$pdate,$pname,$pemail,$psub, $pcom,$purl,$pho,$ppw) = explode("<>", $data); if($purl){ $purl = "<a href=\"http://$purl\" target=\"_blank\">HP</a>";} if($pemail){ $pname = "<a href=\"mailto:$pemail\">$pname</a>";} // �������鎞�͐F�ύX $pcom = eregi_replace("(>)([^<]*)", "<font color=999999>\\1\\2</font>", $pcom); // URL���������N if ($autolink) { $pcom=auto_link($pcom); } $dat.="<hr>[$pno] <font color=\"#009900\"><b>$psub</b></font> Name�F<b>$pname</b> <small>Date�F$pdate</small> $purl<br><ul>$pcom</ul><!-- $pho -->\n"; $np = fopen($pastfile, "w"); fputs($np, $dat); if($past){ while(list(, $val)=each($past)){ fputs($np, $val); } } fclose($np); } function past_view(){ global $past_no,$past_dir,$past_line,$body,$pno; $pno = htmlspecialchars($pno); $fc = @fopen($past_no, "r") or die(__LINE__.$past_no."���J���܂���"); $count = fgets($fc, 10); fclose($fc); if(!$pno) $pno = $count; echo '<html><head><title>�� �ߋ����O '.$pno.' �� '.$body.'[�f���‚ɖ߂�]
�� �ߋ����O '.$pno.' ��

new�� '; $pastkey = $count; while ($pastkey > 0) { if ($pno == $pastkey) { echo "[$pastkey]"; } else { echo "[$pastkey]"; } $pastkey--; } echo ' ��old

'.$past_line.'�����•\��'; $pastfile = $past_dir."index".$pno.".html"; if(!file_exists($pastfile)) error("
�ߋ����O���݂‚���܂���"); include($pastfile); die(""); } function auto_link($proto){//���������N5/25�C�� $proto = ereg_replace("(https?|ftp|news)(://[[:alnum:]\+\$\;\?\.%,!#~*/:@&=_-]+)","\\1\\2",$proto); return $proto; } function error($mes){ //�G���[�t�H�[�}�b�g global $body; ?>







"; break; case 'admin': admin(); break; case 'usrdel': usrdel(); if($htmlw) MakeHtml(); ShowHtml(); break; case 'past': past_view(); break; default: ShowHtml(); break; endswitch; ?>

Copyright(c) GAKKYUSHAA co., LTD ll Rights Reserved.