📄 stockoutlist.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="Private_fun.asp"-->
<!--#include file="../Pub_fun.asp"-->
<%
'获得传递参数
ListPageSize = request("PageSelect")
if ListPageSize = "" then
ListPageSize = 15
end if
ListPageSize = Cint(ListPageSize)
SelectPage = request("SelPage")
if SelectPage = "" then
SelectPage = 1
end if
SelectPage = Cint(SelectPage)
SearchOption =request("S_SearchOption")
if SearchOption = "" then
SearchOption = 0
end if
SearchOption = Cint(SearchOption)
SearchRelation = request("S_Relation")
if SearchRelation = "" then
SearchRelation = "包含"
end if
SearchText = request("T_SearchText")
SqlSearchText = replace(SearchText,"'","''")
SqlSearchText = replace(SearchText,"[","[[]")
SqlSearchText = replace(SearchText,"]","[]]")
SqlSearchText = replace(SearchText,"%","[%]")
SqlSearchText = replace(SearchText,"_","[_]")
%>
<%
'读取数据库数据
if SearchText <> "" then
if SearchRelation = "包含" then
kind=" "
else
kind=" not "
end if
select case SearchOption
case 0
condition=" and StockProductName"&kind&"like '%"& SqlSearchText&"%' "
case 1
condition=" and Stocktopic"&kind&"like '%"& SqlSearchText&"%'"
case 2
condition=" and Stockinfo"&kind&"like '%"& SqlSearchText&"%' "
case 3
condition=" and StockCreatorID in (select userid from [user] where username"&kind&" like '%"& SqlSearchText&"%' )"
end select
end if
Dim Sqlstr
Sqlstr = "SELECT StockDate,StockTopic,StockSort,StockCreatorID,Stockinfo,Sum(StockProductNum) as totalnum,Sum(StockProductNum*StockProductPrice) as totalMoney from stock where stocksort=1 "&condition
SqlStr=SqlStr&" Group by StockDate,StockTopic,StockSort,StockCreatorID,Stockinfo"
SqlStr=SqlStr&" order by stockdate desc"
set rs=server.createobject("adodb.recordset")
' Sqlstr = "select * from client where ClientCreatorID=" & User_ID & " or ClientOpenFlag = 1 order by ClientID"
rs.open Sqlstr,conn,3
%>
<!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>
<!--#include file="../scripts/openwindow.js"-->
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>
<form action="stockoutlist.asp" method="post" name="stockfm">
<input type="hidden" name="act">
<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 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="Newstock" onClick="javascript:location.href='stockoutlist.asp'" type="button" class="button_with" width="80" value="出库列表">
<input name="Newstock" onClick="javascript:location.href='stockinlist.asp'" type="button" class="button_with" width="80" value="入库列表">
<input name="Newstock" 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" align="right" height="30">
<select name="S_SearchOption" class="text70" >
<option value="0" <%if SearchOption = 0 then%>selected<% end if %>>产品名称</option>
<option value="1" <%if SearchOption = 1 then%>selected<% end if %>>入库主题</option>
<option value="2" <%if SearchOption = 2 then%>selected<% end if %>>入库说明</option>
<option value="3" <%if SearchOption = 3 then%>selected<% end if %>>操作人</option>
</select>
<select name="S_Relation" class="text10" id="S_Relation">
<option value="包含" <%if SearchRelation = "包含" then%>selected<% end if %>>包含</option>
<option value="不包含" <%if SearchRelation = "不包含" then%>selected<% end if %>>不包含</option>
</select>
<input name="T_SearchText" type="text" size="20" maxlength="50" value="<%=SearchText%>">
<input name="SearchButton" type="submit" class="button_all" value="查询">
</td>
</tr>
</TBODY>
</TABLE>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<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>
<%
'显示处理
TotalPages = 1
TotalRecords = 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 " ><%=trim(rs("StockDate"))%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><a href="javascript:windowopen650('show_stock_detail.asp?stocktopic=<%=trim(rs("StockTopic"))%>&Stockdate=<%=rs("Stockdate")%>&Stocksort=<%=rs("stocksort")%>','Stock')"><%=rs("StockTopic")%></a></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=rs("totalnum")%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=rs("totalmoney")%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=showoperatorname(rs("StockcreatorID"))%></TD>
<TD align="center" valign="middle" style="border: #99ccff 1px solid " ><%=rs("StockInfo")%></TD>
</TR>
<%
rs.movenext
end if
next
end if
%>
<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="1"> </TD>
<td colspan="3" 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="6"></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 + -