<!--#include file="数据库链接文件"-->
<form id="form2" name="form2" method="post" action="ckadd.asp">
<table width="720" height="30" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#cccccc bordercolordark=#ffffff bgcolor=#f1f1f1>
<tr>
<td width="100"><div align="center">日期</div></td>
<td width="104"><div align="center">商品代码</div></td>
<td width="315"><div align="center">商品名称</div></td>
<td width="61"><div align="center">单耗量</div></td>
<td width="61"><div align="center">件数</div></td>
<td width="65"><div align="center">总用量</div></td>
</tr>
<%
dim rs1,exec1,rs2,exec2
exec1="select * from ck_temp"
set rs1=server.CreateObject("adodb.recordset")
rs1.open exec1,conn,1,1

exec2="select zc,ck_date from chmc"
set rs2=server.CreateObject("adodb.recordset")
rs2.open exec2,conn,1,1
%>
<% while not rs1.eof %>
<tr><% total=rs1("dh")*rs2("zc")%>
<td><input type="text" name="ck_date" id="get6" style="width:70px; text-align:center" value="<%=rs2("ck_date")%>"></td>
<td><input type="texe" name="spno" style="width:50px;text-align:center" value="<%=rs1("spno")%>"></td>
<td><input type="texe" name="sp_name" style="width:300px;text-align:center" value="<%=rs1("sp_name")%>"></td>
<td><input type="text" name="dh" style="width:50px; text-align:center" value="<%=rs1("dh")%>"></td>
<td><input type="text" name="zc" style="width:50px; text-align:center" value="<%=rs2("zc")%>"> </td>
<td><input type="text" name="grl" style="width:50px; text-align:center" value="<%=total%>" ></td>
</tr>
<%
rs1.movenext()
wend
%>
</table>
</form>

[此贴子已经被作者于2007-8-3 23:24:14编辑过]