historylist.asp

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

<!--#include file="../config.ini" -->

<%
theSrc = Request("theSrc")
enddate= Request("enddate")
set conn=server.createobject("adodb.connection")
conn.open connstring
set rs=conn.execute("select count(*) as recordcount from v_inventory")
subrecord=rs("recordcount")
set rs=conn.execute("select * from v_inventory")
i=1
do while not rs.eof
	qty=0
	qty=csng(rs("qty_on_hand"))
	productid=rs("productid")
	model=rs("model")
%>
<script language="javascript">
	var sTxt;
</Script>
<script id="Remotescript_1" src="historycal.asp?productid=<%=productid%>&qty=<%=qty%>&model=<%=model%>&enddate=<%=enddate%>"></script>
<script language="JavaScript">
  var tempstr="<table width=100%><tr><td align=center><div align='center'><strong><br><br><br>正在计算历史库存...<br><%=formatnumber((i/subrecord)*100,1)%>%<br><font color='#FF9933'></font></strong><br><div class='posttitle4' style='text-align:left'><div style='width:<%=(i/subrecord)*400%>;height:21;background-color:blue;'></div></div></div>";
  parent.<%=theSrc%>.innerHTML=tempstr+'</td></tr></table><table>'+sTxt+'</table>';
</script>
<%
i=i+1
rs.movenext
loop
%>