Question

asp 下拉选项onchange事件触发改变文本框的值

我有一个提交报名信息的表单，需要从“专业”表里选择一个专业名称，在其后的文本框中显示其对应的专业代码。下面是部分代码，请问怎么添加onchange事件。
<td align="center" bgcolor="#FFFFFF">
<%
set conn=server.createobject("ADODB.Connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/BM.MDB")
'链接数据库
set rst=server.CreateObject("adodb.recordset")
sqlt="select * from zhuanye"
rst.open sqlt,conn,1,1
'读取数据库信息
%>
<select name="zhuanyename" size="1" id="zhuanyename">
<option value="" selected="selected">选择专业</option>
<%
while not rst.eof
%>
<option value="<%=rst("zhuanyename")%>"><%=rst("zhuanyename")%></option>
<%
rst.movenext
wend
%>
</select></td>
<td align="center" bgcolor="#FFFFFF"><input name="zhuanyecode" type="text" id="zhuanyecode" size="6" /></td>

Answer 1

需使用form表单，onchange事件做提交表单动作。给你个实例,如果还不懂再联系我：
<form name="form3">
<tr>
<td align="right" height="30">所属大类：</td>
<td class="category">
<%
sql="select * from bigclass order by id"
set rs_bigclass=conn.execute(sql)
if rs_bigclass.eof then
%>
<script language="javascript">
alert("请先添加物料大类！")
window.location.href="../system/bigclass_add.asp"
</script>
<%
response.end
end if
nowbigclass=request("bigclass")
if nowbigclass="" then
nowbigclass=rs_bigclass("id")
end if
%>
<select name="bigclass" onChange="form3.submit()">
<%
do while rs_bigclass.eof=false
%>
<option value="<%=rs_bigclass("id")%>"<%if trim(cstr(rs_bigclass("id")))=nowbigclass then%> selected="selected"<%end if%>><%=rs_bigclass("bigclass")%></option>
<%
rs_bigclass.movenext
loop
%>
</select>td>
</tr>
</form>
<form name="form2">
<input type="hidden" name="bigclass" value="<%=nowbigclass%>">
<tr>
<td align="right" height="30">所属小类：</td>
<td class="category">
<%
sql="select * from smallclass where id_bigclass="&nowbigclass&" order by id"
set rs_smallclass=conn.execute(sql)
%>
<select name="smallclass">
<option value="0"></option>
<%
do while rs_smallclass.eof=false
%>
<option value="<%=rs_smallclass("id")%>"<%if trim(cstr(rs_smallclass("id")))=nowsmallclass then%> selected="selected"<%end if%>><%=rs_smallclass("smallclass")%></option>
<%
rs_smallclass.movenext
loop
%>
</select>
'这里还有很多其他代码省略
</form>

我的这段实例代码的功能是，当选择的大类不一样时，对应的小类就跟着自动变化（即二级联动菜单），所以这个功能完全够你的要求，你直接摸索一下，以后你就都会了，有疑问再联系我。

Answer 2

下面这个代码，可以根据你自己的要求加入asp，很好用，从我自己网站里复制来的，希望对你有帮助！~
<script>
function obtion(){
var obj = document.getElementById("inter");
var objDis = document.getElementById("dis"); var va = obj.value;
objDis.value = va;
}
</script>
<input type="text" name="dis" id="dis" value="获取选中的值"/>
<select name="inter" id="inter" onchange="obtion()">
<option value="武术">武术</option>
<option value="音乐" selected="selected">音乐</option>
<option value="美术">美术</option>
<option value="购物">购物</option>
</select>

文章来源[Jetoms' Blog]，原文：http://www.chengjitao.cn/Article/Views.asp?Id=8954-2010-0524-014186

Answer 3

onchange document.表名称.文本框名称.value='专业代码'