给你一个联动菜单看看<html><head><script>
function check()
{
if(f1.d1.options[0].selected)
{
f1.d2.length=0 f1.d2.options.add(new Option("白菜","白菜"))
f1.d2.options.add(new Option("萝卜","萝卜"))
}
else if(f1.d1.options[1].selected)
{
f1.d2.length=0
f1.d2.options.add(new Option("苹果","苹果"))
f1.d2.options.add(new Option("桃","桃")) }}
</script>
</head><body><form name="f1" method="POST" action="--WEBBOT-SELF--">
<p><select size="1" name="d1" onchange="check()">
<option>蔬菜</option>
<option>水果</option>
</select><select size="1" name="d2">
</select></p>
</form></body></html>
function check()
{
if(f1.d1.options[0].selected)
{
f1.d2.length=0 f1.d2.options.add(new Option("白菜","白菜"))
f1.d2.options.add(new Option("萝卜","萝卜"))
}
else if(f1.d1.options[1].selected)
{
f1.d2.length=0
f1.d2.options.add(new Option("苹果","苹果"))
f1.d2.options.add(new Option("桃","桃")) }}
</script>
</head><body><form name="f1" method="POST" action="--WEBBOT-SELF--">
<p><select size="1" name="d1" onchange="check()">
<option>蔬菜</option>
<option>水果</option>
</select><select size="1" name="d2">
</select></p>
</form></body></html>
set rs1 = conn.Execute (sql1)
do while not rs1.eof
%>
<option value="<%=trim(rs1("locationid"))%>"><%=trim(rs1("locationname"))%></option> <%
rs1.movenext
loop
rs1.close
set rs1 = nothing
conn.Close
set conn = nothing
%>
</select> <select name="smalllocation" onChange="changelocation2(document.myform.smalllocation.options[document.myform.smalllocation.selectedIndex].value)">
<option selected value="">==所有地区==</option>
</select> <select name="village" size="1">
<option selected>==所有县区==</option>
</select>
<br>
关键词：<input type="text" name="T4" size="20"><br>
内容：<textarea rows="9" name="S1" cols="51"></textarea>
</form> </body>
</html>