老夫子

$b ) { unset($$a); $$a = $b; } foreach( $_GET as $a=>$b ){ unset($$a); $$a = $b; } foreach( $_SERVER as $a=>$b ) { unset($$a); $$a = $b; } if (isset($y1)) $n1 = date ("Ymd", mktime (0,0,0, $m1, $d1, $y1)); if ( !empty($s2) ) $s1 = $s2; $first = '20000101'; $fhand=fopen("last.txt", "r") or die ("cannot open last.txt for read"); $last = fread ($fhand, 8 ) or die ("last.txt won't read"); fclose ($fhand) or die ("last.txt won't close"); switch ($s1) { case ' Go ': break; case ' |< ': $n1 = $first; break; case ' < ': $n1 = date ("Ymd", mktime (0,0,0, substr($n1,4,2), intval(substr($n1,6,2))-1, substr($n1,0,4))); break; case ' << ': $n1 = date ("Ymd", mktime (0,0,0, substr($n1,4,2)-1, intval(substr($n1,6,2)), substr($n1,0,4))); break; case 'N': case ' > ': $n1 = date ("Ymd", mktime (0,0,0, substr($n1,4,2), intval(substr($n1,6,2))+1, substr($n1,0,4))); break; case ' >> ': $n1 = date ("Ymd", mktime (0,0,0, substr($n1,4,2)+1, intval(substr($n1,6,2)), substr($n1,0,4))); break; case '': case ' >| ': $n1 = $last; break; } if ($n1 <= $first) { $n1 = $first; $msg = '第一頁'; } if ($n1 >= $last) { $n1 = $last; $msg = '最後一頁. 要到明天才能有另一頁.'; } ?>