Question

ASP中"列表/菜单"的使用.

"列表/菜单"中已经从表里赋值过来,我想实现当我选择列表中一项时同时要把这个单位里的联系人和联系电话调出来并把值赋给文本框dwcontact和dwphone,不知道要怎么样来实现,请帮我做一下代码或给个参考,谢谢!

<td colspan="2" height="28" bgcolor="#FFFFFF"> 单位：
<select name="dwname">
<option value="99999"> ...选择单位... </option>
<%
do while not rs.eof
Response.Write "<option name="&rs("DW_id")&" value="&rs("DW_Name")&"> "&rs("DW_Name")&" </option> " & vbCrLf
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF"> 联 系 人：
<input name="dwcontact" type="text" size="20" value=""></td>
<td height="28" bgcolor="#FFFFFF"> 联系电话：
<input name="dwphone" type="text" size="20" value="">
</td>

Answer 1

单位：
<select id="dwname" name="dwname" onchange="dwcontact.value=this.options[dwname.selectedIndex].lxr;dwphone.value=this.options[dwname.selectedIndex].dh;">
<option value="99999">请选择单位</option>
<%
do while not rs.eof
Response.Write "<option value="&rs("DW_Name")&" lxr='"&rs("联系人")&"' dh='"&rs("电话")&"'> "&rs("DW_Name")&" </option> " & vbCrLf
rs.movenext
loop
%>
</select>
<br><br>
联 系 人：
<input name="dwcontact" id="dwcontact" type="text" size="20" value=""></td>
<br>
联系电话：
<input name="dwphone" id="dwphone" type="text" size="20" value="">

----------------------
说明：
rs("联系人")和&rs("电话")是你数据库存放的联系人和联系电话，你改一下字段名称就可以了。不过前面的查询语句一定要保证有这2个字段。