mygoods.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="../include/top.asp"--> 
            <%
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
%> 
            <table width="100%"> 
              <tr> 
                <td height="34" colspan="2" valign="middle" bgcolor="#FFCC66" align="left"> <img src="../images/borrow.gif"> <span class="style5">药品入库出库库存情况</span> </td> 
              </tr> 
              <tr> 
                <td colspan="4" valign="top"> <br> 
                  <table width="80%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#66CCFF"> 
                    <tr> 
                      <td colspan="5" valign="top">　　                       
                      <%
				 set rs0=conn.execute("select yName from tb_MedicineName")
				 i=1
				 do while not rs0.eof
				    set rs=conn.execute("select sum(Sl) from tb_Sell where yName='"&rs0(0)&"' and itType=1 and UserId="&Session("UserID"))
					set rs1=conn.execute("select sum(Sl) from tb_Sell where yName='"&rs0(0)&"' and itType=2 and UserId="&Session("UserID"))
					  if isnull(rs(0)) then
					     response.write "<tr><td bgcolor=#ffffff>"&i&"</td><td bgcolor=#ffffff>"&rs0(0)&"</td><td bgcolor=#ffffff>入库(<font color=red>0</font>)</td>"
					     if isnull(rs1(0)) then
						    response.write "<td  bgcolor=#ffffff>出库(<font color=red>0</font>)</td><td bgcolor=#ffffff>库存(<font color=red>0</font>)</td></tr>"
						 end if
					  else
						  response.write "<tr><td bgcolor=#ffffff>"&i&"</td><td bgcolor=#ffffff>"&rs0(0)&"</td><td bgcolor=#ffffff>入库(<font color=red>"&rs(0)&"</font>)</td>"
					        if isnull(rs1(0)) then
						        response.write "<td bgcolor=#ffffff>出库(<font color=red>0</font>)</td><td bgcolor=#ffffff>库存(<font color=red>"&rs(0)&"</font>)</td></tr>"
						    else
							    response.write "<td bgcolor=#ffffff>出库(<font color=red>"&rs1(0)&"</font>)</td><td bgcolor=#ffffff>库存(<font color=red>"&(rs(0)-rs1(0))&"</font>)</td></tr>"
							end if
					  end if
				 rs0.movenext
				 i=i+1
				 loop
				 rs.close
				 rs0.close
				 %> </td> 
                    </tr> 
                  </table> 
            </table> 
            <!--#include file="../include/bottom.asp"-->