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=Request("Number")
	
	if Number="" then Number="0"
	
	Number=Cint(Number)

	select case opFlag
		'保存新增会议信息 
		case "cmdAddNew"
			rs.open("select * from meeting where 1=0")
			rs.Addnew
			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
		'保存修改会议信息
		case "cmdEdit"
			rs.Open(Session("SQL"))
			rs.Move Number
			for i=0 to rs.Fields.count-1 
				if Request.Form(rs.Fields(i).name)<>"" and  rs.Fields(i).name<>"ID"  then									rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
			next 
			rs.Update

	end select
	if rs("vtext")="" then re="main" else re="maintext"
	'判断是否给公告栏发布通知
	if request("tongzhi")="yes" then
		'给公告栏发布通知代码 
		rs.close
		rs.open "select * from offiche where 1=0"
		rs.addnew
		rs("vtitle")="会议通知：" & request("vtitle")
		rs("vtext")="<H1 align=center><FONT face=黑体><FONT size=5>" & request("vtitle") & "</FONT><HR size=1></FONT></H1><UL><UL><LI><DIV align=left><b>会议主题：</b>" & request("vtitle") & "</DIV></LI><LI><DIV align=left><b>会议时间：</b>" & request("vtime") & "</DIV></LI><LI><DIV align=left><b>会议地点：</b>" & request("vplace") & "</DIV></LI><LI><DIV align=left><b>主 持 人：</b>" & request("vcompere") & "</DIV></LI><LI><DIV align=left><b>出 席 人：</b>" & request("vattend") & request("vattendother") & "</DIV></LI><LI><DIV align=left><b>会议目的：</b>" & request("vaim") & "</DIV></LI></UL></UL>"
		rs("vdate")=request("vdate")
		rs("vauthor")=Session("id")
		rs.update
	end if
	
	'关闭记录源	
	rs.close
	set rs=nothing
	'重定向
        response.redirect re & ".asp"

%>