save.asp

Lirong网络办公系统

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("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
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
	dim ab,ba,ag,af
select case opFlag
	'保存新增文件信息
case "cmdAddNew" 
		rs.open "select * from document where vnumber='" & request.Form("vnumber") & "'",Session("conn"),1,3
	if rs.eof   then 
		rs.Addnew
		rs("vtitle")=Request.Form("vtitle")
		rs("vnumber")=Request.Form("vnumber")
		rs("vstyle")=Request.Form("vstyle")
		rs("vtime")=Request.Form("vtime")		
		rs("doctime")=Request.Form("doctime")
		rs("saveurl")=Request.Form("saveurl")
		rs("former")=Request.Form("former")
ag=Request.Form("again")
if ag="" then	
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
		rs("secret")=Request.Form("secret")		
		rs("deal")=Request.Form("deal")	
		rs("vauthor")=Request.Form("vauthor")
		'response.end
		rs("saveyear")=Request.Form("saveyear")
		rs("vtext")=Request.Form("vtext")
		ab=CInt(rs("former"))
		ba=CInt(rs("again"))
		rs("vout")=ab+ba
		rs.Update
	    'Response.write("<span class=vtext><font color=red><b>登记成功！</b></font></span>")
	else
		response.write("<script language=javascript>alert('您所输入的档案编号已经存在，请重新输入!');window.history.back()</script>")
		Response.end
	end if
	'保存修改文件信息
'else      
case "cmdEdit"
		rs.Open Session("SQL")
		rs.Move Number
		rs("vtitle")=Request.Form("vtitle")
		rs("vnumber")=Request.Form("vnumber")
		rs("vstyle")=Request.Form("vstyle")
		rs("vtime")=Request.Form("vtime")
		rs("doctime")=Request.Form("doctime")
		rs("saveurl")=Request.Form("saveurl")
		rs("former")=Request.Form("former")
ag=Request.Form("again")
if ag="" then	
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
		rs("secret")=Request.Form("secret")
		rs("deal")=Request.Form("deal")
		rs("vauthor")=Request.Form("vauthor")
		rs("saveyear")=Request.Form("saveyear")
		rs("vtext")=Request.Form("vtext")	 
		ab=CInt(rs("former"))
		ba=CInt(rs("again"))
		rs("vout")=ab+ba   
		rs.Update
'if opFlag=
case "cmdAddNew1" 
		rs.open "select * from document where vnumber='" & request.Form("vnumber") & "'",Session("conn"),1,3
	if rs.eof   then 
		rs.Addnew
		rs("vtitle")=Request.Form("vtitle")
		rs("vnumber")=Request.Form("vnumber")
		rs("vstyle")=Request.Form("vstyle")
		rs("vtime")=Request.Form("vtime")		
		rs("doctime")=Request.Form("doctime")
		rs("saveurl")=Request.Form("saveurl")
		rs("former")=Request.Form("former")		
ag=Request.Form("again")
if ag="" then	
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
		rs("secret")=Request.Form("secret")		
		rs("deal")=Request.Form("deal")	
		rs("vauthor")=Request.Form("vauthor")
		'response.end
		rs("saveyear")=Request.Form("saveyear")
		rs("vtext")=Request.Form("vtext")
		ab=CInt(rs("former"))
		ba=CInt(rs("again"))
		rs("vout")=ab+ba
		rs.Update
	    'Response.write("<span class=vtext><font color=red><b>登记成功！</b></font></span>")
	else
		response.write("<script language=javascript>alert('您所输入的档案编号已经存在，请重新输入!');window.history.back()</script>")
		Response.end
	end if
'end if

	    Response.write("<span class=vtext><font color=red><b>该项信息已经成功修改！</b></font></span>")
end select
'end if
rs.close
set rs=nothing
'重定向
response.redirect "main.asp?opFlag=cmdEdit"+Session("isdepartment")
%>