📄 inward_edit_search_action.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>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!--#include file=../data/flag.inc-->
</head>
<body topmargin="0">
<%
showtitle(title)
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
b = trim(Request("b"))
b = replace(b,"'","’")
if b = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""查询条件不得为空!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
set rs = server.CreateObject("adodb.recordset")
%>
<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 flag < 4 then
sql="select * from inward,dc where inward.inwa_dc_id = dc.dc_id and inwa_disabled=0 and inwa_companyid = "&newcompanyid&" "
sql = sql + " and inward.inwa_sia like '%" & b & "%' "
sql = sql + " order by inward.inwa_id asc"
elseif flag = 4 then
sql="select * from inward,dc where inward.inwa_dc_id = dc.dc_id and inwa_disabled=0 and inwa_companyid = "&newcompanyid&" and inwa_dc_id in ("&dcservice&") "
sql = sql + " and inward.inwa_sia like '%" & b & "%' "
sql = sql + " order by inward.inwa_id asc"
else
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""您无权操作!请于管理员联系!!!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
'Response.Write sql
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>进仓编号</td>"
response.write " <td nowrap align=center ><font color=white> 进舱日期 </td>"
response.write " <td nowrap align=center ><font color=white> 送货地区 </td>"
response.write " <td nowrap align=center ><font color=white>送货车牌（拆箱箱号）</td>"
response.write " <td nowrap align=center ><font color=white>货物情况品质</td>"
response.write " <td nowrap align=center ><font color=white>仓库信息（库位）</td>"
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 + -