<!--#include file="conn.asp"-->

<form id="form1" name="zm" method="post" action="yljkly.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><div align="center">商品代码</div></td>
<td width="250"><div align="center">商品名称</div></td>
<td><div align="center">产销国</div></td>
<td><div align="center">数量</div></td>
<td><div align="center">单位</div></td>
<td><div align="center">单价</div></td>
<td><div align="center">总价</div></td>
<td><div align="center">操作</div></td>
</tr>
<tr>
<td><input type="text" name="date" style="width:70px;text-align:center" value="<%=date()%>"</td>
<td>
<%
dim rs,exec
exec="select spno,sp_name from spht"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>
<select name="lb" onChange="document.form1.get.value=this.options[this.selectedIndex].value" size="１">
<%do while not rs.eof%>
<option value="<%=rs("sp_name")%>"><%=rs("spno")%></option>
<%
rs.movenext
loop
%>
</td>
<td><input type="text" name="get" id="get" style="width:250px; text-align:center" value=""></td>
<td><input type="texe" name="cqg" style="width:70px;text-align:center"></td>
<td><input type="texe" name="qty" style="width:60px;text-align:center"></td>
<td><input type="text" name="unit" style="width:40px; text-align:center"></td>
<td><input type="text" name="uprice" style="width:50px; text-align:center" onBlur="add()"></td>
<td><input type="text" name="tprice" style="width:60px; text-align:center"></td>
<td align="center"><input type=submit value=添加 class=inputb></td>
</table>
</form>
<script language="javascript">
function add(){
document.zm.tprice.value = parseInt(document.zm.qty.value) * parseInt(document.zm.uprice.value)
}
</script>
<form id="form2" name="zmp" method="post" action="jkadd.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><div align="center">商品代码</div></td>
<td width="250"><div align="center">商品名称</div></td>
<td><div align="center">产销国</div></td>
<td><div align="center">数量</div></td>
<td><div align="center">单位</div></td>
<td><div align="center">单价</div></td>
<td><div align="center">总价</div></td>
<td><div align="center">操作</div></td>
</tr>
<%
dim rs1,exec1
exec1="select spno from spht where sp_name='"&request.form("lb")&"'"
set rs1=server.CreateObject("adodb.recordset")
rs1.open exec1,conn,1,1
%>
<tr>
<td><input type="text" name="date" style="width:70px;text-align:center" value="<%=request.form("date")%>"></td>
<td><input type="text" name="spno" style="width:40px;text-align:center" value="<%=rs1("spno")%>"></td>
<td><input type="text" name="sp_name" style="width:250px; text-align:center" value="<%=request.form("get")%>"></td>
<td><input type="texe" name="cqg" style="width:70px;text-align:center" value="<%=request.form("cqg")%>"></td>
<td><input type="texe" name="qty" style="width:60px;text-align:center" value="<%=request.form("qty")%>"></td>
<td><input type="text" name="unit" style="width:40px; text-align:center" value="<%=request.form("unit")%>"></td>
<td><input type="text" name="uprice" style="width:50px; text-align:center" value="<%=request.form("uprice")%>"></td>
<td><input type="text" name="tprice" style="width:60px; text-align:center" value="<%=request.form("tprice")%>"></td>
<td align="center"><input type=submit value=删除 class=inputb></td>
</tr>
</table>
</form>

<%
rs.close
set rs=nothing
rs1.close
set rs1=nothing
conn.close
set conn=nothing
%>
</body>
</html>