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

<!--  #Include File=../inc/css.asp -->

<%	
	SET rs=Server.CreateObject("ADODB.RecordSet") 

	dim Cbianhao,Cchexin,Cchepai,Csiji,Cxianzhuang,Cgcriqi,Cgcren,Cgcfeiyong,Cbeizhu
    'Cbianhao,Cchexin,Cchepai,Csiji,Cxianzhuang,Cgcriqi,Cgcren,Cgcfeiyong,Cbeizhu变量分别传递相应的字段的值
	dim Number,opFlag
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
	
	select case opFlag
	    '增加记录
		case "cmdAddNew"
			rs.open "select * from carmanage where Cbianhao='" & request.Form("Cbianhao") & " ' ",Session("conn"),1,3

			if rs.eof   then 
				rs.Addnew
	        	rs("Cbianhao")=Request.Form("Cbianhao")
        	
				rs("Cchexin")=Request.Form("Cchexin")
		    	rs("Cchepai")=Request.Form("Cchepai")
            	rs("Csiji")=Request.Form("Csiji")
            	rs("Cxianzhuang")=Request.Form("Cxianzhuang")
           		rs("Cgcriqi")=Request.Form("Cgcriqi")
            	rs("Cgcren")=Request.Form("Cgcren")
            	rs("Cgcfeiyong")=Request.Form("Cgcfeiyong")
            	rs("Cbeizhu")=Request.Form("Cbeizhu")
            	rs("Chistory")=""
				rs.Update
			else
				response.write("<script language=javascript>alert('您所输入的汽车编号已经存在，请重新输入编号!');window.history.back()</script>")
				Response.end
			end if
		'编辑记录	
		case "cmdEdit"
			rs.Open Session("SQL"),Session("conn"),1,3
			rs.Move Number
			
	        Cbianhao=rs("Cbianhao")
			Cchexin=rs("Cchexin")
		    Cchepai=rs("Cchepai")
            Csiji=rs("Csiji")
            Cxianzhuang=rs("Cxianzhuang")
            Cgcriqi=rs("Cgcriqi")
            Cgcren=rs("Cgcren")
            Cgcfeiyong=rs("Cgcfeiyong")
            Cbeizhu=rs("Cbeizhu")			
			
	        rs("Cbianhao")=Request.Form("Cbianhao")
			rs("Cchexin")=Request.Form("Cchexin")
		    rs("Cchepai")=Request.Form("Cchepai")
            rs("Csiji")=Request.Form("Csiji")
            rs("Cxianzhuang")=Request.Form("Cxianzhuang")
            rs("Cgcriqi")=Request.Form("Cgcriqi")
            rs("Cgcren")=Request.Form("Cgcren")
            rs("Cgcfeiyong")=Request.Form("Cgcfeiyong")
            rs("Cbeizhu")=Request.Form("Cbeizhu")
            '记录编辑历史
			if Cbianhao<>rs("Cbianhao") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将汽车编号  "+Cbianhao+"  修改成  "+rs("Cbianhao")+" "& Now()
			end if
			if Cchexin<>rs("Cchexin") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将车型  "+Cchexin+"  修改成  "+rs("Cchexin")+" "& Now()
			end if
			if Cchepai<>rs("Cchepai") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将车牌  "+Cchepai+"  修改成  "+rs("Cchepai")+" "& Now()
			end if
			if Csiji<>rs("Csiji") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将司机  "+Csiji+"  修改成  "+rs("Csiji")+" "& Now()
			end if
			if Cxianzhuang<>rs("Cxianzhuang") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将现状  "+Cxianzhuang+"  修改成  "+rs("Cxianzhuang")+" "& Now()
			end if
			if Cgcriqi<>rs("Cgcriqi") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将购车日期  "+Cgcriqi+"  修改成  "+rs("Cgcriqi")+" "& Now()
			end if
			if Cgcren<>rs("Cgcren") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将购车者  "+Cgcren+"  修改成  "+rs("Cgcren")+" "& Now()
			end if
			if Cgcfeiyong<>rs("Cgcfeiyong") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将购车费用  "+Cgcfeiyong+"  修改成  "+rs("Cgcfeiyong")+" "& Now()
			end if
			if Cbeizhu<>rs("Cbeizhu") then
			   rs("Chistory")=rs("Chistory")+vbcrlf+Session("id")+"将备注  "+Cbeizhu+"  修改成  "+rs("Cbeizhu")+" "& Now()
			end if
			rs.Update
			Response.write("<span class=vtext><font color=red><b>该项信息已经成功修改！</b></font></span>")
	end select
	
	rs.close
	set rs=nothing

	response.redirect "main.asp?opFlag=cmdEdit"+Session("isdepartment")
	
%>