# **********************************************************
# 配列の表示
# **********************************************************
function DispArray( &$Array ) {
 
	OutCr( "<PRE>" );
	print_r( $Array );
	OutCr( "</PRE>" );
 
}

# **********************************************************
# 連想配列の表示
# **********************************************************
function DispHash( &$Hash, $strTitle="" ) {
 
	$Class = "class=DEBUG_TITLE";
 
	OutCr( "<TABLE border=4 cellpadding=5 bgcolor=WHITE style='border-style:ridge'>" );
	OutCr( Th( "$strTitle 名称", $Class ) );
	OutCr( Th( 内容, $Class ) );
	foreach( $Hash as $Key => $Value ) {
		OutCr( "<TR>" );
		OutCr( Td( $Key ) );
		if ( $Value == "" ) {
			OutCr( Td( " " ) );
		}
		else {
			OutCr( Td( $Value ) );
		}
		OutCr( "</TR>" );
	}
	OutCr( "</TABLE>" );
 
}
 
# **********************************************************
# デバッグ用情報表示関数
# **********************************************************
function DispDebug( $strType="MISS" ) {
 
	$TableTag = "<TABLE border=4 cellpadding=5 bgcolor=WHITE style='border-style:ridge'>";
	$Err = "デバッグ用情報表示関数への引数が誤っています";
	$Class = "class=DEBUG_TITLE";
 
	switch( $strType ) {
		case "VER":
			OutCr( $TableTag );
			OutCr( Th( "現在のPHPバージョン", $Class ) );
			OutCr( "<TR>" );
			OutCr( Td( phpversion() ) );
			OutCr( "</TR>" );
			OutCr( "</TABLE>" );
			break;
 
		case "POST":
			DispHash( $_POST, "POST" );
			break;
 
		case "GET":
			DispHash( $_GET, "GET" );
			break;
 
		case "SESSION":
			if ( isset( $_SESSION ) ) {
				DispHash( $_SESSION, "SESSION" );
			}
			break;
 
		case "ENV":
			DispHash( $_ENV, "ENV" );
			break;
 
		case "SERVER":
			DispHash( $_SERVER, "SERVER" );
			break;
 
		case "COOKIE":
			DispHash( $_COOKIE, "COOKIE" );
			break;
 
		case "REQUEST":
			DispHash( $_REQUEST, "REQUEST" );
			break;
 
		default:
			OutCr( $TableTag );
			OutCr( Th( $Err, $Class ) );
			OutCr( "</TABLE>" );
			break;
	}
 
}