📄 ruku_record_info.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-->
<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">
<%
if isempty(session("username")) then
	call closedatabase
	Response.Write "请重新登入!"
	Response.End 
end if 
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid)  
end if
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
  'Response.Write "<p align=center><font size=+2 color=blue><a href='#' onclick=""javascript:window.close()"">[关闭]</a></font></p>"
  'response.write "<hr size=1>"
' 选则dc
inwa_id = request("id")
if not isnumeric(inwa_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
sql="select * from inward where inwa_companyid = "&newcompanyid&" and inwa_id = "&inwa_id&""
'Response.Write sql
'Response.End 
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
	inwa_id = rs("inwa_id")
	inwa_date = rs("inwa_date")
	inwa_fact_date = rs("inwa_fact_date")
	inwa_sia = rs("inwa_sia")
	inwa_dc_id = rs("inwa_dc_id")
	inwa_type = rs("inwa_type")
	inwa_yuji_time = rs("inwa_yuji_time")
	inwa_contact = rs("inwa_contact")
	inwa_operate = rs("inwa_operate")
	inwa_ser_beizu = rs("inwa_ser_beizu")
	inwa_flag = rs("inwa_flag")
	dir_flag = rs("inwa_dir_flag")
	inwa_take_address = trim(rs("inwa_take_address"))
	inwa_line_no = trim(rs("inwa_line_no"))
	inwa_take_no = trim(rs("inwa_take_no"))
	inwa_sendno = rs("inwa_sendno")
	inwa_sendno = rs("inwa_getno")
	inwa_sendto = rs("inwa_sendto")
	inwa_outdate = rs("inwa_outdate")
	inwa_flag = rs("inwa_flag")
	%>

<table align=center width=100%  cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
 <td colspan=4 align=center bgcolor=red><b><font color=yellow>入库记录详细信息一览</font></b></td>
</tr>
<tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white> 入 库 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">系统编号：</td>
    <td colspan="3" width="85%">
   <%response.write inwa_id%></td>
 </tr>
<tr>
    <td width="15%">进仓编号SIA：</td>
    <td colspan="3" width="85%">
   <%response.write inwa_sia%></td>
 </tr>
<tr>
    <td width="15%">进舱日期：</td>
    <td colspan="3" width="85%">
 
   <%response.write inwa_fact_date & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">送货地区：</td>
    <td colspan="3" width="85%">
 
   <%response.write inwa_sendto & "&nbsp;"%></td>
 </tr>
  <tr>
    <td width="15%">送货车牌（拆箱箱号）：</td>
    <td colspan="3" width="85%">
 
   <%response.write inwa_sendno & "&nbsp;"%></td>
 </tr>
<tr>
    <td width="15%">货物情况品质：</td>
    <td colspan="6">
	<%set rs_stat=server.CreateObject("adodb.recordset")
rs_stat.Open "select * from stat where stat_sia="&inwa_sia, conn, 1, 3
  if not rs_stat.eof then
   stat=rs_stat("stat")
response.write stat & "&nbsp;"
   end if
   rs_stat.close
   set rs_stat=nothing%></td>
 </tr>
  <%
 sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&inwa_dc_id&""
 'Response.Write sql
 'Response.End 
 set rs_dc = conn.execute(sql)
 if not rs_dc.eof then
	dc_code = rs_dc("dc_code")
	dc_name = rs_dc("dc_name")
 end if
 rs_dc.close
 set rs_dc = nothing 
 %>
 <tr>
    <td width="15%">仓库信息（库位）：</td>
    <td colspan="3" width="85%">
   <%response.write dc_code &" "& dc_name %></td>
 </tr>
     <tr>
    <td width="15%">装箱箱号（提货车号）：</td>
    <td colspan="3" width="85%">
   <%response.write inwa_getno & "&nbsp;"%></td>
 </tr>
      <tr>
    <td width="15%">出库日期：</td>
    <td colspan="3" width="85%">
   <%response.write inwa_outdate & "&nbsp;"%></td>
 </tr>
    <tr>
    <td width="15%">管理员：</td>
    <td colspan="3" width="85%">
   <%response.write inwa_contact & "&nbsp;"%></td>
 </tr>

  <tr bgcolor=green >
    <td width="15%"><b><font color=white> 货物信息：</font></b></td>
    <td width="35%">
   <b><font color=white> 货物</font></b></td>
   <td width="25%">
   <b><font color=white>&nbsp;数量</font></b></td>

   
 </tr>
 <%
 sql = "select * from inward_detail where idetail_inwa_id = "&inwa_id&" order by idetail_id"
 set rs_detail = conn.execute(sql)
	record = 0
	
 do while not rs_detail.eof
	record=record+1
	if record/2=int(record/2) then
	  bgclr="#F1F1C9"
	else
	  bgclr="#F1F1C9"
	end if
	prod_id = rs_detail("idetail_prod_id")
	inwa_no = rs_detail("idetail_no")
	inwa_rec_no = rs_detail("idetail_rec_no")
	idetail_rec_date = rs_detail("idetail_rec_date")
	idetail_rec_man = rs_detail("idetail_rec_man")
	idetail_rec_idcard = rs_detail("idetail_rec_idcard")
	idetail_rec_operate = rs_detail("idetail_rec_operate")
	idetail_flag = rs_detail("idetail_flag")
	sql = "select * from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&""
	set rs_prod = conn.execute(sql)
	if not rs_prod.eof then
		prod_no = rs_prod("prod_no")
		prod_weight = rs_prod("prod_weight")
		prod_danwei = rs_prod("prod_danwei")
		prod_pinming = rs_prod("prod_pinming")
		prod_danjia = rs_prod("prod_danjia")
		prod_tiji = rs_prod("prod_tiji")
		Response.Write "<tr bgcolor="&bgclr&">"
		Response.Write "<td width=""25%"">&nbsp;</td>"
		Response.Write "<td width=""35%"">"
		response.write prod_no &" " & prod_pinming &" " & prod_danwei &" " & prod_weight &" " & prod_tiji &" " & prod_danjia
		Response.Write "</td>"
		if inwa_rec_no <> 0 then
		Response.Write "<td width=""20%"">"
		response.write "&nbsp;"&inwa_no 
		Response.Write "</td>"
else
		Response.Write "<td colspan=2 width=""40%"">"
		response.write "&nbsp;"&inwa_no 
		Response.Write "</td>"
		end if
		Response.Write "</td>"		
		Response.Write "</tr>"
		'Response.Write "<tr>"
		'if iu = 0 then
		'	Response.Write "<td width=""25%"">数量：</td>"
		'else
		'	Response.Write "<td width=""25%"">&nbsp;</td>"
		'end if
		'Response.Write "<td width=""75%"">"
		'response.write inwa_no
		'Response.Write "</td>"
		'Response.Write "</tr>"
	 end if
	 rs_prod.close
	 set rs_prod = nothing
	 %>

 <%
 if inwa_rec_no <> 0  then 
 
 %>

 
 
 
<%	 
	end if

 	 rs_detail.movenext
 loop
 rs_detail.close
 set rs_detail = nothing 
 %>

 
 
</table>
 <%
else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	
end if
rs.Close
set rs = nothing
call closedatabase

%>
<br>
<br>
 </body>
</html>
⌨️ 快捷键说明

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