<td width="181">
<select name="one" style="width:80px;" onChange="selectchange();">
<%
if one<>"" then
response.Write("<option value='"&one&"' selected>"&one &"</option>")
one1=one
else
if one1<>"" then
response.Write("<option value='"&one1&"' selected>"&one1&"</option>")
else
response.Write("<option value='no' selected>请选择大类</option>")
end if
end if
rs.open "select one from [folder] where two='tzcbs'"
if rs.eof then
response.Write("<option value='no'>暂无类别</option>")
else
while not rs.eof
record=rs("one")
response.Write("<option value='"&record&"'>"&record&"</option>")
rs.movenext
wend
end if
rs.close
%>
</select>
<select name="two" style="width:80px;">
<%
if two<>"" then
response.Write("<option value='"&two&"' selected>"&two&"</option>")
else
if one1="" then
response.Write("<option value='no' selected>请选择小类</option>")
end if
end if
rs.open "select two from [folder] where one='"&one1&"' and two<>'tzcbs'"
if rs.eof then
response.Write("<option value='no'>暂无类别</option>")
else
while not rs.eof
record=rs("two")
response.Write("<option value='"&record&"'>"&record&"</option>")
rs.movenext
wend
end if
rs.close
%>
</select> </td>