質問者 ささ
投稿日 12/1(月) 22:04:40
はじめて質問させて頂きますJavaScript素人のsasaといいます。
今、JavaScriptとあるソフトのVBScriptを使用し、大字のドロップダウンメニューから
ある大字を選ぶとそれに該当する小字のドロップダウンメニューが表示でき、その中の
小字を選んで番地を入力するといった検索フォームを作成しています。
ですが、VBScriptのところでJavaScriptで取得した値をmsgboxで確認すると、１とか
２といった数字しか確認できません。正常に大字１、大字２さらに小字１、小字２と表示
するにはどうすればよいか教えて下さい。
下記に書いた構文はインターネットから探して部分的に変更したもので、元々私が作った
ものではありません。素人の私にもわかるように注記など含めて修正して頂ければ助かります。
すみません、よろしくお願いいたします。
<HTML>
<HEAD>
<TITLE>SELECT タグの連動 (最初にクライアントサイドに一括ダウンロード)</TITLE>
<SCRIPT LANGUAGE=JavaScript>
<!--
function funcSubmit() {
if (document.formMain.ooaza.selectedIndex == 0 &&
document.formMain.koaza.selectedIndex == 0) {
window.alert("大字名と小字名を選択してください");
return false;
} else if (document.formMain.ooaza.selectedIndex == 0) {
window.alert("大字名を選択してください");
return false;
} else if (document.formMain.koaza.selectedIndex == 0) {
window.alert("小字名を選択してください");
return false;
} else {
return true;
}
}
function funcMain(b) {
if (document.formMain.ooaza.selectedIndex == 0) {
document.formMain.koaza.length = 1;
document.formMain.koaza.selectedIndex = 0;
} else {
if (b) {
document.formMain.koaza.length = 1;
document.formMain.koaza.selectedIndex = 0;
}
var koaza = cities[document.formMain.ooaza.selectedIndex - 1];
document.formMain.koaza.length = koaza.length + 1;
for (var i = 0; i < koaza.length; i++) {
document.formMain.koaza.options[i + 1].value = i;
document.formMain.koaza.options[i + 1].text = koaza[i];
}
}
}
var ooazas = new Array("大字１", "大字２", "大字３");
var cities = new Array();
cities[0] = new Array("小字１", "小字２");
cities[1] = new Array("小字３", "小字４");
cities[2] = new Array("小字１", "小字５");
// -->
</SCRIPT>
<Script language="VBscript">
sub srtchipcm()
ooaza = document.formMain.ooaza.selectedindex '選択された大字を取得
koaza = document.formMain.koaza.selectedindex '選択された小字を取得
srtchi = document.formMain.CHIBAN.value '入力された地番を取得
Set objApp = createobject("pcm.app") 'PCMのオートメーションを取得
Strtemp = "AttrSrch 0 <地番図> p <大字>="&strooaza&" <小字>="&strkoaza&" <地番>="&srtchi
lngtemp = objapp.docmd(Strtemp)
if lngtemp <> 1 then
msgbox("該当がありません")
exit sub
end if
Set objapp = Nothing
end sub
</Script>
</HEAD>
<BODY onLoad="funcMain(false)">
<FORM NAME=formMain METHOD=POST ACTION=result.asp onSubmit="return funcSubmit()">
<SELECT NAME="ooaza" onChange="funcMain(true)">
<OPTION VALUE="" SELECTED>(大字名を選択してください)
<OPTION VALUE="0">大字１
<OPTION VALUE="1">大字２
<OPTION VALUE="2">大字３
</SELECT>
<SELECT NAME="koaza">
<OPTION VALUE="" SELECTED>(小字名を選択してください)
<OPTION VALUE="">
<OPTION VALUE="">
<OPTION VALUE="">
<OPTION VALUE="">
<OPTION VALUE="">
<OPTION VALUE="">
<OPTION VALUE="">
</SELECT>
<input type = "text" name= "CHIBAN">
<input type = "button" value = "検索実行" onClick="srtchipcm()">
</FORM>
</BODY>
プロバイダ参照：
サーバのＯＳ：WINサーバ
パソコンのＯＳ：WinNT系
エディタ：
ＦＴＰソフト：
サーバ移転：していない
改造：(未選択)
ＣＧＩ習熟度：firsttime
|
