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.QueryString("opFlag")
	Number=Request.QueryString("Number")
	select case opFlag
	'保存新增文件信息
	case "cmdAddNew"
		rs.open("select * from gdzc where vnumber='"+request("vnumber")+"'")
		if rs.eof   then '无此用户，继续
			rs.Addnew
		for i=0 to rs.Fields.count-1 
			if request(rs.Fields(i).name)<>"" and rs.Fields(i).name<>"ID"  then rs.Fields(i).value=request(rs.Fields(i).name)
		next 
			rs.Update
		else
		response.write("<script language=javascript>alert('您所输入的编号已经存在，请重新输入编号!');window.history.back()</script>")
		Response.end
		end if
	'保存修改文件信息
	case "cmdEdit"
		rs.Open(Session("SQL"))
		rs.Move Number

		for i=0 to rs.Fields.count-1 
		if request(rs.Fields(i).name)<>"" and rs.Fields(i).name<>"ID"  then rs.Fields(i).value=request(rs.Fields(i).name)
		next
	rs.Update
end select
'关闭记录源
rs.close
set rs=nothing
'重定向至主程序
response.redirect "main.asp?opFlag=cmdManager"
%>