📄 outstock_sign.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@language=vbscript%>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
 %>
<%'On Error Resume Next%>
<%
outstock = request("outstock")
if outstock = 0 then
	'const title
	title="出库签收"
else
	'const title
	title="已签收记录"
end if
%>
<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-->
<%
showtitle(title)
if flag > 4 then
	call closedatabase
	Response.End 
end if
const MaxPerPage=15 '分页显示的纪录个数
   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="&currentpage
%>
<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 "转到: <a href=outstock_sign.asp?companyid="&newcompanyid&"&outstock=1>[ 已签收信息记录 ]</a>  &nbsp;&nbsp;&nbsp;&nbsp;<a href=""javascript:self.location.reload()"">刷新</a>"
else
	Response.Write "转到: <a href=outstock_sign.asp?companyid="&newcompanyid&"&outstock=0>[ 签收操作 ]</a>  &nbsp;&nbsp;&nbsp;&nbsp;<a href=""javascript:self.location.reload()"">刷新</a>"
end if
Response.Write "<hr size=1>"
if  outstock = 0 then
	if flag < 4 then
		sql="select * from outward_elink join dc on outward_elink.elink_dc_id = dc.dc_id where  elink_flag <> 1  and elink_companyid = "&newcompanyid&" order by elink_id asc"
	else
		sql="select * from outward_elink join dc on outward_elink.elink_dc_id = dc.dc_id where  elink_flag <> 1  and elink_companyid = "&newcompanyid&" and (elink_dc_id in ("&dcservice&")  or attemper_dc_id in ("&dcservice&") ) order by elink_id asc"
	end if
else
	if flag < 4 then
		sql="select * from outward_elink join dc on outward_elink.elink_dc_id = dc.dc_id where  elink_flag = 1  and elink_companyid = "&newcompanyid&" order by elink_id asc"
	else
		sql="select * from outward_elink join dc on outward_elink.elink_dc_id = dc.dc_id where  elink_flag = 1  and elink_companyid = "&newcompanyid&" and ( elink_dc_id in ("&dcservice&") or attemper_dc_id in ("&dcservice&") )  order by elink_id asc"
	end if
end if
'Response.Write sql
'Response.End 

rs.open sql,conn,3,2
if err.number <> 0 then
    Response.wrte err.description
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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -