[ASP ] 下拉式關聯選單
大家好
請問我用兩個下拉式關聯選單
但會出錯
第二個下拉式選單會沒有資料
可以幫我看看嗎
function GetKd()
dim vi,vj,vk
for vi=1 to document.form1.MA010.length
vj=vi-1
document.form1.MA010.options(vj).text=""
next
vk=0
for vi=1 to document.form1.MA010_tmp.length
vj=vi-1
if
document.form1.MA010_tmp.options(vi-1).value=document.form1
document.form1.MA010.options(vk).text=document.form1.MA010_tmp.
vk=vk+1
end if
next
document.form1.MA010.options(0).defaultselected=true
End function
</SCRIPT>
<select name="MA010_tmp" contenteditable="" style="visibility: hidden">
<%vsql="select B1,B2 from BB where 1=1 order by B3"
rs.open vsql, cn '因為是 access mdb,故後面不用設定AdOpenDynamic,
adLockR
While not rs.eof %>
<option value=<%=rs("B1")%>><%=rs("B2") %>
<%rs.movenext
Wend
rs.close%>
</select>
</font>
<select name="MA009" onchange= "GetKd()" id="select">
<%vsql="select distinct(B1) from BB where 1=1 order by B1 "
rs.open vsql, cn '因為是 access mdb,故後面不用設定AdOpenDynamic,
adL
While not rs.eof %>
<option value=<%=rs("B1")%>><%=rs("B1") %>
<%rs.movenext
Wend
rs.close %>
</select>
<select name="MA010" id="Select1" language="javascript" onclick="return
Select1_
<%vsql="select B2,B1 from BB where B1='" & MA009 & "' order by B3 ASC "
rs.open vsql, cn '因為是 access mdb,故後面不用設定AdOpenDynamic,
adLockR
While not rs.eof
%>
<option value=<%=rs("B2")%>><%=rs("B2") %>
<%rs.movenext
Wend
rs.close%>
</select>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.20.200.23
※ 編輯: ufbb 來自: 211.20.200.23 (01/31 18:17)
※ ufbb:轉錄至看板 Web_Design 01/31 19:09