<form id="form1" name="zm" method="post" action="jkadd.asp">
<table width="720" height="30" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#cccccc bordercolordark=#ffffff bgcolor=#f1f1f1>
<td>
<%
dim rs,exec
exec="select spno from spht"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>
<select name="spno" onChange="vbscript:test()" size="１">（这个有问题吗？）

<%do while not rs.eof%>
<option value="<%=rs("spno")%>"><%=rs("spno")%></option>
<%
rs.movenext
loop
%>
</select>
<SCRIPT LANGUAGE="vbScript">
sub Test
S=spno.value
tspno.innerhtml=s
end sub
</SCRIPT>
</td>
<%
dim rs1,exec1
exec1="select sp_name from spht where spno=??"（如何将下拉列表选择的值传递到这里作参数呢？）
set rs=server.CreateObject("adodb.recordset")
rs1.open exec,conn,1,1
%>
<td><input type="text" name="sp_name" style="width:80px; height:20px; text-align:center" value="rs1("sp_name")"></td>