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") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3

	dim Knumber,Kname,Klianxi,Ktelephone,Kfax,Kdizhi,Kyoubian,Kyixiang,Kchengdu,Kdengji,Kbeizhu,Kdiqu
	'传递各个相应字段的值
	dim opFlag,Number
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
	select case opFlag
		'增加记录
		case "cmdAddNew" 
			rs.open("select * from kehumanage where Knumber='" & request.Form("Knumber") & " ' "),Session("conn"),1,3
			if rs.eof   then 
				rs.Addnew
	        	rs("Knumber")=Request.Form("Knumber")
				rs("Kname")=Request.Form("Kname")
		    	rs("Klianxi")=Request.Form("Klianxi")
            	rs("Ktelephone")=Request.Form("Ktelephone")
            	rs("Kfax")=Request.Form("Kfax")
            	rs("Kdizhi")=Request.Form("Kdizhi")
            	rs("Kyoubian")=Request.Form("Kyoubian")
            	rs("Kyixiang")=Request.Form("Kyixiang")
            	rs("Kchengdu")=Request.Form("Kchengdu")
            	rs("Kdengji")=Request.Form("Kdengji")
            	rs("Kbeizhu")=Request.Form("Kbeizhu")
            	rs("Kdiqu")=Request.Form("Kdiqu")
            	rs("Ktype")=Request.Form("Ktype")
            	rs("Khistory")=""
				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
			
			Knumber=rs("Knumber")
			Kname=rs("Kname")
			Klianxi=rs("Klianxi")
			Ktelephone=rs("Ktelephone")
			Kfax=rs("Kfax")
			Kdizhi=rs("Kdizhi")
			Kyoubian=rs("Kyoubian")
			Kyixiang=rs("Kyixiang")
			Kchengdu=rs("Kchengdu")
			Kdengji=rs("Kdengji")
			Kbeizhu=rs("Kbeizhu")
			Kdiqu=rs("Kdiqu")
			
			rs("Knumber")=Request.Form("Knumber")
			rs("Kname")=Request.Form("Kname")
		    rs("Klianxi")=Request.Form("Klianxi")
            rs("Ktelephone")=Request.Form("Ktelephone")
            rs("Kfax")=Request.Form("Kfax")
            rs("Kdizhi")=Request.Form("Kdizhi")
            rs("Kyoubian")=Request.Form("Kyoubian")
            rs("Kyixiang")=Request.Form("Kyixiang")
            rs("Kchengdu")=Request.Form("Kchengdu")
            rs("Kdengji")=Request.Form("Kdengji")
            rs("Kbeizhu")=Request.Form("Kbeizhu")
            rs("Kdiqu")=Request.Form("Kdiqu")
			
            '保存修改记录
			if Knumber<>rs("Knumber") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将序号  " & Knumber & "  修改成  " & rs("Knumber") & " " & Now()
			end if
			if Kname<>rs("Kname") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将客户名称  "+Kname+"  修改成  "+rs("Kname")+" "& Now()
			end if
			if Klianxi<>rs("Klianxi") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将联系人/职务  "+Klianxi+"  修改成  "+rs("Klianxi")+" " & Now()
			end if
			if Ktelephone<>rs("Ktelephone") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将电话  "+Ktelephone+"  修改成  "+rs("Ktelephone")+" "& Now()
			end if
			if Kfax<>rs("Kfax") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将传真  "+Kfax+"  修改成  "+rs("Kfax")+" "& Now()
			end if
			if Kdizhi<>rs("Kdizhi") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将公司地址  "+Kdizhi+"  修改成  "+rs("Kdizhi")+" " & Now()
			end if
			if Kyoubian<>rs("Kyoubian") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将邮编  "+Kyoubian+"  修改成  "+rs("Kyoubian")+" "& Now()
			end if
			if Kdiqu<>rs("Kdiqu") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将所在地区  "+Kdiqu+"  修改成  "+rs("Kdiqu")+" "& Now()
			end if
			if Kyixiang<>rs("Kyixiang") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将发展意向  "+Kyixiang+"  修改成  "+rs("Kyixiang")+" "& Now()
			end if
			if Kchengdu<>rs("Kchengdu") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将已进展程度  "+Kchengdu+"  修改成  "+rs("Kchengdu")+" "& Now()
			end if
			if Kdengji<>rs("Kdengji") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将客户等级  "+Kdengji+"  修改成  "+rs("Kdengji")+" "& Now()
			end if
			if Kbeizhu<>rs("Kbeizhu") then
			   rs("Khistory")=rs("Khistory")+vbcrlf+Session("id")+"将备注  "+Kbeizhu+"  修改成  "+rs("Kbeizhu")+" "& 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")
%>