主题:关于传值问题
<form action="qk_manage.asp?id=<%=rs2("xh")%>" method="post" name="form">
<select name="anclassid" size="1" id="class" onChange="changelocation(document.form.anclassid.value)">
<option selected value="<%=rs1("id")%>"><%=trim(rs1("typesm"))%></option>
<% dim selclass
selclass=rs1("id")
rs1.movenext
do while not rs1.eof
%>
<option value="<%=rs1("id")%>"><%=trim(rs1("typesm"))%></option>
<%
rs1.movenext
loop
end if
rs1.close
%>
</select>
<select name="Nclassid">
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from tsgl_qk1 where bz="&selclass
rs2.open sql2,conn,1,1
if not(rs2.eof and rs2.bof) then
%>
<option selected value="<%=rs2("xh")%>"><%=rs2("sm")%></option>
<% rs2.movenext
do while not rs2.eof%>
<option value="<%=rs2("xh")%>"><%=rs2("sm")%></option>
<% rs2.movenext
loop
end if
rs2.close
set rs2 = nothing
%>
</select>
<br>
<input type="submit" name="Submit" value="提交">
</form>
<select name="anclassid" size="1" id="class" onChange="changelocation(document.form.anclassid.value)">
<option selected value="<%=rs1("id")%>"><%=trim(rs1("typesm"))%></option>
<% dim selclass
selclass=rs1("id")
rs1.movenext
do while not rs1.eof
%>
<option value="<%=rs1("id")%>"><%=trim(rs1("typesm"))%></option>
<%
rs1.movenext
loop
end if
rs1.close
%>
</select>
<select name="Nclassid">
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from tsgl_qk1 where bz="&selclass
rs2.open sql2,conn,1,1
if not(rs2.eof and rs2.bof) then
%>
<option selected value="<%=rs2("xh")%>"><%=rs2("sm")%></option>
<% rs2.movenext
do while not rs2.eof%>
<option value="<%=rs2("xh")%>"><%=rs2("sm")%></option>
<% rs2.movenext
loop
end if
rs2.close
set rs2 = nothing
%>
</select>
<br>
<input type="submit" name="Submit" value="提交">
</form>