📄 prodsearchaction.asp

📁 1.多种查询方式
💻 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,"'","")
  if prod_id = "" then 
	prod_id = 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_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 inventory,dc where inventory.inve_dc_id = dc.dc_id and inventory.inve_prod_id = "&prod_id&"  order by dc.dc_code asc"
else
sql="select * from inventory,dc where inventory.inve_dc_id = dc.dc_id and inventory.inve_prod_id = "&prod_id&"  and inventory.inve_dc_id in ("&dcservice&") order by dc.dc_code 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 "    <td nowrap align=center ><font color=white>操作</font></td>"
response.write "  </tr>"
total_sum_fore_no = 0
total_sum_ruku = 0
total_sum_zaitu = 0
total_sum_fenpei = 0
total_sum_chuku = 0
total_sum_maysent = 0
total_sum_total = 0
record=0
  do while not rs.eof 
record=record+1
if record/2=int(record/2) then
  bgclr="#c0cccc"
else
  bgclr="#ECECF0"
end if

    total_sum_fore_no = total_sum_fore_no + rs("inve_fore_no")
    total_sum_ruku = total_sum_ruku + rs("inve_ruku")
    total_sum_zaitu = total_sum_zaitu + rs("inve_zaitu")
    total_sum_fenpei = total_sum_fenpei + rs("inve_fenpei")
    total_sum_chuku = total_sum_chuku + rs("inve_chuku")
    total_sum_maysent = total_sum_maysent + rs("inve_maysent")
    total_sum_total = total_sum_total + rs("inve_total")
    dc_id = rs("inve_dc_id")
    
    dc_code = rs("dc_code")
	dc_name = rs("dc_name")
	response.write "<tr bgcolor="&bgclr&">"
    response.write "<td align=center>"& dc_code &"</td>"
    response.write "<td align=center>"& dc_name &"</td>"
    'response.write "<td align=center><font color=green>" &rs("inve_fore_no") &"</font></td>"
    'response.write "<td align=center><font color=navy>" &rs("inve_ruku") &"</font></td>"
    response.write "<td align=center><font color=green>" &rs("inve_zaitu") &"</font></td>"
    'response.write "<td align=center><font color=green>" &rs("inve_fenpei") &"</font></td>"
    'response.write "<td align=center><font color=navy>" &rs("inve_chuku") &"</font></td>"
    'response.write "<td align=center><font color=green>" &rs("inve_maysent") &"</font></td>"
    'response.write "<td align=center><font color=navy>
⌨️ 快捷键说明

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