📄 stk_ctgdtl.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：查询仓库品种库存明细
'入口参数：
'1.TStr_WhsID:仓库号码
'2.TStr_CtgID:品种编号
'出口参数：
'无
'作者：王伟锋，日期：2001.6.21
'***************************************************
'接收参数
TStr_WhsID=trim(request("TStr_WhsID"))
TStr_CtgID=trim(request("TStr_CtgID"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
%>
<HTML>
<HEAD>
<TITLE>仓库品种库存</TITLE>
</HEAD>
<BODY>
<H3>仓库品种库存<HR></H3>
<P>仓库名称：
<%
'打开表Basic_Warehouse
dim wwf_RsViewWhs
set wwf_RsViewWhs=server.CreateObject("adodb.recordset")
wwf_RsViewWhs.CursorLocation=3
wwf_SqlViewWhs="select Whs_ID,Whs_Name from Basic_Warehouse where Whs_ID='"&TStr_WhsID&"'"
wwf_RsViewWhs.Open wwf_SqlViewWhs,DBconn,2
%>
<%=trim(wwf_RsViewWhs("Whs_Name"))%></p>
<P>品种库存明细：</P>
<P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>品种名称</TD>
<TD>品种批号</TD>
<TD>可出库量</TD></TR>
<%
'打开表Warehouse_StockDtl,basic_Category
dim wwf_RsWhsStkDtl
set wwf_RsWhsStkDtl=server.CreateObject("adodb.recordset")
wwf_RsWhsStkDtl.CursorLocation=3
wwf_SqlWhsStkDtl="select c.Ctg_Name,w.Whs_StkDNum,w.Whs_StkDBatch from Warehouse_StockDtl w,basic_Category c where w.Whs_ID='"&TStr_WhsID&"' and w.Ctg_ID=c.Ctg_ID and w.Ctg_ID='"&TStr_CtgID&"'"
wwf_RsWhsStkDtl.Open wwf_SqlWhsStkDtl,DBconn,2
'Response.Write wwf_SqlWhsStkDtl
'设置显示记录条数
wwf_RsWhsStkDtl.PageSize = 10
dim TLg_Page
TLg_Page = CLng(Request("TLg_Page"))
If TLg_Page < 1 Then TLg_Page = 1
If TLg_Page > wwf_RsWhsStkDtl.PageCount Then TLg_Page = wwf_RsWhsStkDtl.PageCount
'分页显示程序
if not wwf_RsWhsStkDtl.EOF then
wwf_RsWhsStkDtl.AbsolutePage = TLg_Page
dim LINTi
LINTi=0
dim LINTiPage
For LINTiPage = 1 To wwf_RsWhsStkDtl.PageSize
%>
<TR>
<TD><%=trim(wwf_RsWhsStkDtl("Ctg_Name"))%></TD>
<TD><%=trim(wwf_RsWhsStkDtl("Whs_StkDBatch"))%></TD>
<TD><%=trim(wwf_RsWhsStkDtl("Whs_StkDNum"))%></TD></TR>
<%
LLgi=LINTi+1
wwf_RsWhsStkDtl.movenext
if wwf_RsWhsStkDtl.eof then exit for
next
%>
</TABLE></p>
<p><table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<%
If TLg_Page <> 1 Then
If TLg_Page <> wwf_RsWhsStkDtl.PageCount Then
%>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=1&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">首 页</a></td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=TLg_Page-1%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">上一页</a></td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=TLg_Page+1%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">下一页</a></td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=wwf_RsWhsStkDtl.PageCount%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">末 页</a></td>
<%
else
%>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=1&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">首 页</a></td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=TLg_Page-1%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">上一页</a></td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
else
If wwf_RsWhsStkDtl.PageCount <> 1 Then
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=TLg_Page+1%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">下一页</a></td>
<td width="60" height="20"><a href="Stk_CtgDtl.asp?TLg_Page=<%=wwf_RsWhsStkDtl.PageCount%>&TStr_WhsID=<%=TStr_WhsID%>&TStr_CtgID=<%=TStr_CtgID%>">末 页</a></td>
<%
else
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
End If
%>
<td width="250" height="20" align="right">
<font size=3>第<%=TLg_page%>页共<%=wwf_RsWhsStkDtl.PageCount%>页</font>
</td>
</tr>
</table></p>
<%
else
%>
<p><table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td width="60" height="20">首页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末页</td>
<td width="250" height="20" align="right">
<font size=3>第0页共0页</font>
</td>
</tr>
</table></p>
<%
end if
%>
<P align=center><INPUT type="button" value="关闭窗体" onclick="javascript:window.close()" id=button1 name=button1></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -