估计是你的这句onchange="selmap_onchange() " 不行,对照下面的修改一下,应该可以。<select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1"> <option selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option> <% dim selclass selclass=rs("classid") rs.movenext do while not rs.eof %> <option value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
<% rs.movenext loop end if rs.close %> </select>
<select name="Nclassid"> <% sql="select * from ANclass where classid="&selclass rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then %> <option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option> <% rs.movenext do while not rs.eof%> <option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option> <% rs.movenext loop end if rs.close set rs = nothing conn.Close set conn = nothing %> </select>**
<option selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
<% dim selclass
selclass=rs("classid")
rs.movenext
do while not rs.eof
%> <option value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<select name="Nclassid">
<% sql="select * from ANclass where classid="&selclass
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
<% rs.movenext
do while not rs.eof%>
<option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
<% rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%>
</select>**