?? outstock.asp
字號:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%'On Error Resume Next%>
<%const title="出庫"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!--#include file=../data/flag.inc-->
<%
outstock = request("outstock")
outstock = replace(outstock,"'","")
showtitle(title)
if flag > 4 then
call closedatabase
Response.End
end if
const MaxPerPage=15 '分頁顯示的紀(jì)錄個數(shù)
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim detail
if not isempty(request("page")) then
currentPage=clng(request("page"))
else
currentPage=1
end if
set rs = server.CreateObject("adodb.recordset")
'response.write "currentpage="¤tpage
%>
<table align=center border='1' width=100% cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'>
<%ShowContent%>
</table>
</form>
<%ShowPages%>
<!--#include file=../data/copyright.asp-->
<%
rs.Close
set rs = nothing
call closedatabase
%>
</body>
</html>
<%
sub ShowContent()
if outstock = 0 then
Response.Write "轉(zhuǎn)到: <a href=outstock.asp?companyid="&newcompanyid&"&outstock=-1>[ 倉管已出庫信息 ]</a> <a href=""javascript:self.location.reload()"">刷新</a>"
else
Response.Write "轉(zhuǎn)到: <a href=outstock.asp?companyid="&newcompanyid&"&outstock=0>[ 尚待出庫記錄信息 ]</a> <a href=""javascript:self.location.reload()"">刷新</a>"
end if
Response.Write "<hr size=1>"
if flag < 4 then
sql="select * from outward,dc where outward.outw_dc_id = dc.dc_id and outw_dir_flag = 0 and stock_flag = "&outstock&" and outw_disabled=0 and outw_companyid = "&newcompanyid&" order by outw_id asc"
else
sql="select * from outward,dc where outward.outw_dc_id = dc.dc_id and outw_dir_flag = 0 and stock_flag = "&outstock&" and outw_disabled=0 and outw_companyid = "&newcompanyid&" and outw_dc_id in ("&dcservice&") order by outw_id asc"
end if
'Response.Write sql
rs.open sql,conn,3,2
if err.number <> 0 then
rs.Close
set rs = nothing
call closedatabase
Response.wrte err.description
Response.End
else
i=0
if not rs.eof then
response.write " <tr bgcolor='#0000A0'>"
response.write " <td nowrap align=center ><font color=white>編號</td>"
response.write " <td nowrap align=center ><font color=white>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -