📄 stocklist.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="Private_fun.asp"-->
<!--#include file="../scripts/openwindow.js"-->
<%
'获得传递参数
ListPageSize = request("PageSelect")
''默认为每页显示15条记录
if ListPageSize = "" then
ListPageSize = 15
end if
ListPageSize = Cint(ListPageSize)
SelectPage = request("SelPage")
''默认当前页面为第一页
if SelectPage = "" then
SelectPage = 1
end if
SelectPage = Cint(SelectPage)
%>
<!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><BR>
<form action="stocklist.asp" method="post" name="stockfm">
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="24" width="200"valign="top" bgcolor="#566CDB" ><img src="../images/DispStation_H.gif" width="11" height="24">库存统计列表</TD>
<TD colspan="3" align="right" valign="middle" bgcolor="#DDDDDD" >
<input name="Newstock" onClick="javascript:location.href='stock.asp'" type="button" class="button_with" width="80" value="新建库存">
<input name="stockoutlist" onClick="javascript:location.href='stockoutlist.asp'" type="button" class="button_with" width="80" value="出库列表">
<input name="stockinlist" onClick="javascript:location.href='stockinlist.asp'" type="button" class="button_with" width="80" value="入库列表">
<input name="stocklist" onClick="javascript:location.href='stocklist.asp'" type="button" class="button_with" width="80" value="库存统计">
<input name="BackButton" onClick="javascript:location.href='../menu.asp'" type="button" class="button_all" value="返回">
</TD>
</TR>
<tr>
<td colspan="2" height="5"></td>
</tr>
</TBODY>
</TABLE>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="30%" align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">产品名称</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">入库总数量</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">入库总金额</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">出库总数量</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">出库总金额</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">目前库存数量</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " bgcolor="#6699FF">金额盘点</TD>
</TR>
<%
'读取数据库数据中产品的信息
Dim Sqlstr
Sqlstr = "SELECT distinct StockProductID, StockProductName from stock "
set rs=server.createobject("adodb.recordset")
rs.open Sqlstr,conn,3
'显示处理
TotalPages = 1 '总记录的页数，初始化为1
TotalRecords = 0 '总记录数，初始化为0
TotalFlag = 0 '每页显示记录数标志
if not(rs.bof or rs.eof) then
TotalRecords = rs.recordcount
'设置每页记录数
if ListPageSize = 0 then
ListPageSize = TotalRecords
TotalFlag = 1
end if
rs.pagesize = ListPageSize
'设置当前页数
TotalPages = rs.pagecount
if SelectPage > TotalPages then
SelectPage = 1
end if
rs.absolutepage = SelectPage
for i = 1 to ListPageSize
if not(rs.bof or rs.eof) then
%>
<TR>
<TD height="25" align="center" valign="middle" style="border: #99ccff 1px solid " >
<a href="javascript:windowopen650('show_stock_product.asp?StockProductID=<%=trim(rs("StockProductID"))%>','Product')"><%=rs("StockProductName")%></a></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " >
<%
''调用自定义函数返回
temp=split(showstock(rs("StockProductID"),0),",")
if temp(0)="" then temp(0)=0
if temp(1)="" then temp(1)=0
totalinnum=temp(0)
totalin=(temp(1))
%>
<%=totalinnum%>
</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=totalin%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " >
<%
temp=split(showstock(rs("StockProductID"),1),",")
if temp(0)="" then temp(0)=0
if temp(1)="" then temp(1)=0
totaloutnum=temp(0)
totalout=(temp(1))
%>
<%=totaloutnum%>
</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=totalout%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " >
<%
if (totalinnum-totalounumt)<0 then
response.Write "<font color=red>"&(totalinnum-totalounumt)&"</fong>"
else
response.Write(totalinnum-totalounumt)
end if
%>
</TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " >
<%
if totaloutnum=0 then
response.Write ("目前未销售")
else
if (totalout-totalin)<0 then
response.Write "<font color=red>"&(totalout-totalin)&"</fong>"
else
response.Write (totalout-totalin)
end if
end if
%> </TD>
</TR>
<%
rs.movenext
end if
next
end if
%>
</TBODY>
</TABLE>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR valign="middle">
<TD height="30" colspan="2" > <select name="PageSelect">
<%
'生成下拉列表
for i= 1 to 20
%>
<option <%if ListPageSize = i*5 then%>selected<%end if%> value="<%=i*5%>">每页显示<%=i*5%>条</option>
<%
next
%>
<option <%if TotalFlag = 1 then%>selected<%end if%> value="0">..全部显示..</option>
</select> </td>
<td colspan="5" align="right"> <%if SelectPage<>1 then%> <a href="#" name="FirstPage">首页</a> <a href="#" name="PrePage">上一页</a>
<%else%>
首页 上一页 <%end if%> <%if SelectPage<>TotalPages then%> <a href="#" name="NextPage"> 下一页</a> <a href="#" name="LastPage">末页</a>
<%else%>
下一页 末页 <%end if%> 当前页数:<%=SelectPage%> 总共页数:<%=TotalPages%> 记录总数:<%=TotalRecords%></TD>
<input name="SelPage" type="hidden" value="<%=SelectPage%>">
<input name="TotalPage" type="hidden" value="<%=TotalPages%>">
</TR>
<tr bgColor=#99ccff >
<td height="10" colspan="7"></td>
</tr>
</TBODY>
</TABLE>
</form>
</BODY></HTML>
<!--下拉列表响应函数-->
<SCRIPT FOR="PageSelect" EVENT="onChange" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("stockfm")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--下拉列表响应函数-->
<!--首页响应函数-->
<SCRIPT FOR="FirstPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("stockfm")
TheForm.SelPage.value = 1
TheForm.submit()
</SCRIPT>
<!--首页响应函数-->
<!--下一页页响应函数-->
<SCRIPT FOR="NextPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("stockfm")
TheForm.SelPage.value = TheForm.SelPage.value + 1
TheForm.submit()
</SCRIPT>
<!--下一页响应函数-->
<!--上一页响应函数-->
<SCRIPT FOR="PrePage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("stockfm")
TheForm.SelPage.value = TheForm.SelPage.value - 1
TheForm.submit()
</SCRIPT>
<!--上一页响应函数-->
<!--末页响应函数-->
<SCRIPT FOR="LastPage" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("stockfm")
TheForm.SelPage.value = TheForm.TotalPage.value
TheForm.submit()
</SCRIPT>
<!--末页响应函数-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -