historycal.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini" -->
<%
response.cachecontrol="no-cache"
productid=request("productid")
enddate=request("enddate")
qty=request("qty")
model=request("model")
set conn=server.createobject("adodb.connection")
conn.open connstring
	set rs1=conn.execute("select sum(qty) as qty from MaterialTransaction where productid="&productid&" and (transactcode='发货单发货' or transactcode='非正常发货' or transactcode='收货单退货' or transactcode='其他发货') and transactdate>'"&enddate&"'")
	if not rs1.eof then
		if rs1("qty")<>"" then qty=qty+csng(rs1("qty"))
	end if
	set rs1=conn.execute("select sum(qty) as qty from MaterialTransaction where productid="&productid&" and (transactcode='收货单收货' or transactcode='正常采购收货' or transactcode='非正常收货' or transactcode='发货单退货' or transactcode='其它收货') and transactdate>'"&enddate&"'")
	if not rs1.eof then 
		if rs1("qty")<>"" then qty=qty-csng(rs1("qty"))
	end if
if qty<>0 then
%>
sTxt=sTxt+"<tr><td width=300><%=model%></td><td width=50><%=qty%></td></tr>";
<%end if%>