save.asp

来自「Lirong网络办公系统」· ASP 代码 · 共 49 行

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

<%	
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = oconn
	rs.CursorType = 1
	rs.LockType =3
	
	dim opFlag,Number
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
    
    '编辑记录
 	if opFlag= "cmdEdit" then
    	rs.Open(Session("SQL")) 
    	rs.Move Number
    	rs("Cbianhao")=Request.Form("Cbianhao")
    	rs("Csyzhe")=Request.Form("Csyzhe")
    	rs("Csyqixian")=Request.Form("Csyqixian")
    	rs("Cfenpei")=Request.Form("Cfenpei")
    	rs("Cbeizhu")=Request.Form("Cbeizhu")
    	rs.Update
    	Response.write("<span class=vtext><font color=red><b>该项信息已经成功修改！</b></font></span>")
	end if
	
	rs.close
	set rs=nothing

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