⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 save.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 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")
session("id")=request.cookies("oabusyname")
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 Number,opFlag
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
	
	select case opFlag
		'增加记录
		case "cmdAddNew"
	  			rs.open("select * from cinformation")
				rs.Addnew
	        	rs("Cbianhao")=Request.Form("Cbianhao")
            	rs("Cyyzhe")=Request.Form("Cyyzhe")
		    	rs("Cyyriqi")=Request.Form("Cyyriqi")
            	rs("Cyyqixian")=Request.Form("Cyyqixian")
            	rs("Cbeizhu")=Request.Form("Cbeizhu")
            	rs("Cmudi")=Request.Form("Cmudi")
            	rs("Csyzhe")=""
            	rs("Csyqixian")=""
            	rs("Cfenpei")=Request.Form("Cfenpei")
				rs.Update
				Response.write("<span class=vtext><font color=red><b>登记成功!</b></font></span>")
		case "cmdEdit"
		'编辑记录
				rs.Open(Session("SQL"))
				rs.Move Number
	        	rs("Cbianhao")=Request.Form("Cbianhao")
            	rs("Cyyzhe")=Request.Form("Cyyzhe")
		    	rs("Cyyriqi")=Request.Form("Cyyriqi")
            	rs("Cyyqixian")=Request.Form("Cyyqixian")
            	rs("Cbeizhu")=Request.Form("Cbeizhu")
            	rs("Cmudi")=Request.Form("Cmudi")
				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")
	
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -