📄 youlist.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'库存 :InList.asp
'用户限权检查
dim Action
Action	=	Trim(request("Action"))
%>
<html>
<head>
<title>库存 管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript>

function CheckAdd()
{
  if(document.form1.Pro_Pprice.value=="")
    {
      alert("请填写单价");
	  document.form1.Pro_Pprice.focus();
      return false;
    }

}
</script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="topbg"> 
    <td height="22" colspan="2" align="center"><strong>产 品 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30"><a href="Pro.asp">产品管理</a>&nbsp;|&nbsp;<a href="Pro.asp?Action=Add">添加新产品</a>
	&nbsp;|&nbsp;<a href="youList.asp">库存清单</a>
	</td>
  </tr>
</table>
<%
Sql ="Select * from T_Product order by Pro_ID desc;"
Call sql_open(Rs,Sql,Conn,1,1)
Call page_code(Rs,20)
If Not Rs.Eof Then
	IsFor=True
Else
	IsFor=False
	Response.write "<center><b><font color=red>暂无内容！</font></b></center>"
End IF
%>
<br>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
  <tr>
     <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr align="center" class="title">
    <td height="22">产品名</td>
    <td>产品单价(元)</td>
	<td>库存数量(部)</td>
	<td>已经出库存数量(部)</td>
	<td>总金额(元)</td>
  </tr>
	<%
	For i= 1 to Rs.PageSize
	If Rs.Eof Then Exit For
	%>
  <tr align="center" class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
    <td><%=rs("Pro_MC")%></td>
    <td><%=rs("Pro_DJ")%></td>
	<td><%
	Dim Rst,Sqlt,tNum,tJE
	Sqlt ="Select * from T_InList where Pro_ID='"&cstr(Rs("Pro_ID"))&"'"
	Call sql_open(Rst,Sqlt,Conn,1,1)
	If Rst.eof and Rst.bof then
		tNum = 0
		tJE = 0
	else
		Do while not Rst.eof 
			tNum = tNum + clng(Rst("Pro_Num"))
			tJE = tJE +clng(clng(Rst("Pro_Pprice"))*clng(Rst("Pro_Num")))			
		Rst.movenext
		Loop
	end if
	Response.write tNum
	Call Rs_end(Rst)
	%>	  </td>
	<td>
<%
'已经发货的数量
Dim tOutNum
	Sqlt ="Select * from T_SubOutOrder where Pro_ID='"&cstr(Rs("Pro_ID"))&"'"
	Call sql_open(Rst,Sqlt,Conn,1,1)
	If Rst.eof and Rst.bof then
		tOutNum = 0

	else
		Do while not Rst.eof 
			tOutNum = tOutNum + clng(Rst("OutOrder_Num"))
		Rst.movenext
		Loop
	end if
	Response.write tOutNum
%>
	</td>
	<td><%=tJE%></td>
  </tr>
	<%
	Rs.MoveNext
	Next
	%>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">&nbsp;</td>
    <td>&nbsp;	</td>
	<td width="300"><%If IsFor Then Call page_code_down(Rs,"","条记录") %></td>
  </tr>
</table>
</td>
</tr></table>
<%
	Call Rs_End(Rs)

%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -