厳密にいうとちょっと違うみたいだけどこんな感じ。

//文字列の全角/半角チェック関数。
//(文字列内の文字が全て半角の場合にtrueを返す)
function isAll1ByteChar(str:String):Boolean {
	var countCharCode:Number = 0;
	var isAll1Byte:Boolean = false;
	
	for (var i:int = 0; i < str.length; i++) {
		// 条件分岐
		// 2010/01/27修正:半角カナ対応(のつもり)
		if (str.charCodeAt(i)<=255 || str.charCodeAt(i)>=0xFF61 &amp;amp;amp;&amp;amp;amp; str.charCodeAt(i)<=0xFF9F) {
			countCharCode+=1;
		} else {
			countCharCode+=2;
		}
	}
	if(str.length == countCharCode) {
		isAll1Byte = true;
	} 
	return isAll1Byte;
}
var str1:String = "aaアaaa"
var str2:String = "あああああ";
var str3:String = "aaaaあbcs";
trace(isAll1ByteChar(str1));//出力:true
trace(isAll1ByteChar(str2));//出力:false
trace(isAll1ByteChar(str3));//出力:false

2010/1/27:コード修正:半角カナ対応(のつもり)