save.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
session("id")=request.cookies("oabusyname")
Session("department")=request.cookies("oabusyuserdept")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>
	
<%	'定义变量
	dim Number,opFlag,rs,title,rs2,i
	'创建记录访问对象rs
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3
	'创建记录访问对象res
	SET rs2=Server.CreateObject("ADODB.RecordSet") 
	rs2.ActiveConnection = Session("conn")
	rs2.CursorType = 1
	rs2.LockType =3

	'获取输入参数:记录号和操作标志
	opFlag=Request("opFlag")	
	Number=Cint(Request("Number"))
	'打开记录源,并定位到输入参数决定的记录号
	select case opFlag
		case "cmdAddNew"
			rs.open("select * from goods where vnumber='" & request("vnumber") & "'")
			if request("isnew")="yes"  then
				if rs.eof then	
					rs.Addnew   '库存物品表
					for i=0 to rs.Fields.count-1 
						if Request.Form(rs.Fields(i).name)<>"" then 
							if rs.Fields(i).name<>"ID" then rs.Fields(i).value=Request.Form(rs.Fields(i).name)
						end if
					next 
					rs("isrereg")="f"
					
				else
					response.write("<script language=javascript>alert('您所输入的商品编号已经存在，请重新输入编号!');window.history.back()</script>")
					response.end
				end if
			else 
				if not rs.eof then
					rs("vcount")=rs("vcount")+cint(request("vcount"))
				else
					response.write("<script language=javascript>alert('您所输入的商品库中不存在，请选择<以新商品类型入库>!');window.history.back()</script>")
					response.end
				end if
			end if
			rs.update
			rs.close
			
			rs.open("select * from goodsin where vnumber='" & request("vnumber") & "'")
			rs.Addnew   '入库记录表
			for i=0 to rs.Fields.count-1 
				if Request.Form(rs.Fields(i).name)<>"" then 
					if rs.Fields(i).name<>"ID" then rs.Fields(i).value=Request.Form(rs.Fields(i).name)
				end if
			next 
			rs("vname")=Session("id")
			rs.Update
		case "cmdReReg"
			rs.open("select * from goods where 1=0")
			rs.Addnew   
			for i=0 to rs.Fields.count-1 
				if Request.Form(rs.Fields(i).name)<>"" then 
					if rs.Fields(i).name<>"ID" then rs.Fields(i).value=Request.Form(rs.Fields(i).name)
				end if
			next 
			rs("isrereg")="t"
			rs("vmemo")=Session("department") + "/" +Session("id")

			rs.Update
		case "cmdEdit"
			rs.Open(Session("SQL"))
			rs.Move Number
				for i=0 to rs.Fields.count-1 
					if Request.Form(rs.Fields(i).name)<>""   then 
						if rs.Fields(i).name<>"ID" then rs.Fields(i).value=Request.Form(rs.Fields(i).name)
					end if
				next 
			rs("vguige")=request("vguige")
			rs("vmemo")=request("vmemo")
			
			rs.Update
	end select
	 '关闭记录源
	rs.close
	set rs=nothing

	'重定向到:mainrereg.asp或main.asp
	if opFlag="cmdReReg" then response.redirect"mainrereg.asp?opFlag=cmdReReg" else response.redirect "main.asp?opFlag=cmdManager"
%>