📄 invent_setup.asp

📁 1.多种查询方式
💻 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">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<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-->
<%
Showtitle(title)
hurry = split(session("username"),";")
UserCompanyid =  hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 3 then
	call closedatabase
	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
sql = "select * from dc where dc_companyid = "&newcompanyid&""
set rs3 = server.CreateObject("adodb.recordset")
rs3.open sql,conn,3,2
if err.number <> 0 then
	rs3.Close
	set rs3 = nothing
	call closedatabase
	response.write "数据库操作失败："&err.description & "<br>"
	Response.Write "错误程序：" & Err.Source & "<br>"
	Response.End 
elseif rs3.eof and rs3.bof then
			response.write "没有仓库编号，请先设置仓库编号再进行库存初始化！"
		else
rs3.movefirst
while not rs3.eof 
	dc_id = rs3("dc_id")
    dc_code = rs3("dc_code")
		sql2 = "select * from product where prod_companyid = "&newcompanyid&""
		set rs7 = conn.execute(sql2)
		if rs7.eof and rs7.bof then
			response.write "没有产品编号，请先设置产品编号再进行库存初始化！"
        else
			'检测产品表中是否有未归属的产品,
			'如有则提示进行产品的归属
			while not rs7.eof 
				prod_flag = rs7("prod_flag")
				if prod_flag = 0 then
					wert = rs7("prod_no")
					rs7.close
					set rs7 = nothing
					rs3.Close
					set rs3 = nothing
					call closedatabase
					Response.Write "<script language=javascript>"
					Response.Write "alert(""" + wert + "是未归属的产品,请将其归属到某一类别!"");"
					Response.Write "history.go(-1);"
					Response.Write "</script>"
					Response.End 
				end if
				rs7.movenext
			wend
			
			rs7.movefirst
			while not rs7.eof 
				prod_id = rs7("prod_id")
				prod_no = rs7("prod_no")
				prod_flag = rs7("prod_flag")
				sql3 = "select * from inventory where inve_dc_id = " & dc_id &" and inve_companyid = "&newcompanyid&" and inve_prod_id = "&prod_id&""
				set rs8 = conn.execute(sql3)
				if  rs8.eof and rs8.bof then
sql = "insert into inventory(inve_dc_id,inve_prod_id,inve_fore_no,inve_ruku,inve_zaitu,inve_fenpei,inve_chuku,inve_maysent,inve_total,inve_companyid,inve_disabled,inve_flag,inve_last_date) values("&dc_id&","&prod_id&",0,0,0,0,0,0,0,"&newcompanyid&",0,"&prod_flag&",'"&now()&"')"
conn.execute(sql)		  
				elseif  rs8.eof then
sql = "insert into inventory(inve_dc_id,inve_prod_id,inve_fore_no,inve_ruku,inve_zaitu,inve_fenpei,inve_chuku,inve_maysent,inve_total,inve_companyid,inve_disabled,inve_flag,inve_last_date) values("&dc_id&","&prod_id&",0,0,0,0,0,0,0,"&newcompanyid&",0,"&prod_flag&",'"&now()&"')"
conn.execute(sql)
				else
					flag = rs8("inve_flag")
					id = rs8("inve_id") 	
					if flag <> prod_flag then
						sql= "update inventory set inve_flag = "&prod_flag&" where inve_id = "&id&" and inve_companyid = "&newcompanyid&"" 
						conn.execute(sql)
					end if
					
				end if	
				rs8.Close
				set rs8 = nothing			
			  rs7.movenext
		    wend
		end if
		rs7.close
		set rs7 = nothing
rs3.movenext
wend
end if
rs3.Close
set rs3 = nothing
call closedatabase
Response.Write "<P ALIGN=CENTER>初始化库存完成!请返回管理界面</P>"
%>
<!--#include file=../data/copyright.asp-->
</body>
</html>
⌨️ 快捷键说明

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