📄 special_prod_searchaction1.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="库存汇总查询结果"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<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">
<%
Showtitle(title)
prod_id = trim(request("smalllocation"))
prod_id = replace(prod_id,"'","")
prod_sn = trim(request("prod_sn"))
prod_sn = replace(prod_sn,"'","")
if prod_id = "" then
prod_id = 0
end if
if prod_sn = "" then
prod_sn = 0
end if
companyid = newcompanyid
if companyid <> 0 then
sql = "select prod_id,prod_no,prod_type,prod_danwei,prod_pinming from product where prod_id = "&prod_id&""
set rs_prod = conn.execute(sql)
if not rs_prod.eof then
prod_no = rs_prod("prod_no")
prod_type = rs_prod("prod_type")
prod_danwei = rs_prod("prod_danwei")
prod_pinming=rs_prod("prod_pinming")
else
rs_prod.close
set rs_prod = nothing
call closedatabase
Response.Write "<font color=red size=+2>没有找到您要的物品！</font>"
Response.End
end if
rs_prod.close
set rs_prod = nothing
Response.Write "查询的物品为：<font color=blue size=+1>"&prod_no&" "&prod_pinming&" "&prod_type&" "&prod_danwei&"</font>"
%>
<table border='0' width='100%' bordercolorlight='#c0c0c0' cellspacing='1' bordercolordark='#FFFFFF' height='26'>
<%
' <tr bgcolor='#ff bc bc'><td colspan=9>
if flag < 4 then
sql="select * from stat,dc where stat.stat_dc_id = dc.dc_id and stat.stat_prod_id = "&prod_id&" and stat.stat_prod_sn like '"&prod_sn&"' order by stat.id asc"
else
sql="select * from stat,dc where stat.stat_dc_id = dc.dc_id and stat.stat_prod_id = "&prod_id&" and stat.stat_prod_sn like '"&prod_sn&"' and stat.stat_dc_id in ("&dcservice&") order by stat.id asc"
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn
if not rs.eof then
response.write " <tr bgcolor='#0000A0'>"
response.write " <td nowrap align=center><font color=white>序号</font></td>"
response.write " <td nowrap align=center><font color=white>仓库编号</font></td>"
response.write " <td nowrap align=center><font color=white>仓库名称</font></td>"
response.write " <td nowrap align=center ><font color=white>物品名称</font></td>"
response.write " <td nowrap align=center ><font color=white>物品型号</font></td>"
response.write " <td nowrap align=center ><font color=white>物品序列号</font></td>"
response.write " <td nowrap align=center ><font color=white>物品状况</font></td>"
response.write " <td nowrap align=center ><font color=white>入库单号</font></td>"
response.write " <td nowrap align=center ><font color=white>操作</font></td>"
response.write " </tr>"
record=0
do while not rs.eof
record=record+1
if record/2=int(record/2) then
bgclr="#c0cccc"
else
bgclr="#ECECF0"
end if
dc_code = rs("dc_code")
dc_name = rs("dc_name")
response.write "<tr bgcolor="&bgclr&">"
response.write "<td align=center>"& record &"</td>"
response.write "<td align=center>"& dc_code &"</td>"
response.write "<td align=center>"& dc_name &"</td>"
response.write "<td align=center><font color=green>" &prod_pinming&"</font></td>"
response.write "<td align=center><font color=green>" &prod_type&"</font></td>"
response.write "<td align=center><font color=green>" &rs("stat_prod_sn") &"</font></td>"
response.write "<td align=center><font color=navy>" &rs("stat")&"</font></td>"
response.write "<td align=center><font color=green>" &rs("stat_sia") &"</font></td>"
response.write "<td align=center>[入库|"
response.write "<a href=edit_special_cv.asp?companyid=1&id="&rs("id") &" target=_blank>修改</a>|"
response.write "出库]</td>"
response.write "</tr>"
rs.movenext
loop
%>
<%end if
rs.Close
set rs = nothing
%>
</table>
<%
end if
%>
<hr size=1>
<br>[ <a href='javascript:history.go(-1)'>返回</a> ]
<!--#include file=../data/copyright.asp-->
<%call closedatabase%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -