//'------------------------------------------------------------------------------------
//'［ルーチン名    ］ﾒｰﾙｱﾄﾞﾚｽﾁｪｯｸ
//'［機能概要      ］文字列中にメールアドレスとして使用できない文字が含まれていないかをチェックする。
//'［引数説明      ］
//'［備考          ］
//'			※JavaAreaでCallすること。
//'			function co00mail_chk(aoMail)
//'				I : aoMail..............文字列
//'				I : asSyori............."0"：半角チェック
//'										"1"：全半角チェック
//'				ﾘﾀｰﾝ.................... 0:正常、 -1:エラー
//'					使用可能文字（半角）:0-9、A-Z、a-z、@.-_~/:&?%=
//'								（全角）:０-９、Ａ-Ｚ、ａ-ｚ、＠．−＿〜／：＆？％＝
//'［修正履歴      ］
//'------------------------------------------------------------------------------------
function co00mail_chk(aoMail, asSyori) {
	var lsText = aoMail.value;

	if	(asSyori == "0"){
		for (i = 0; i < lsText.length ; i++) {
			if ((lsText.substring(i, i + 1) >= "0"  &&  lsText.substring(i, i + 1) <= "9") ||
				(lsText.substring(i, i + 1) >= "A"  &&  lsText.substring(i, i + 1) <= "Z") ||
				(lsText.substring(i, i + 1) >= "a"  &&  lsText.substring(i, i + 1) <= "z") ||
				(lsText.substring(i, i + 1) == "@") || (lsText.substring(i, i + 1) == ".") ||
				(lsText.substring(i, i + 1) == "-") || (lsText.substring(i, i + 1) == "_") ||
				(lsText.substring(i, i + 1) == "~") || (lsText.substring(i, i + 1) == "/") ||
				(lsText.substring(i, i + 1) == ":") || (lsText.substring(i, i + 1) == "&") ||
				(lsText.substring(i, i + 1) == "?") || (lsText.substring(i, i + 1) == "%") ||
				(lsText.substring(i, i + 1) == "=")) {
			} else {
				return -1;
			}
		}

	}else{
		for (i = 0; i < lsText.length ; i++) {
			if ((lsText.substring(i, i + 1) >= "0"   &&  lsText.substring(i, i + 1) <= "9") ||
				(lsText.substring(i, i + 1) >= "A"   &&  lsText.substring(i, i + 1) <= "Z") ||
				(lsText.substring(i, i + 1) >= "a"   &&  lsText.substring(i, i + 1) <= "z") ||
				(lsText.substring(i, i + 1) == "@")  || (lsText.substring(i, i + 1) == ".") ||
				(lsText.substring(i, i + 1) == "-")  || (lsText.substring(i, i + 1) == "_") ||
				(lsText.substring(i, i + 1) == "~")  || (lsText.substring(i, i + 1) == "/") ||
				(lsText.substring(i, i + 1) == ":")  || (lsText.substring(i, i + 1) == "&") ||
				(lsText.substring(i, i + 1) == "?")  || (lsText.substring(i, i + 1) == "%") ||
				(lsText.substring(i, i + 1) == "=")  ||
				(lsText.substring(i, i + 1) >= "０"  &&  lsText.substring(i, i + 1) <= "９") ||
				(lsText.substring(i, i + 1) >= "Ａ"  &&  lsText.substring(i, i + 1) <= "Ｚ") ||
				(lsText.substring(i, i + 1) >= "ａ"  &&  lsText.substring(i, i + 1) <= "ｚ") ||
				(lsText.substring(i, i + 1) == "＠") || (lsText.substring(i, i + 1) == "．") ||
				(lsText.substring(i, i + 1) == "−") || (lsText.substring(i, i + 1) == "＿") ||
				(lsText.substring(i, i + 1) == "〜") || (lsText.substring(i, i + 1) == "／") ||
				(lsText.substring(i, i + 1) == "：") || (lsText.substring(i, i + 1) == "＆") ||
				(lsText.substring(i, i + 1) == "？") || (lsText.substring(i, i + 1) == "％") ||
				(lsText.substring(i, i + 1) == "＝")) {
			} else {
				return -1;
			}
		}
	}

	return 0;
}