<select name="文件夹" size=1 onChange="document.ThisForm.submit();">
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table "
rs.open sql,conn,1
if not rs.eof and not rs.bof then first=rs("id")
if request("文件夹")<>"" then first=request("文件夹")
while not rs.eof and not rs.bof
%>
<option value="<%=rs("id")%>"<%=selected(first,cstr(rs("id")))%>><%=rs("名字")%></option>
<%
rs.movenext
wend
%>
</select>
<select name="文件夹1" size=1>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from table where 字段名=" & firstdept& " "
rs.open sql,conn,1
if not rs.eof and not rs.bof then xx=rs("字段")
if request("文件夹1")<>"" then xx=request("文件夹1")
while not rs.eof and not rs.bof
%>
<option value="<%=rs("字段")%>"<%=selected(xx,rs("字段"))%>>
<%=rs("name")%></option>
<%rs.movenext
wend
%>
</select>