show_stock_product.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 164 行
ASP
164 行
<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="../Pub_Fun.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>库存详表</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<body>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="600" align="center">
<tr class='CListTTL'>
<td height = '25' valign="middle"><font color = yellow size = 3><b>库存明细</b></font></td>
</tr>
<%
''获取传递过来的产品编号参数
if (request("StockProductID")) ="" then
StockProductID=0
else
StockProductID=trim(request("StockProductID"))
end if
''建立数据集对象
set rec = server.createobject("adodb.recordset")
''生成SQL查询语句
sql = "select * from stock where StockProductID="&StockProductID&" order by StockSort,Stockdate"
rec.open sql,conn,3
''判断记录集是否为空
if not rec.eof then
%>
<tr class=CRow>
<td height = '35' align="left"> <div align="left"><strong> <%=rec("stockproductname")%></strong> </div></td>
</tr>
<% else%>
<tr class=CRow>
<td height = '24' align="left"> 没有相关记录！ </td>
</tr>
<%end if%>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="600" align="center">
<TR class=CRow>
<TD>
<table border="1" cellPadding=0 cellSpacing=0 width="600">
<%
''出库部分
if not rec.eof then
total_in = 0
if rec("stocksort")=0 then
%>
<tr class=CListTTL>
<td align="left" colspan="6"><strong><font color="#FF0000"> 入库</font></strong></td>
</tr>
<tr class=CRow>
<td align="center" >入库时间</td>
<td align="center" >入库主题</td>
<td align="center" >操作者</td>
<td align="center" > 入库价格</td>
<td align="center" >入库数量</td>
<td align="center">金额</td>
</tr>
<%
for i=1 to rec.recordcount
''累计入库金额
total_in = total_in + cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice"))
%>
<tr class=CRow>
<td align="center"> <%=rec("Stockdate")%></td>
<td align="center"> <%=rec("Stocktopic")%></td>
<td align="center"> <%=showoperatorname(rec("StockcreatorID"))%></td>
<td align="right"> <%=formatNumber(rec("StockProductPrice"),2,-1)%> </td>
<td align="right"> <%=rec("StockProductnum")%> </td>
<td align="right"> <%=formatNumber(cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice")),2,-1)%> </td>
</tr>
<%
rec.movenext ''记录移至下一条
if rec.eof then exit for ''判断是否为末记录，如果是则跳出循环
if rec("stocksort")<>0 then exit for ''判断该记录中库存类型是否为0，如果不是则跳出循环
next
%>
<!-- 显示入库小计-->
<tr class=CRow>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td align="right"> 小计：</td>
<td align="right"> <b><%=formatNumber(total_in,2,-1)%> </td>
</tr>
<tr class=CRow>
<td align="left" colspan="6"> </td>
</tr>
<%
end if
end if
%>
<%
''入库部分
if not rec.eof then
total_out = 0
if rec("stocksort")=1 then
%>
<tr class=CListTTL>
<td align="left" colspan="6"><strong><font color="#FF0000"> 出库</font></strong></td>
</tr>
<tr class=CRow>
<td align="center" > 出库时间</td>
<td align="center" > 出库主题</td>
<td align="center" >操作者</td>
<td align="center" > 出库价格</td>
<td align="center" > 出库数量</td>
<td align="center">金额</td>
</tr>
<%
for i=1 to rec.recordcount
''累计出库金额
total_out = total_out + cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice"))
%>
<tr class=CRow>
<td align="center"> <%=rec("Stockdate")%></td>
<td align="center"> <%=rec("StockTopic")%></td>
<td align="center"> <%=showoperatorname(rec("StockcreatorID"))%></td>
<td align="right"> <%=formatNumber(rec("StockProductPrice"),2,-1)%> </td>
<td align="right"> <%=rec("StockProductnum")%> </td>
<td align="right"> <%=formatNumber(cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice")),2,-1)%> </td>
</tr>
<%
rec.movenext ''记录移至下一条
if rec.eof then exit for ''判断是否为末记录，如果是则跳出循环
if rec("stocksort")<>1 then exit for ''判断该记录中库存类型是否为1
next
%>
<!-- 显示出库小计-->
<tr class=CRow>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td align="right"> 小计：</td>
<td align="right"> <b><%=formatNumber(total_out,2,-1)%> </td>
</tr>
<%
end if
end if
%>
</table>
<TD>
</TR>
</TABLE>
<br>
<center>
<input name="CancelButton" type="button" class="button_all" value="关闭" onclick="window.close()">
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?