数据库cpht数据表如下：

id cpno cp_name cp_type cp_qty
编号 成品编码 成品名称 规格型号 数量
1 cp1 女装化纤梭织布短袖晚装连衣裙 0.795-1.2kg/件 3000
3 cp2 女装化纤梭织布背心晚装连衣裙A款 0.41-0.71kg/件 20000
4 cp3 女装化纤梭织布背心晚装连衣裙B款 0.81-1.21kg/件 20000
5 cp4 女装化纤梭织布背心晚装连衣裙C款 0.27-0.49kg/件 10000
6 cp5 女装化纤梭织布背心晚装连衣裙D 0.31-0.51kg/件 10000
7 cp6 女装化纤梭织布背心连衣裙A款 0.61-0.81kg/件 6000

<form id="form4" name="zm" method="post" action="dhadd.asp">
<table width="720" height="30" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#cccccc bordercolordark=#ffffff bgcolor=#f1f1f1>
<tr>
<td><div align="center">成品编码</div></td>
<td width="210"><div align="center">成品名称</div></td>
<td><div align="center">规格型号</div></td>
</tr>
<%
dim tg,exec,cg,exec1
exec="select cpno,cp_name,cp_type from cpht"
set tg=server.CreateObject("adodb.recordset")
tg.open exec,conn,1,1
%>
<tr>
<td>
<select name="lb1" onChange="document.form4.get1.value=this.options[this.selectedIndex].value" size="１">
<option selected>请选择</option>
<%do while not tg.eof%>
<option value="<%=tg("cp_name")%>"><%=tg("cpno")%></option>
<%
tg.movenext
loop
%>
</td>
</select>

<td><input type="text" name="cp_name" id="get1" style="width:210px; text-align:center" value="初始值"></td>
<td><input type="text" name="cp_type" style="width:100px; text-align:center" value=""></td>
</tr>
</table>
</form>
<%
tg.close
set tg=nothing
conn.close
set conn=nothing
%>
</body>
</html>