/****************************************************************************/
/*	ぷーのメモ帳 in Web. Java Scriptファイル(puusan.js)						*/
/****************************************************************************/
/*	(Rule)																	*/
/*	全ページ基本的にこのJava Script外部ファイルを参照する					*/
/****************************************************************************/

/*--------------------------------------------------------------------------*/
/*	【共通関数】ロジカルエラー												*/
/*--------------------------------------------------------------------------*/
function Sub_ErrOccure( strGenre, strMsg){

	var strErrMsg = "";

	switch (strGenre) {
		case "Logical" :  // ロジカルエラー
			strErrMsg = "Sorry... (Logical-error occured in JavaScript)\n\n";
			break;
		case "General" :  // 一般的エラー
			strErrMsg = "Sorry... (General-error occured in JavaScript)\n\n";
			break;
		default :  // エラージャンルさえ設定されていないもの
			strErrMsg = "Sorry... (Undefined-error occured in JavaScript)\n\n";
			break;
	}

	strErrMsg = strErrMsg + " 　∧＿∧\n";
	strErrMsg = strErrMsg + "　（；ω；)　＜ " + strMsg + "\n";
	strErrMsg = strErrMsg + "　（つ旦と）\n";
	strErrMsg = strErrMsg + "　と＿）＿）\n";
	alert(strErrMsg);

}

/*--------------------------------------------------------------------------*/
/*	【共通関数】アーティスト識別子を現URLから求める							*/
/*--------------------------------------------------------------------------*/
function Sub_ArtistIdSetup(strBaseUrl){

	var strWrk = "";

	strWrk = strBaseUrl.replace(/\\|\\/g, "/");  // "\" → "/"
	if ((n = strWrk.lastIndexOf("/")) != -1) {
		strWrk = strWrk.substring(n+1);  // カレントファイル名
		strWrk = strWrk.replace(".htm", "");
		strWrk = strWrk.replace("_all", "");
	} else {
		return "-1";
	}

	return strWrk;
}

/*--------------------------------------------------------------------------*/
/*	【共通関数】数値をカンマ表示にする										*/
/*--------------------------------------------------------------------------*/
function Sub_AddComma(intValue) {

	var iCnt;
	var strWrk = String(intValue);

	for( iCnt = 0; iCnt < strWrk.length / 3; iCnt++) {
		strWrk = strWrk.replace(/^([+-]?\d+)(\d\d\d)/,"$1,$2");
	}

	return strWrk;
}


/*----------------------------------------------------------------------*/
/*	al_review : アルバムレビュー系（→廃止）							*/
/*----------------------------------------------------------------------*/
/* （アルバム全曲レビュー）全アルバムレビューのリンクを生成 */
function mklink_aldom_to_alall(){
	var strUrl = document.URL;
	wrkUrl = strUrl.replace("al_dom", "al_all");
	wrkUrl = wrkUrl.replace(".htm", "_all.htm");
	var strLink = "<a href=\"" + wrkUrl + "\">全アルバム</a>";
	document.write(strLink);
}
/* （全アルバムレビュー）アルバム全曲レビューのリンクを生成 */
function mklink_alall_to_aldom(){
	var strUrl = document.URL;
	wrkUrl = strUrl.replace("al_all", "al_dom");
	wrkUrl = wrkUrl.replace("_all", "");
	var strLink = "<a href=\"" + wrkUrl + "\">アルバム全曲</a>";
	document.write(strLink);
}

/*--------------------------------------------------------------------------*/
/*	【アルバム全曲レビュー／全アルバムレビュー】トップページサマリ出力		*/
/*--------------------------------------------------------------------------*/
function mk_alsumm( strG ) {

	var intFPos = 0;				/* チェック対象フィールドポジション		*/
	var intAlbumCnt = 0;			/* レビュー済アルバム数カウンタ			*/
	var intReviewCnt = 0;			/* レビュー数カウンタ					*/
	var intArtistCnt = 0;			/* レビュー済アーティスト数カウンタ		*/

	var strOS = "";					/* document.write();で出力する文字列	*/

	var strThreadInf = "";			/* Hコーディング：掲載スレッド			*/
	var strOldestAlInf = "";		/* Hコーディング：最も古いアルバム		*/
	var strNewestAlInf = "";		/* Hコーディング：最も新しいアルバム	*/

	wrkArray = new Array("");		/* アルバムリスト配列					*/

	var strWrk01 = "";				/* ワークバッファ						*/

	/*----------------------------------------------------------------------*/
	/*	コンストラクタ部(変数定義等)										*/
	/*----------------------------------------------------------------------*/
	switch (strG) {
		case "aldom_top" :
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			intFPos = FP_ATRNUM_T;
			break;
		case "alall_top" :
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			intFPos = FP_AARNUM_T;
			break;
		case "alall2_top" :
			wrkArray = wrkArray.concat(OVERSEAS_AL_LIST);
			intFPos = FP_AARNUM_T;
			break;
		default :
			Sub_ErrOccure( "Logical", "モードが不正だべ。(" + strG + ")");
			return;
	}

	/*----------------------------------------------------------------------*/
	/*	ループロジック部(計算等)											*/
	/*----------------------------------------------------------------------*/
	for (iCnt = 0; iCnt < wrkArray.length; iCnt++) {
		if ( ( wrkArray[iCnt][intFPos] != "0" ) && (!(isNaN(wrkArray[iCnt][intFPos]))) ) {
			intAlbumCnt = intAlbumCnt + 1;  // アルバム数カウント＋１
			intReviewCnt = intReviewCnt + parseInt(wrkArray[iCnt][intFPos]);  // レビュー数カウント＋１
			if ( wrkArray[iCnt][FP_ARTISTID] != strWrk01 ) {  // 違うアーティストIDになった？
				intArtistCnt = intArtistCnt + 1;  // アーティスト数カウント＋１
				strWrk01 = wrkArray[iCnt][FP_ARTISTID];
			}
		}
	}

	/*----------------------------------------------------------------------*/
	/*	フッタロジック部(結果表示等)										*/
	/*----------------------------------------------------------------------*/
	strOS = "<hr class=\"pos_summary\" align=\"left\">";

	switch (strG) {
		case "aldom_top" :
			strOS = strOS + "<span class=\"siz11\">※ 現在、工事中でございます。。。（下記サマリー値は、18th.〜24th.にてマトメを実施したアーティストの数値となっております m(_ _)m ）</span><br><br>";

			strThreadInf = "<span class=\"imp14\">1st.〜24th.</span><span class=\"col6\">（24th.はすべて）</span>＋<span class=\"imp14\">避難所1st.</span><span class=\"col6\">（避1st.は1〜162）</span>";
			strOldestAlInf = "<span class=\"col6\">ザ・タイガース 『THE TIGERS ON STAGE』</span>　<span class=\"siz11\">（1967年11月5日リリース）</span>";
			strNewestAlInf = "<span class=\"col6\">桑田佳佑『MUSICMAN』</span>　<span class=\"siz11\">（2011年2月23日リリース）</span>";
			break;

		case "alall_top" :
			strThreadInf = "<span class=\"imp14\">1st.</span><span class=\"col6\">（1st.はすべて）</span>";
			strOldestAlInf = "<span class=\"col6\">オフコース『僕の贈りもの』</span>　<span class=\"siz11\">（1973年6月5日リリース）</span>";
			strNewestAlInf = "<span class=\"col6\">ASIAN KUNG-FU GENERATION 『サーフ ブンガク カマクラ』</span>　<span class=\"siz11\">（2008年11月5日リリース）</span>";
			break;

		case "alall2_top" :
			strOS = strOS + "<span class=\"siz11\">※ 現在、ベータ版としての公開でございます。。。</span><br><br>";

			strThreadInf = "<span class=\"imp14\">1st.</span><span class=\"col6\">（1st.は1〜500あたりまで）</span>";
			strOldestAlInf = "<span class=\"col6\">Frank Zappa 『Freak Out!』</span>　<span class=\"siz11\">（1966年リリース）</span>";
			strNewestAlInf = "<span class=\"col6\">The Last Shadow Puppets 『The Age of the Understatement』</span>　<span class=\"siz11\">（2008年リリース）</span>";
			break;
	}

	strOS = strOS + "<table>";
	strOS = strOS + "<tr><td class=\"altop_cap\">まとめ掲載スレッド</td>";
	strOS = strOS + "<td class=\"altop_name\">" + strThreadInf + "</td></tr>";
	strOS = strOS + "<tr><td class=\"altop_cap\">アーティスト数</td>";
	strOS = strOS + "<td class=\"altop_name\"><span class=\"imp14\">" + Sub_AddComma(intArtistCnt) + "</span> アーティスト <span class=\"siz11\">（カバー・V.A.もの除く）</span></td></tr>";
	strOS = strOS + "<tr><td class=\"altop_cap\">アルバムの枚数</td>";
	strOS = strOS + "<td class=\"altop_name\"><span class=\"imp14\">" + Sub_AddComma(intAlbumCnt) + "</span> 枚</td></tr>";
	strOS = strOS + "<tr><td class=\"altop_cap\">延べレビュー数</td>";
	strOS = strOS + "<td class=\"altop_name\"><span class=\"imp14\">" + Sub_AddComma(intReviewCnt) + "</span> レビュー</td></tr>";
	strOS = strOS + "<tr><td class=\"altop_cap\">最も古いアルバム</td>";
	strOS = strOS + "<td class=\"altop_name\">" + strOldestAlInf + "</td></tr>";
	strOS = strOS + "<tr><td class=\"altop_cap\">最も新しいアルバム</td>";
	strOS = strOS + "<td class=\"altop_name\">" + strNewestAlInf + "</td></tr>";
	strOS = strOS + "</table>";

	document.write(strOS);
}

/*--------------------------------------------------------------------------*/
/*	【アルバム全曲レビュー／全アルバムレビュー】アルバム情報関連出力		*/
/*--------------------------------------------------------------------------*/
/* (notes)																	*/
/*	各引数内容は以下のとおり												*/
/*	*/
/*--------------------------------------------------------------------------*/
function mk_alinfo( strG, strArgv ) {

	var strUrl = document.URL;		/* 現在のURL							*/
	var strArtistId = "";			/* アーティスト識別子					*/

	var strOS = "";					/* document.write();で出力する文字列	*/

	var	strOldestAlGenre = "";		/* 最も古いアルバムのジャンル			*/
	var strOldestAlTitle = "";		/* 最も古いアルバムのタイトル			*/
	var	strOldestAlSubTitle = "";	/* 最も古いアルバムのサブタイトル		*/
	var	strNewestAlGenre = "";		/* 最も新しいアルバムのジャンル			*/
	var strNewestAlTitle = "";		/* 最も新しいアルバムのタイトル			*/
	var	strNewestAlSubTitle = "";	/* 最も新しいアルバムのサブタイトル		*/
	var	strNewestAlRelDate = "";	/* 最も新しいアルバムのリリース日		*/

	var strOldestUpAlTitle = "";	/* 今回更新の最も古いアルバムタイトル	*/
	var strNewestUpAlTitle = "";	/* 今回更新の最も新しいアルバムタイトル	*/

	var	strSelector = "";			/* (引数から得た)アルバム記号			*/
	var	strRating =  "";			/* (引数から得た)評価					*/

	var	intAlbumCnt = 0;			/* レビュー済アルバム数カウンタ			*/
	var	intReviewCnt = 0;			/* レビュー数カウンタ					*/

	var intBreakFlg = 0;			/* ループブレイクフラグ					*/

	var strWrk = "";				/* ワークバッファ						*/

	wrkArray = new Array("");		/* アルバムリスト配列					*/

	/*----------------------------------------------------------------------*/
	/*	コンストラクタ部(変数定義等)										*/
	/*----------------------------------------------------------------------*/
	switch (strG) {
		/********************************************************************/
		case "aldom_latestlist" :  // 全曲レビュートップ更新アルバム一覧
		/********************************************************************/
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = strArgv;  // アーティスト識別子は引数から得る
			break;
		/********************************************************************/
		case "aldom_currentlist" :  // 全曲レビュートップレビューアルバム一覧
		/********************************************************************/
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = strArgv;  // アーティスト識別子は引数から得る
			break;
		/********************************************************************/
		case "alall_currentlist" :  // 全アルバムレビュートップ掲載一覧(邦楽)
		/********************************************************************/
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = strArgv;  // アーティスト識別子は引数から得る
			break;
		/********************************************************************/
		case "alall2_currentlist" :  // 全アルバムレビュートップ掲載一覧(洋楽)
		/********************************************************************/
			wrkArray = wrkArray.concat(OVERSEAS_AL_LIST);
			strArtistId = strArgv;  // アーティスト識別子は引数から得る
			break;
		/********************************************************************/
		case "aldom_list" :  // 全曲レビュー各ページリスト出力
		/********************************************************************/
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			break;
		/********************************************************************/
		case "aldom_subject" :  // 全曲レビュー各ページアルバム単体情報
		/********************************************************************/
			strSelector = strArgv;
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			break;
		/********************************************************************/
		case "alall_list" :  // 全アルバムレビュー各ページリスト出力(邦楽)
		/********************************************************************/
			wrkArray = wrkArray.concat(DOMESTIC_AL_LIST);
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			break;
		/********************************************************************/
		case "alall2_list" :  // 全アルバムレビュー各ページリスト出力(洋楽)
		/********************************************************************/
			wrkArray = wrkArray.concat(OVERSEAS_AL_LIST);
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			break;
		/********************************************************************/
		case "alall2_rate" :  // 全アルバムレビュー各ページアルバム評価(洋楽)
		/********************************************************************/
			strSelector = strArgv.substring(0,4);  // 引数からアルバム記号を取得
			strRating =  strArgv.substring(4);  // 引数から評価文字列を取得
			wrkArray = wrkArray.concat(OVERSEAS_AL_LIST);
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			break;
		/********************************************************************/
		default :  // モード不正
		/********************************************************************/
			Sub_ErrOccure( "Logical", "モードが不正だべ。(" + strG + ")");
			return;
	}

	/*----------------------------------------------------------------------*/
	/*	ループロジック部(計算等)											*/
	/*----------------------------------------------------------------------*/
	for (iCnt = 0; iCnt < wrkArray.length; iCnt++) {
		if ( wrkArray[iCnt][FP_ARTISTID] == strArtistId ) {  // アーティスト識別子が一致？
			switch (strG) {
				/***********************************************************/
				case "aldom_latestlist" :  // 全曲レビュートップ更新アルバム一覧
				/***********************************************************/
					if ( wrkArray[iCnt][FP_ATRNUM_N] != "0" ) {  // 今回更新モノ？
						strWrk = strWrk + wrkArray[iCnt][FP_TITLE_M] + ", ";
					}
					break;
				/***********************************************************/
				case "aldom_currentlist" :  // 全曲レビュートップレビューアルバム一覧
				/***********************************************************/
					if ( wrkArray[iCnt][FP_ATRNUM_T] != "0" ) {  // レビューされている？
						if ( wrkArray[iCnt][FP_ATRNUM_N] != "0" ) {  // 今回更新モノ？
							strWrk = strWrk + "<span class=\"col6\">" + wrkArray[iCnt][FP_TITLE_M] + "</span>, ";
						} else {
							strWrk = strWrk + wrkArray[iCnt][FP_TITLE_M] + ", ";
						}
					}
					break;
				/***********************************************************/
				case "alall_currentlist" :  // 全アルバムレビュートップ掲載一覧
				case "alall2_currentlist" : // (邦楽・洋楽共通ロジック)
				/***********************************************************/
					if ( wrkArray[iCnt][FP_AARNUM_T] != "0" ) {  // レビューがある？
						if ( wrkArray[iCnt][FP_AARNUM_N] != "0" ) {  // 今回更新されたもの？
							if ( strOldestUpAlTitle == "" ) {  // このロジック初回？
								strOldestUpAlTitle = wrkArray[iCnt][FP_TITLE_M];
							} else {
								strNewestUpAlTitle = wrkArray[iCnt][FP_TITLE_M];
							}
						}
						if ( strOldestAlTitle == "" ) {  // このロジック初回？
							strOldestAlTitle = wrkArray[iCnt][FP_TITLE_M];
						} else {
							strNewestAlTitle = wrkArray[iCnt][FP_TITLE_M];
						}
					}
					break;
				/************************************************************/
				case "aldom_list" :  // 全曲レビュー各ページリスト出力
				/************************************************************/
					if ( wrkArray[iCnt][FP_ATRNUM_T] != "0" ) {
						if ( wrkArray[iCnt][FP_ATRNUM_N] != "0" ) {  // 今回更新されたもの？
							strWrk = strWrk + "<dd><span class=\"alcap\">" + wrkArray[iCnt][FP_GENRE_E] + "</span> <span class=\"rev_latestalbum\">" + wrkArray[iCnt][FP_TITLE_M] + " " + wrkArray[iCnt][FP_TITLE_S] + "</span> : " + wrkArray[iCnt][FP_ATRNUM_T];
						} else {
							strWrk = strWrk + "<dd><span class=\"alcap\">" + wrkArray[iCnt][FP_GENRE_E] + "</span> <span class=\"rev_album\">" + wrkArray[iCnt][FP_TITLE_M] + " " + wrkArray[iCnt][FP_TITLE_S] + "</span> : " + wrkArray[iCnt][FP_ATRNUM_T];
						}
						intAlbumCnt = intAlbumCnt + 1;
						intReviewCnt = intReviewCnt + parseInt(wrkArray[iCnt][FP_ATRNUM_T]);
					}
					break;
				/************************************************************/
				case "aldom_subject" :  // 全曲レビュー各ページアルバム単体情報
				/************************************************************/
					if ( wrkArray[iCnt][FP_ALID] == strSelector ) {
						strNewestAlGenre = wrkArray[iCnt][FP_GENRE_J];
						strNewestAlTitle = wrkArray[iCnt][FP_TITLE_M];
						strNewestAlSubTitle = wrkArray[iCnt][FP_TITLE_S];
						strNewestAlRelDate = wrkArray[iCnt][FP_RELDAY];
						intBreakFlg = 1;  // 全体ループをブレイクする
					}
					break;
				/************************************************************/
				case "alall_list" :  // 全アルバムレビュー各ページリスト出力
				case "alall2_list" : // (邦楽・洋楽共通ロジック)
				/************************************************************/
					if ( wrkArray[iCnt][FP_AARNUM_T] != "0" ) {
						if ( strOldestAlTitle == "" ) {  // このロジック初回？
							strOldestAlGenre = wrkArray[iCnt][FP_GENRE_E];
							strOldestAlTitle = wrkArray[iCnt][FP_TITLE_M];
							strOldestAlSubTitle = wrkArray[iCnt][FP_TITLE_S];
						} else {
							strNewestAlGenre = wrkArray[iCnt][FP_GENRE_E];
							strNewestAlTitle = wrkArray[iCnt][FP_TITLE_M];
							strNewestAlSubTitle = wrkArray[iCnt][FP_TITLE_S];
						}
						intAlbumCnt = intAlbumCnt + 1;
						intReviewCnt = intReviewCnt + parseInt(wrkArray[iCnt][FP_AARNUM_T]);
					}
					break;
				/************************************************************/
				case "alall2_rate" :  // 全アルバムレビュー各ページアルバム評価(洋楽)
				/************************************************************/
					if ( wrkArray[iCnt][FP_ARTISTID] == strArtistId ) {
						if ( wrkArray[iCnt][FP_ALID] == strSelector ) {
							strNewestAlGenre = wrkArray[iCnt][FP_GENRE_E];
							strNewestAlTitle = wrkArray[iCnt][FP_TITLE_M];
							strNewestAlSubTitle = wrkArray[iCnt][FP_TITLE_S];
							intBreakFlg = 1;  // 全体ループをブレイクする
						}
					}
					break;
			}
		}
		if ( intBreakFlg != 0 ) break;  // 全体ループをブレイク
	}

	/*----------------------------------------------------------------------*/
	/*	フッタロジック部(結果表示等)										*/
	/*----------------------------------------------------------------------*/
	switch (strG) {
		/********************************************************************/
		case "aldom_latestlist" :  // 全曲レビュートップ更新アルバム一覧
		/********************************************************************/
			strOS = "<span class=\"siz13\"><span class=\"col6\">" + strWrk + "</span></span>";
			break;
		/********************************************************************/
		case "aldom_currentlist" :  // 全曲レビュートップレビューアルバム一覧
		/********************************************************************/
			strOS = "<span class=\"siz13\">" + strWrk + "</span>";
			break;
		/********************************************************************/
		case "alall_currentlist" :  // 全アルバムレビュートップ掲載一覧
		case "alall2_currentlist" : // (邦楽・洋楽共通ロジック)
		/********************************************************************/
			if ( strNewestAlTitle == "" ) {  // レビューアルバムは1種類だけ？
				strOS = "<span class=\"siz13\">" + strOldestAlTitle;
			} else {
				strOS = "<span class=\"siz13\">" + strOldestAlTitle + " ⇒ " + strNewestAlTitle;
			}
			if ( strOldestUpAlTitle != "" ) {  // 今回更新アルバムがある？
				if ( strNewestUpAlTitle == "" ) {  // 今回更新アルバムは1種類だけ？
					strOS = strOS + "<span class=\"col6\">　（ up : " + strOldestUpAlTitle + "）</span>";
				} else {
					strOS = strOS + "<span class=\"col6\">　（ up : " + strOldestUpAlTitle + " ⇒ " + strNewestUpAlTitle + " ）</span>";
				}
			}
			strOS = strOS + "</span>";
			break;
		/********************************************************************/
		case "aldom_list" :  // 全曲レビュー各ページリスト出力
		/********************************************************************/
			strOS = "<hr class=\"pos_allist\" align=\"left\">";
			strOS = strOS + "<dl><dt>○ 登録アルバムとレビュー数 （<span class=\"imp16\"> " + intAlbumCnt + " </span><span class=\"siz13\"> アルバム，</span><span class=\"imp16\">" + intReviewCnt + "</span><span class=\"siz13\"> レビュー</span>）";
			strOS = strOS + strWrk + "</dl>";
			strOS = strOS + "<hr class=\"pos_archive\" align=\"left\">";
			break;
		/********************************************************************/
		case "aldom_subject" :  // 全曲レビュー各ページアルバム単体情報
		/********************************************************************/
			strOS = "<hr class=\"pos_album\" align=\"left\">";
			strOS = strOS + "<table><tr>";
			strOS = strOS + "<td class=\"al_tytl\"><span class=\"caption12\">Album Title : </span>" + strNewestAlTitle + " <span class=\"siz14\">" + strNewestAlSubTitle + "</span></td>";
			strOS = strOS + "<td class=\"al_info\"><span class=\"caption12\">Release : </span>" + strNewestAlRelDate + "</td>";
			strOS = strOS + "<td class=\"al_info\"><span class=\"caption12\">Genre : </span>" + strNewestAlGenre + "</td>";
			strOS = strOS + strWrk;
			strOS = strOS + "</tr></table>";
			break;
		/********************************************************************/
		case "alall_list" :  // 全アルバムレビュー各ページリスト出力
		case "alall2_list" : // (邦楽・洋楽共通ロジック)
		/********************************************************************/
			strOS = "<hr class=\"pos_allist\" align=\"left\">";
			strOS = strOS + "<dl><dt>○ 登録アルバム範囲とレビュー数 （<span class=\"imp16\"> " + intAlbumCnt + " </span><span class=\"siz13\"> アルバム，</span><span class=\"imp16\">" + intReviewCnt + "</span><span class=\"siz13\"> レビュー</span>）";
			if ( strNewestAlTitle == "" ) {  // レビューアルバムは1種類だけ？
				strOS = strOS + "<dd><span class=\"alcap\">" + strOldestAlGenre + "</span> <span class=\"rev_album\">" + strOldestAlTitle + " " + strOldestAlSubTitle + "</span>";
			} else {
				strOS = strOS + "<dd><span class=\"alcap\">" + strOldestAlGenre + "</span> <span class=\"rev_album\">" + strOldestAlTitle + " " + strOldestAlSubTitle + "</span>";
				strOS = strOS + "<span class=\"rev_songsub\">　&gt;&gt;&gt;　</span>";
				strOS = strOS + "<span class=\"alcap\">" + strNewestAlGenre + "</span> <span class=\"rev_album\">" + strNewestAlTitle + " " + strNewestAlSubTitle + "</span>";
			}
				strOS = strOS + "</dl>";
			strOS = strOS + "<hr class=\"pos_archive\" align=\"left\">";
			break;
		/********************************************************************/
		case "alall2_rate" :  // 全アルバムレビュー各ページアルバム評価(洋楽)
		/********************************************************************/
			strOS = "<span class=\"alcap\">" + strNewestAlGenre + "</span>";
			if ( strNewestAlSubTitle != "" ) {  // サブタイトルがある？
				strOS = strOS + "<span class=\"rev_album\">" + strNewestAlTitle + "（" + strNewestAlSubTitle + "）　" + strRating + "</span>";
			} else {
				strOS = strOS + "<span class=\"rev_album\">" + strNewestAlTitle + "　" + strRating + "</span>";
			}
			break;
	}

	document.write(strOS);
}

/*--------------------------------------------------------------------------*/
/*	【廃止予定】アルバム情報＆評価出力（全アルバムレビュー）				*/
/*--------------------------------------------------------------------------*/
function mk_alInfEval( strSelector, strRating ) {

	var strUrl = document.URL;		/* 現在のURL							*/
	var strArtistId = "";			/* アーティスト識別子					*/
	var strOS = "";
	var strWrk = "";

	strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
	if ( strArtistId == "-1" ) {
		Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
		return;
	}

	// メイン部分
	for (iCnt = 0; iCnt < DOMESTIC_AL_LIST.length; iCnt++) {
		if ( DOMESTIC_AL_LIST[iCnt][0] == strArtistId ) {
			if ( DOMESTIC_AL_LIST[iCnt][1] == strSelector ) {
				strWrk = strWrk + "<span class=\"alcap\">" + DOMESTIC_AL_LIST[iCnt][3] + "</span>";
				strWrk = strWrk + "<span class=\"rev_album\">" + DOMESTIC_AL_LIST[iCnt][9] + "　" + strRating + "</span>";
				strOS = strWrk;
				break;
			}
		}
	}

	document.write(strOS);
}

/*--------------------------------------------------------------------------*/
/*	【アルバム全曲レビュー／全アルバムレビュー】レビュア情報出力			*/
/*--------------------------------------------------------------------------*/
function mk_writerinfo( strCorner, strWriter, strDate ) {

	var strUrl = document.URL;
	var strOS = "";

	switch (strCorner) {
		/**********************************************************************/
		case "al_dom" :  // アルバム全曲レビュー
		/**********************************************************************/
			strOS = "<hr class=\"pos_review\" align=\"left\">";
			strOS = strOS + "<span class=\"rev_writer\">" + strWriter + "</span><span class=\"rev_date\">（" + strDate + "）</span><br><br>";
			break;
		/**********************************************************************/
		case "al_all" :  // 全アルバムレビュー各ページレビュア情報出力
		case "al_all2" : // (邦楽・洋楽共通ロジック)
		/**********************************************************************/
			strOS = "<hr class=\"pos_allreview\" align=\"left\">";
			strOS = strOS + "<span class=\"rev_writer\">" + strWriter + "</span><span class=\"rev_date\">（" + strDate + "）</span><br><br>";
			break;
	}

	document.write(strOS);
}

/*--------------------------------------------------------------------------*/
/*	【全ページ】ページフッダ部分出力										*/
/*--------------------------------------------------------------------------*/
function mk_footpart( strCorner ) {

	var strOS = "";					/* document.write();で出力する文字列	*/

	switch (strCorner) {
		/**********************************************************************/
		case "5weeks" :  // ランキング系
		/**********************************************************************/
			strOS = "<br>";
			strOS = strOS + "<a href=\"../toplog.htm\">トップの履歴</a>　<a href=\"../../contents/contents.htm\">’フォルダ一覧’にもどる</a>";
			break;
		/**********************************************************************/
		case "al_dom" :  // 全曲レビュー各ページフッタリンク出力
		/**********************************************************************/
			strOS = "<hr class=\"pos_total\" align=\"left\">";
			strOS = strOS + "<br>";
			strOS = strOS + "<a href=\"al_domtop.htm\">インデックスページにもどる</a>　<a href=\"../../contents/contents.htm\">’フォルダ一覧’にもどる</a>";
			break;
		/**********************************************************************/
		case "al_all" :  // 全アルバムレビュー各ページフッタリンク出力(邦楽)
		/**********************************************************************/
			strOS = "<hr class=\"pos_total\" align=\"left\">";
			strOS = strOS + "<br>";
			strOS = strOS + "<a href=\"al_alltop.htm\">インデックスページにもどる</a>　<a href=\"../../contents/contents.htm\">’フォルダ一覧’にもどる</a>";
			break;
		/**********************************************************************/
		case "al_all2" :  // 全アルバムレビュー各ページフッタリンク出力(洋楽)
		/**********************************************************************/
			strOS = "<hr class=\"pos_total\" align=\"left\">";
			strOS = strOS + "<br>";
			strOS = strOS + "<a href=\"al_all2top.htm\">インデックスページにもどる</a>　<a href=\"../../contents/contents.htm\">’フォルダ一覧’にもどる</a>";
			break;
	}

	document.write(strOS);
}

/*--------------------------------------------------------------------------*/
/*	【全ページ】リンク出力													*/
/*--------------------------------------------------------------------------*/
function mk_link( strCorner ){

	var strUrl = document.URL;		/* 現在のURL							*/
	var strArtistId = "";			/* アーティスト識別子					*/

	var strOS = "";					/* document.write();で出力する文字列	*/

	var strNextUrl = "";			/* リンク遷移先URLパス					*/
	var wrkUrl = "";				/* ワークバッファ						*/

	/*----------------------------------------------------------------------*/
	/*	メインロジック部													*/
	/*----------------------------------------------------------------------*/
	switch (strCorner) {
		/********************************************************************/
		case "al_dom" :  // 全曲レビュー各ページ切替リンク出力
		/********************************************************************/
			wrkUrl = strUrl.replace("al_dom", "al_all");  // 遷移先のURLパスを求める
			strNextUrl = wrkUrl.replace(".htm", "_all.htm");
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			for (iCnt = 0; iCnt < DOMESTIC_AL_LIST.length; iCnt++) {  // "全アルバムレビュー"側のレビューが存在する場合のみURLを設定
				if ( DOMESTIC_AL_LIST[iCnt][FP_ARTISTID] == strArtistId ) {
					if ( DOMESTIC_AL_LIST[iCnt][FP_AARNUM_T] != "0" ) {
						strOS = " ⇒ <a href=\"" + strNextUrl + "\">全アルバム</a>";
						break;
					}
				}
			}
			break;
		/********************************************************************/
		case "alall" :  // 全アルバムレビュー各ページ切替リンク出力(邦楽)
		/********************************************************************/
			wrkUrl = strUrl.replace("al_all", "al_dom");  // 遷移先のURLパスを求める
			strNextUrl = wrkUrl.replace("_all", "");
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			for (iCnt = 0; iCnt < DOMESTIC_AL_LIST.length; i++) {  // "全曲レビュー"側のレビューが存在する場合のみURLを設定
				if ( DOMESTIC_AL_LIST[iCnt][FP_ARTISTID] == strArtistId ) {
					if ( DOMESTIC_AL_LIST[iCnt][FP_ATRNUM_T] != "0" ) {
						strOS = " ⇒ <a href=\"" + strNextUrl + "\">アルバム全曲</a>";
						break;
					}
				}
			}
			break;
		/********************************************************************/
		case "al_all2" :  // 全アルバムレビュー各ページ切替リンク出力(洋楽)
		/********************************************************************/
			wrkUrl = strUrl.replace("al_all2", "al_ovs");  // 遷移先のURLパスを求める
			strNextUrl = wrkUrl.replace("_all", "");
			strArtistId = Sub_ArtistIdSetup(strUrl);  // アーティスト識別子を現URLから求める
			if ( strArtistId == "-1" ) {
				Sub_ErrOccure( "Logical", "パスが不正だべ。(" + strUrl + ")");
				return;
			}
			for (iCnt = 0; iCnt < OVERSEAS_AL_LIST.length; iCnt++) {  // "全曲レビュー"側のレビューが存在する場合のみURLを設定
				if ( OVERSEAS_AL_LIST[iCnt][FP_ARTISTID] == strArtistId ) {
					if ( OVERSEAS_AL_LIST[iCnt][FP_ATRNUM_T] != "0" ) {
						strOS = " ⇒ <a href=\"" + strNextUrl + "\">アルバム全曲</a>";
						break;
					}
				}
			}
			break;
	}

	document.write(strOS);  // 文字列出力
}

/*--------------------------------------------------------------------------*/
/*	【全ページ】ヘルプ文言出力（現在使われていない）						*/
/*--------------------------------------------------------------------------*/
function mk_help( strCorner ){

	var strOS = "";

	switch (strCorner) {
		case "5weekSg" :  // 5週遅れチャートシングル
			strOS = "※ 「オリコンチャート」シングルTOP.100 のうち、リリースされてから5週以上経過したもののみをピックアップしたランキング。<br>";
			strOS = strOS + "（セルの色 ⇒ <span class=\"col11\">■</span>：初登場 <span class=\"col12\">■</span>：top.10圏内 <span class=\"col13\">■</span>：top.30圏内，フォントの色 ⇒ <span class=\"col4\">黄：ランクアップ</span> 白：ランクキープor初登場 <span class=\"col10\">グレー：ランクダウン</span>）<br>";
			break;
		case "upsSg" :  // アップスチャートシングル
			strOS = "※ 「オリコンチャート」シングルTOP.100 のうち、ランクアップ幅の高いものをピックアップしたランキング。<br>";
			strOS = strOS + "ただし、先週の順位がTOP.100圏外であった場合は、先週順位は101位として計算したものでソート。<br>";
			strOS = strOS + "（セルの色 ⇒ <span class=\"col12\">■</span>：10ランクアップ以上 <span class=\"col13\">■</span>：1〜9ランクアップ <span class=\"col14\">■</span>：ランクキープorランクダウン）<br>";
			break;
		case "5weekAl" :  // 5週遅れチャートアルバム
			strOS = "※ 「オリコンチャート」アルバムTOP.100 のうち、リリースされてから5週以上経過したもののみをピックアップしたランキング。<br>";
			strOS = strOS + "（セルの色 ⇒ <span class=\"col11\">■</span>：初登場 <span class=\"col12\">■</span>：top.10圏内 <span class=\"col13\">■</span>：top.30圏内，フォントの色 ⇒ <span class=\"col4\">黄：ランクアップ</span> 白：ランクキープor初登場 <span class=\"col10\">グレー：ランクダウン</span>）<br>";
			break;
	}

	document.write(strOS);
}