//電話事業者検索スクリプト
//スクリプト制作者: MATSUSHITA Kenjirou(JZV00504@nifty.com)
//このスクリプトの著作権は作成発注者が保有しています（JUNE,2003）
//改造したものを含め、無断転載、無断配布を禁じます。
//また、このスクリプトの販売はおこなっておりません。ご了承ください。

function cls(){
document.kensaku.xm.value="";
document.kensaku.ym.value="";
document.kensaku.zm.value="";
}

function rs(){

var name=new Array("","DDIポケット","アステル沖縄","ケイ・オプティコム","ドコモ関西","ドコモ九州","ドコモ四国","ドコモ中国","ドコモ東海","ドコモ東北","ドコモ北海道","ドコモ北陸","ドコモ","九州通信ネットワーク","四国情報通信ネットワーク","中国情報システムサービス","中部テレコミュニケーション","東京通信ネットワーク","東北インテリジェント通信","北海道総合通信網","北陸通信ネットワーク","KDDI","ジェイフォン","ツーカーセルラー東海","ツーカーセルラー東京","ツーカーホン関西","沖縄セルラー");

var p=new Array(17,1,1,1,1,1,1,1,1,1,12,10,9,12,11,8,4,7,6,5,12,12,12,12,12,8,4,5,10,5,7,5,9,8,4,6,12,12,4,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,17,17,17,16,14,18,3,3,3,17,2,15,20,13,13,17,17,17,17,13,17,15,3,3,13,16,16,14,17,0,0,0,0,0,0,0,0,0,0,12,12,12,9,8,4,7,5,12,12,12,4,12,12,9,11,12,4,4,0,7,10,9,4,7,6,5,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,18,13,18,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,0,0,0,0,0,0,0,0,5,5,5,5,5,5,5,0,0,0,9,9,9,9,9,0,0,0,0,10,7,7,7,7,0,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,21,21,21,21,21,21,21,21,0,0,21,21,0,0,0,0,0,0,0,0,21,21,21,21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,25,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,7,4,12,12,12,9,4,5,8,21,12,12,21,21,21,21,21,21,21,24,24,25,23,25,24,24,23,23,23,22,22,22,22,22,22,22,22,22,22,12,8,12,12,4,12,12,8,4,9,12,5,10,12,12,12,8,6,4,4,12,12,8,11,10,12,12,4,7,12,22,22,22,22,22,22,22,22,22,22,21,21,21,21,21,21,21,5,12,4,21,21,21,21,26,21,21,21,8,12,21,21,21,21,21,21,21,21,21,21,4,4,11,8,12,12,12,12,8,4,12,12,12,12,12,12,8,9,4,7,12,12,12,12,8,4,9,11,4,5,12,12,12,12,12,12,12,12,12,12,5,5,12,12,12,12,12,8,5,4,9,8,12,12,12,12,12,12,8,10,4,5,12,12,12,12,12,8,6,9,22,22,22,22,22,22,22,22,22,22,24,24,22,21,21,22,22,22,22,22,12,5,12,4,12,4,12,5,12,12,12,10,9,12,12,8,4,7,6,5,12,12,12,12,12,8,4,4,4,11,8,12,5,12,12,4,9,7,8,10,12,22,22,21,21,21,6,12,8,4,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,26,24,24,25,23,25,23,25,25,21,21,22,22,22,22,22,22,22,22,21,21,12,12,12,4,9,12,12,12,8,12,22,8,12,12,7,21,21,21,21,21,21,21,21,21,21,21,22,22,22,22,4,9,11,6,5,5,12,12,12,12,23,24,21,21,21,21,21,26,21,21,6,5,12,12,12,9,4,7,5,12,12,12,12,9,4,7,12,12,11,7,12,12,12,12,12,12,4,5,6,8,7,12,12,12,12,8,8,10,9,7,4,12,12,12,12,12,12,6,5,5,8,4,5,8,4,4,4,10,5,4,8,8,4,4,6,4,4,11,9,12,12,12,10,9,4,4,7,6,5,5,12,12,12,12,12,9,4,7,5,12,12,12,12,12,12,8,4,5,5,12,12,12,12,12,12,12,12,12,12,9,8,8,8,8,4,4,4,4,11,7,7,6,5,5,5,12,12,12,12,12,12,12,12,9,9,8,8,8,4,4,4,6,5,5,5,10,4,4,10,12,22,22,22,22,22,22,22,22,22,22,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,24,24,25,23,24,23,23,25,23,23,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,10,24,24,24,25,24,25,8,5,9,12,8,11,4,21,7,21,26,21,6,5,4,4,12,12,12,12,4,4,4,10,12,12,8,8,8,10,9,9,11,4,4,4,7,7,6,5,5,12,12,12,12,12,12,12,12,12,12,12,12,5,8,8,9,9,4,4,4,7,5,5,12,12,12,8,5,5,5,5,4,4,21,21,21,21,21,21,21,21,21,21,8,8,6,12,10,10,9,8,8,8,12,12,12,12,11,4,4,7,6,9,12,12,12,12,12,8,8,4,4,7,12,8,5,9,12,8,4,7,5,7,12,12,12,12,21,21,21,22,24,22,24,24,25,23,25,23,25,24,23,25,21,21,21,21,21,21,21,21,21,26,21,21,21,21,22,22,21,21,21,21,22,5,8,24,25,22,22,22,22,22,22,22,22,22,22,22,22,4,12,12,22,22,22,10,12,4,5,8,12,6,12,7,12,8,12,4,5,12,9,4,12,12,4,5,12,12,8,12,4,10,10,5,9,4,12,8,11,6,4,7,12,12,8,9,4,4,7,5,10,4,22,22,22,22,22,22,22,22,22,22,24,25,23,24,24,25,23,25,25,24,21,21,21,21,21,21,21,21,21,21,22,22,22,22,22,22,22,22,22,22,7,10,10,9,4,6,5,5,5,5,21,21,21,21,24,22,21,21,22,22,21,21,21,21,21,21,21,21,26,21,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22);

rss="検索結果\r";
x=document.kensaku.xm.value;
y=document.kensaku.ym.value;
z=document.kensaku.zm.value;
rss=rss+"電話番号"+x+y+z+"\r";

fl="0";
yz=0;
yy=0;


if (x=="070" && y>=0 && y.length==4 && z>=0 && z.length==4){
rss=rss+"PHSです。\r";
fl="1";
}

else if (x=="080" && y>=0 && y.length==4 && z>=0 && z.length==4){rss=rss+"携帯電話又は自動車電話などです。\r";
fl="2";
}

else if (x=="090" && y>=0 && y.length==4 && z>=0 && z.length==4){rss=rss+"携帯電話又は自動車電話などです。\r";
fl="3";
}

else {
rss="有効な番号が入力されていません。\r半角数字で全ての桁数を入力してください。";
fl="4";
}

ys=parseInt(y/10);

if (fl=="1" && ys<700 && ys>499){
yy=ys-500;
yz=p[yy];
}
else if (fl=="2" && ys<1000 && ys>99){
yy=ys+100;
yz=p[yy];
}
else if (fl=="3" && ys<1000 && ys>99){
yy=ys+1100;
yz=p[yy];
}
else yz=0;



if (fl!="0" && yz!=0 && fl!="4")rss=rss+name[yz]+"に加入している電話だと思われます。";

if (fl!="4" && fl=="0" || fl!="4" && ys<=0 || fl!="4" && yz==0)rss=rss+"申し訳ありません、この番号のデータがありません。\r（未認可の番号です／平成14年6月現在）";


document.kensaku.res.value=rss;

}