show_stock_product-1.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 141 行
ASP
141 行
<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="../conn.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>
<form method="POST" name="frmMain">
<TABLE border=0 cellPadding=5 cellSpacing=0 width="600" align="center">
<tr class='CListTTL'>
<td height = '30' valign="middle"><font color = yellow size = 3><b>库存明细</b></font></td>
</tr>
<%
if (request("StockProductID")) ="" then
StockProductID=5
else
StockProductID=trim(request("StockProductID"))
end if
set rec = server.createobject("adodb.recordset")
sql = "select * from stock where StockProductID="&StockProductID&" order by StockSort,Stockdate"
response.Write(sql)
rec.open sql,conn,3
if not rec.eof then
%>
<tr class=CRow>
<td height = '24' align="left"> <strong>产品名称：</strong> <%=rec("stockproductname")%></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
if rec("stocksort")=0 then
%>
<tr class=CListTTL>
<td align="left" colspan="5"><strong>入库</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>
</tr>
<%
end if
total_in = 0
on error resume next
while not rec.eof and rec("stocksort")=0
total_in = total_in + cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice"))
%>
<tr class=CRow>
<td align="center"> <%=rec("Stockdate")%></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
wend%>
<tr class=CRow>
<td> </td>
<td> </td>
<td> </td>
<td align="right"> 合计：</td>
<td align="right"> <b><%=formatNumber(total_in,2,-1)%> </td>
</tr>
<%
if rec("stocksort")=1 then
%>
<tr class=CListTTL>
<td align="left" colspan="5"><strong>出库</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>
</tr>
<%
end if
total_out = 0
while not rec.eof and rec("stocksort")=1
total_out = total_out + cdbl(rec("StockProductnum")) * cdbl(rec("StockProductPrice"))
%>
<tr class=CRow>
<td align="center"> <%=rec("Stockdate")%></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
wend%>
<tr class=CRow>
<td> </td>
<td> </td>
<td> </td>
<td align="right"> 合计：</td>
<td align="right"> <b><%=formatNumber(total_out,2,-1)%> </td>
</tr>
<%end if%>
</table>
<TD>
</TR>
</TABLE>
<br>
<center>
<input name="CancelButton" type="button" class="button_all" value="关闭" onclick="window.close()">
</center>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?