lendsave.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
%>


<!-- #include file="../inc/css.asp" -->
<%	'定义变量
	dim Number,opFlag
	'dim returntime,nowdate,lendtime,vnumber
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
if opFlag="cmdAddNew" then
	'保存新增文件信息
    Response.write("<span class=vtext><font color=red><b>信息已经添加成功！</b></font></span>")
else

	if opFlag="cmdBack" then		
			rs.Open(Session("SQL"))
			rs.Move Number
			nowdate=now()
			returntime=rs("returntime")
			if returntime="尚未归还" then 
				lendtime=rs("lendtime")
				vnumber=rs("vnumber")
				Session("conn").execute("update doclend set returntime='" & nowdate & "' where vnumber='" & vnumber & "' and lendtime='" & lendtime &"'" )
				Session("conn").execute("update document set vout=vout+1 where vnumber='" & vnumber & "'")
			end if    
		rs.Update
	    Response.write("<span class=vtext><font color=red><b>该项已经成功归还！</b></font></span>")
	else
		rs.open "select * from doclend"
		rs.Addnew
		rs("vnumber")=Request.Form("vnumber")
		rs("docstyle")=Request.Form("docstyle")
		rs("lend")=Request.Form("lend")		
		rs("pass")=Request.Form("pass")
		rs("lendtime")=Request.Form("lendtime")
		rs("returntime")=Request.Form("returntime")		
		rs("affix")=Request.Form("affix")		
		rs("uses")=Request.Form("uses")
		rs.Update
			rs.close			
			rs.open("select * from document where vnumber='" & request("vnumber") & "'")
			rs("vout")=CInt(rs("vout"))-1
			rs.update
    Response.write("<span class=vtext><font color=red><b>该项信息已经成功添加！</b></font></span>")
	end if
end if
rs.close
set rs=nothing
'重定向
response.redirect "lend.asp"
%>