LiHitsu= new Array("音楽知識関係","HITSU");
LiDaigaku= new Array("当大学関係","DAIGAKU");
LiOBOG= new Array("OBOG関係","OBOG");
LiOtherG= new Array("他の合唱団","OTHERG");
LiInfo= new Array("情報Site/Shop","INFO");

LiTblMem=5;

// Linkテーブル(URL,Title(s-Box),Title(l-Box),詳細のタイトル,詳細の中身)
LiTblHits = new Array(
	"http://ja.wikipedia.org/wiki/%E4%BC%91%E7%AC%A6","音符(Wiki)","音符","出典：Wikipedia","スピードキング返上の為に。"
	,"http://ja.wikipedia.org/wiki/%E9%9F%B3%E5%90%8D%E3%83%BB%E9%9A%8E%E5%90%8D%E8%A1%A8%E8%A8%98","音名(Wiki)","音名","出典：Wikipedia","アーベーツェーデーエーエフゲー！"
	,"http://ja.wikipedia.org/wiki/%E9%9F%B3%E7%A8%8B","音程(Wiki)","音程","出典：Wikipedia","完全8度はオクターボとも言います。"
	,"http://ja.wikipedia.org/wiki/%E9%9F%B3%E9%AB%98","音高(Wiki)","音高","出典：Wikipedia","「ピッチ低いよ！　何やってんの！！」"
	,"http://ja.wikipedia.org/wiki/%E5%92%8C%E9%9F%B3","和音(Wiki)","和音","出典：Wikipedia","ドミソ→C Major。"
	,"http://ja.wikipedia.org/wiki/%E6%8B%8D%E5%AD%90%E8%A8%98%E5%8F%B7","拍子(Wiki)","拍子","出典：Wikipedia","三拍子は三角に振れば良い。"
	,"http://ja.wikipedia.org/wiki/%E5%A4%89%E5%8C%96%E8%A8%98%E5%8F%B7","変化記号(Wiki)","変化記号","出典：Wikipedia","「これはフラットと言うんだ」"
	,"http://ja.wikipedia.org/wiki/%E6%BC%94%E5%A5%8F%E8%A8%98%E5%8F%B7","演奏記号(Wiki)","演奏記号","出典：Wikipedia","Dolce:甘美に。"
//	,"","","","",""
//	,"","","","",""
);
LiTblHitsN=LiTblHits.length / LiTblMem;

LiTblDai = new Array(
	"http://www.tuat.ac.jp/","東京農工大学","東京農工大学","我らが母校 その１","国分寺に農学部と、東小金井に工学部がある。両学舎を繋ぐバスや電車が切実に欲しいところ。"
	,"http://www.joshibi.ac.jp/index_j.html","女子美術大学","女子美術大学","我らが母校 その２","杉並校舎と相模校舎が存在する。相模校舎へは相模大野からバスが出ていて、しかも終点で、更に大学所有地内に広い駅があると言う。"
	,"http://www.tuat.ac.jp/~gleeclub/","東京農工大学GLEE CLUB","東京農工大学<br>GLEE CLUB","東京農工大学GLEE CLUBのHPで、当HPの前身。","当HPに拠点を移した為、廃れて行く一方になるのか？！"
);
LiTblDaiN=LiTblDai.length / LiTblMem;

LiTblObog = new Array(
	"http://kazuyaozawa.blog.shinobi.jp/","小澤和也Blog","小澤和也Blog","我らが小澤先生のBlogです。","小澤先生をより深く知ることが出来ます。"
	,"http://www.d3.dion.ne.jp/%7Enjobog/","ノコジョ合唱団OBOG会","ノコジョ合唱団<br>OBOG会","当団のOBOG会のHP。","正式名称は当然「東京農工大学・女子美術大学 混声合唱団 OB・OG会 HP」で、当団に関する歴史的資料などが記載されていたりします。"
	,"http://ike-ban.11.bbs.fc2.com/","☆池版〜いけばん〜","☆池版<br>〜いけばん〜","池田あさみさんの管理する掲示板。",""
	,"http://homepage2.nifty.com/kotaba/","ぽんちくりん","ぽんちくりん","ぽんさんとにいさんによるHPです。","バイクや育児、アートなどを扱っています。"
	,"http://www.celestial-spells.com/","Celestial Spells","Celestial Spells","TagoshuさんのHPです。","天体関連を多く扱っています。"
	,"http://timor-ailand.com/","ちもーる♪あいらんど","ちもーる♪<br>あいらんど","ちもーるさん・あいさん夫妻のHP。","育児、音楽、アート、仕事などつれづれと。"
	,"http://www.saburahu.net/","寒らふの光と影","寒らふの光と影","寒らふさんのBlogです。","家電関係の日記が多い模様。"
	,"http://www6.ocn.ne.jp/~linda/","りんだ君のHP","りんだ君のHP","名前の通りりんださんのHPです。","音源やら写真やらを扱っております。"
	,"http://singingsuihou.blog107.fc2.com/","歌う水鵬のうたかた日記","歌う水鵬の<br>うたかた日記","2008年度学指揮の水鵬さんのブログです。","歌のことや練習のことなどについて綴るそうです。"
//	,"","","","",""
//	,"","","","",""
//	,"","","","",""
);
LiTblObogN=LiTblObog.length / LiTblMem;

LiTblOther = new Array(
	"http://nucc.at-ninja.jp/","日本大学合唱団","日本大学合唱団","日本大学合唱団のHPです。","東京近郊の合唱団で62年の歴史を誇り、四つの合唱団から成る遊声という活動も行っております。"
	,"http://page.freett.com/chorfrosch/index.html","コール・フロッシュ","コール・<br>フロッシュ","青山学院大学第二部合唱部のHPです。","コール・フロッシュとはドイツ語で「歌うカエル」という意味とのこと。"
	,"http://www.ne.jp/asahi/voce/home/","La Voce Orfica","La Voce Orfica","ノンプロの声楽アンサンブルのサイト","中世・ルネサンス・初期バロックの宗教音楽を東京カテドラル聖マリア大聖堂で演奏する。"
	,"http://oekora.net/","お江戸コラリアーズ","お江戸<br>コラリアーズ","男声合唱団 お江戸コラリアーズのHPです。","大学時代に男声合唱に毒されたメンバーが集う男声合唱団。農工グリーOBも何人か流れ着いています。"
	,"http://www2j.biglobe.ne.jp/%7Enodagiri/freedom/index.html","かながわFS","KFS","かながわフリーダム・シンガーズのHPです。","『団のモットーは「より多くの人々に合唱の楽しさを知ってもらう」こと！』という、登戸周辺で活動する学生・社会人の男声合唱団です。農工グリーOBも参加しています。"
	,"http://www.wasedaglee.com/","早稲田グリー","早稲田大学<br>グリークラブ","かの有名なワセグリのHP。","3桁もの歴史、折り紙付きの実力を誇るワセグリ。見習いたいものです。"
	,"http://www.wagner-society.org/","慶應義塾W.S.","慶應義塾<BR>ワグネル<BR>ソサィエティー","男声合唱団のHPですが、女声、OBOG合唱団へのリンクがTopにあります。","わが国最古の音楽学校以外の学生音楽団体だそうです。その多大なる音源貯蔵量に圧倒されんばかり。是非参考にしたいところ。"
//	,"","","","",""
//	,"","","","",""
);
LiTblOtherN=LiTblOther.length / LiTblMem;

LiTblInfo = new Array(
	"http://www.kurukuru-net.jp/51/xoops/","合唱の輪","合唱の輪","合唱の輪を広げるサイトです。","音源ファイル掲載HPを検索出来ます。"
	,"http://www.panamusica.co.jp/ja/index.html","PanaMusica","PanaMusica","合唱楽譜専門店です。","大変便利な合唱譜の通販サイト。"
	,"http://homepage3.nifty.com/OgawaFirms/","Concert Information","Concert<br>Information","Whiteさんの運営するHPです。","全国各地のプロ・アマを問わないクラシック音楽団体・個人の演奏会情報を掲載しているサイトです。"
	,"http://www.geocities.jp/delicious_noir/","CONG Music","CONG Music","交流サイトです。","合唱をメインとして、数多くの音楽の垣根を取り除き、「音楽」の楽しさを知る人々の交流の場を目指して活動していらっしゃるサイト。有志を集めての合唱祭参加などの企画も行っているようです。"
	,"http://www.corocoro.com/","こーろころころ","こーろころころ","アカペラ専門会社HPです。",""
//	,"","","","",""
//	,"","","","",""
);
LiTblInfoN=LiTblInfo.length / LiTblMem;

URLCLM=0;
TtlSCLM=1;
TtlLCLM=2;
SyoTtlCLM=3;
SyosaiCLM=4;

var LiStrTH1  = '<div class="Space2 BgcInBase"><div class="ContentM BgcInBase BoBase Bo-trl hght1"></div></div>';
LiStrTH1 += '<div class="ContentM BgcInBase BoBase Bo-rbl">';
LiStrTH1 += '<div class="ContBox100 BgcInBase">';
LiStrTH1 += '<div class="TitleBox BoxCent TitleBoxColor">';

//	str += 'リンク<a name="LINK"></a>';

var LiStrTH2  = '</div><div class="Space1 BgcInBase"></div></div>';
LiStrTH2 += '</div><div class="ShadowFoot BgcInBase"></div>';

var LiStrLH  = '<div class="Space4 BgcInBase"></div>';
LiStrLH += '<div class="Space2 BgcInBase"><div class="ContentM BgcInBase BoBase Bo-rl hght2"></div></div>';
LiStrLH += '<div class="ContentM BoBase Bo-rbl BgcInBase">';
LiStrLH += '<div class="Space10 BgcInBase"></div>';
LiStrLH += '<div class="SideL20 txtCent">';
LiStrLH += '<div class="ContBox100">';

var LiStrLF  = '</div>';
//LiStrLF += '<div class="ContBox35">';
//LiStrLF += '<div style="width:100%; background:';
//LiStrLF += '#fff height:40px; ';// imageはここに書く。
//LiStrLF += ' no-repeat center center;"></div>';
//LiStrLF += '<div class="Space10 BgcInBase"></div>';
//LiStrLF += '</div>';
LiStrLF += '</div><p class="clear"></p>';
LiStrLF += '<p class="txtRightAlign txtFS8" style="width:96%;">';
LiStrLF += '<a class="ASH" href="#TOP">Topに戻る</a>';
LiStrLF += '</p>';
LiStrLF += '<div class="Space14 BgcInBase"></div>';
LiStrLF += '</div><div class="ShadowFoot BgcInBase"></div>';

var LiStrSH  = '<div class="Space4 BgcInBase"></div>';
LiStrSH += '<div class="Space2 BgcInBase"><div class="ContentM BgcInBase BoBase Bo-rl hght2"></div></div>';
LiStrSH += '<div class="ContentM BoBase Bo-rbl BgcInBase">';
LiStrSH += '<div class="Space2 BgcInBase"></div>';
LiStrSH += '<div class="ContBox95 BoxCent fsize8">';


var LiStrSF1  = '<dd class="txtRightAlign">';
LiStrSF1 += '<a class="ASH" href="link.html">詳細を見る</a> | ';
LiStrSF1 += '<a class="ASH" href="#TOP">Topに戻る</a>';
LiStrSF1 += '</dd>';

var LiStrSF2  = '<div class="Space4 BgcInBase"></div>';
LiStrSF2 += '</div><p class="clear"></p>';
LiStrSF2 += '<div class="Space8 BgcInBase"></div>';
LiStrSF2 += '</div><div class="ShadowFoot BgcInBase"></div>';
LiStrSF2 += '<div class="Space15 BgcInBase"></div>';


LiStrSp2 = '<div class="Space2 BgcInBase"></div>';
LiStrSp4 = '<div class="Space4 BgcInBase"></div>';
LiStrSp8 = '<div class="Space8 BgcInBase"></div>';


function LiWriteS(WriteNum){

	var str='';
	str= 'リンク<a name="LINK"></a>';
	document.write(LiStrTH1, str, LiStrTH2);
	document.write(LiStrSH, '<dl>');

	LiOutS(WriteNum, LiDaigaku, LiTblDai, LiTblDaiN);
	LiOutS(WriteNum, LiOBOG, LiTblObog, LiTblObogN);
	LiOutS(WriteNum, LiOtherG, LiTblOther, LiTblOtherN);
	LiOutS(WriteNum, LiInfo, LiTblInfo, LiTblInfoN);
	LiOutS(WriteNum, LiHitsu, LiTblHits, LiTblHitsN);

	document.write(LiStrSF1, '</dl>', LiStrSF2);

}

function LiOutS(WriteNum,TtlArr,vLiTbl,vLiTblN){

	document.write('<dt>', TtlArr[0]);

	if(WriteNum < vLiTblN){
		document.write(' Random ', WriteNum, '</dt>',LiStrSp4);
		document.write('<dd><ul>');
		LiOutSR(WriteNum,TtlArr,vLiTbl,vLiTblN,1);
		document.write('</ul></dd>',LiStrSp8);
	}
	else {
		document.write('</dt>',LiStrSp4);
		document.write('<dd><ul>');
		LiOutSR(vLiTblN,TtlArr,vLiTbl,vLiTblN,0);
		document.write('</ul></dd>',LiStrSp8);
	}
	return;
}

function LiOutSR(WriteNum,TtlArr,vLiTbl,vLiTblN,FLAG){

	var h,k;
	var counter=0;
	var flag=0;
	var PostRand = new Array(1000);

	while(1){
		flag=0;
		if(counter==WriteNum){ break; }
		LiRand = Math.floor(Math.random()*vLiTblN);

		if(FLAG){
			for(h=0;h<counter;h++){
				if(LiRand==PostRand[h]){ flag=1; break; }
			}
			if(flag){ continue; }
		} else { LiRand = counter; }
		k = LiRand;
		
		document.write("<li>", '<a href="', vLiTbl[k*LiTblMem+URLCLM], '" target="_blank">');
		document.write(vLiTbl[k*LiTblMem+TtlSCLM], '</a></li>');
		PostRand[counter] = k;
		counter++;
	}
	return;
}

function LiWriteL(){
	LiOutL(LiDaigaku,LiTblDai,LiTblDaiN);
	document.write('<div class="Space15 BgcInBase"></div>');
	LiOutL(LiOBOG,LiTblObog,LiTblObogN);
	document.write('<div class="Space15 BgcInBase"></div>');
	LiOutL(LiOtherG,LiTblOther,LiTblOtherN);
	document.write('<div class="Space15 BgcInBase"></div>');
	LiOutL(LiInfo,LiTblInfo,LiTblInfoN);
	document.write('<div class="Space15 BgcInBase"></div>');
	LiOutL(LiHitsu,LiTblHits,LiTblHitsN);
	document.write('<div class="Space15 BgcInBase"></div>');
}

function LiOutL(TtlArr,vLiTbl,vLiTblN){

	var str='';
	var strURL;
	var URLlen;
	var lenX;
	var i=0;
	var LiStrLC  ='</div></div><div class="SideR80">';
		LiStrLC += '<div class="ContBox95">';
		LiStrLC += '<dl>';

	str= TtlArr[0] + '<a name="' + TtlArr[1] + '"></a>';
		document.write(LiStrTH1, str, LiStrTH2);

	for(i=0;i<vLiTblN;i++){
		URLlen=vLiTbl[i*LiTblMem+URLCLM].length;
		lenX=URLlen/50;
		lenX=parseInt(lenX,10);
		document.write(LiStrLH, '<dl><dt>', vLiTbl[i*LiTblMem+TtlLCLM], '</dt></dl>');
		document.write(LiStrLC, '<dt>', vLiTbl[i*LiTblMem+SyoTtlCLM], '</dt>');
		document.write('<dd>', vLiTbl[i*LiTblMem+SyosaiCLM], '</dd>');

		if(lenX>0){
			document.write('<dd>', '<a href="', vLiTbl[i*LiTblMem+URLCLM], '" target="_blank">');
			for(k=0;k<=lenX;k++){
				if(k<lenX){
					strURL=vLiTbl[i*LiTblMem+URLCLM].substr(k*50,50);
					document.write(strURL,'<br>');
				} else {
					strURL=vLiTbl[i*LiTblMem+URLCLM].substr(k*50);
					document.write(strURL);
				}
			}
			document.write('</a>', '</dd>');
		} else {
			document.write('<dd>', '<a href="', vLiTbl[i*LiTblMem+URLCLM], '" target="_blank">', vLiTbl[i*LiTblMem+URLCLM], '</a>', '</dd>');
		}
		document.write('</dl>', LiStrLF);
	}
	return;
}