怎样实现下拉选择菜单值传递？

[pretty_yang]

网上书店shop.mdb的kind表,字段有kind_id,kindname.具体情况如下：
<tr>
<td>所属类别</td>
<td width="79%">
<Select Name="kind_id">
<option></option>
<%
'下面输出类别信息
Dim rs,strSql
strSql="Select * From kind Order By kind_id"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write "<option value='" & rs("kind_id") & "'>" & rs("kindname") & "</option>"
rs.MoveNext
Loop
%>
</Select>*
</td>
</tr>
我想在下面加一行，实现上面选择了类别，下面一行马上显示对应的kind_id。情况有点类似于上面选择了省份，下面出现那个省所在的地区，唯一不同的是下面的kind_id不能选择，只能随上面的选择变化。应该如何实现？

[scoutlin]

<tr>
<td>所属类别</td>
<td width="79%">
<Select Name="kind_id" onchange="kingid.value=this.value">
<option></option>
<%
'下面输出类别信息
Dim rs,strSql
strSql="Select * From kind Order By kind_id"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write "<option value='" & rs("kind_id") & "'>" & rs("kindname") & "</option>"
rs.MoveNext
Loop
%>
</Select>*
<input name=kindid>
</td>
</tr>

[pretty_yang]

不行啊大哥！