高手求救:联动菜单的问题! 急!
我的一个类似于省和县市的跳转菜单放在表单外面运行通过,但是把它放到一个表单里面,也就是<form></form>之间的时候,第二个菜单(县市)就显示不了,
<%
Dim Rs,sql,i,rw
Dim MyArray()
set rs=server.createobject("adodb.recordset")
SQL="select * from province order by proNum"
Rs.Open SQL,conn,3,2
Rs.MoveFirst
redim MyArray(Rs.RecordCount-1)
%>
<select id=select1 style="WIDTH: 150px" name=province>
<option value='all' selected>--省名--</option>
<option value=<%=Rs("proNum")%>><%=Rs("proName")%></option>
<%
MyArray(0)=Rs("proNum")
Rs.MoveNext
for i=1 to Rs.RecordCount-1
%>
<option value=<%=Rs("proNum")%>><%=Rs("proName")%></option>
<%
MyArray(i)=Rs("proNum")
Rs.MoveNext
next
%>
</select>
<%
Rs.Close
%>
</td>
<td width="96">
<%
for i=0 to ubound( MyArray)
SQL="select * from City where CityId like '" & MyArray(i) & "%'"
'Response.End
Rs.Open SQL,conn,3,2
if Rs.RecordCount >0 then
Rs.MoveFirst
%>
<SELECT id=select<%=MyArray(i)%> style="WIDTH: 200px;display='none'" name=city>
<option selected value='all'>-----县市名-----</option>
<%do while not Rs.EOF %>
<OPTION value="<%=Rs("CityId")%>"><%=Rs("CityName")%></OPTION>
<%
Rs.MoveNext
loop
%>
</SELECT>
<%
end if
Rs.Close
next
%>
<SCRIPT LANGUAGE=vbscript>
<!--
dim obj,lastObj
lastObj="select01"
window.execScript "select01.style.display='block'" ,"vbs"
Sub select1_onchange
obj="select"+select1.value
if obj<>lastObj and isobject(eval(obj)) then
window.execScript Obj & ".style.display='block'" ,"vbs"
window.execScript lastObj & ".style.display='none'" ,"vbs"
lastObj="select"+ select1.value
end if
End Sub
-->
</SCRIPT>
大概的也就这样,其实这段代码还是我在CSDN的论坛的一篇帖子上找的,自己改了一点,
在<form>表单外能实现,但是移到表单内,CITY菜单就没有了