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")
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,i
	'设置操作对象
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3

	opFlag=Request("opFlag")
	Number=Cint(Request("Number"))
	
	select case opFlag
                '当信息为新增时保存
		case "cmdAddNew"
			rs.open("select * from books where vnumber='" & request("vnumber") & "'")
			'判断书号是否为空
			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).type="integer" and rs.Fields(i).name<>"ID"  then  rs(rs.Fields(i).name)=cint(Request.Form(rs.Fields(i).name)) 						else rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
					end if
				next 
				rs.Update
                        '重定向，返回主程序
			response.redirect "main.asp?opFlag=cmdManager"
			else
				response.write ("<script language=jscript>window.alert('您所输入的书号已经存在，请输入其他书号!');window.history.back()</script>")
			end if
		'当信息为编辑时保存
		case "cmdEdit"
			rs.Open(Session("SQL"))
			rs.Move Number
			Session("conn").execute "update  bookout set vnumber='" & Request("vnumber") & "' where vnumber='" & rs("vnumber") & "'"
			for i=0 to rs.Fields.count-1 
				if rs.Fields(i).name<>"ID" then rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
			next 
			rs.Update
	end select
	rs.close
	set rs=nothing
	'重定向到主程序		
	response.redirect "main.asp?opFlag=cmdManager"	

%>