sasave.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=../main/css.asp -->
<%	'定义变量
	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")
	select case opFlag
	'保存新增文件信息
	case "cmdAddNew"
		rs.open("select * from sameinfo ")
		rs.Addnew
		rs("Name")=Request.Form("Name")
		rs("Company")=Request.Form("Company")
		rs("Example")=Request.Form("Example")
		rs("Smoney")=Request.Form("Smoney")
		rs("Mans")=Request.Form("Mans")
		rs("Area")=Request.Form("Area")
		rs("Model")=Request.Form("Model")
		rs("State")=Request.Form("State")
		rs("Sadd")=Request.Form("Sadd")
		rs("Market")=Request.Form("Market")
		rs("Chairman")=Request.Form("Chairman")
		rs("Introduction")=Request.Form("Introduction")
		rs("Phone")=Request.Form("Phone")
		rs("Web")=Request.Form("Web")
		rs("Mail")=Request.Form("Mail")
		rs("Fax")=Request.Form("Fax")
		rs.Update
	    Response.write("<span class=vtext><font color=red><b>登记成功！</b></font></span>")
	'保存修改文件信息
        case "cmdEdit"
		rs.Open(Session("SQL"))
		rs.Move Number
		rs("Name")=Request.Form("Name")
		rs("Company")=Request.Form("Company")
		rs("Example")=Request.Form("Example")
		rs("Smoney")=Request.Form("Smoney")
		rs("Mans")=Request.Form("Mans")
		rs("Sadd")=Request.Form("Sadd")
		rs("Area")=Request.Form("Area")
		rs("Model")=Request.Form("Model")
		rs("State")=Request.Form("State")
		rs("Market")=Request.Form("Market")
		rs("Chairman")=Request.Form("Chairman")
		rs("Introduction")=Request.Form("Introduction")
		rs("Phone")=Request.Form("Phone")
		rs("Web")=Request.Form("Web")
		rs("Mail")=Request.Form("Mail")
		rs("Fax")=Request.Form("Fax") 
	    rs.Update
	    Response.write("<span class=vtext><font color=red><b>该项信息已经成功修改！</b></font></span>")
end select
rs.close
set rs=nothing
'重定向
response.redirect "sameinfo.asp?opFlag=cmdEdit"+Session("isdepartment")
%>