save.asp

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

<%@LANGUAGE="VBScript"%>
<%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")
session("id")=session("oabusyname")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<%	
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3

	dim Number,opFlag,rs
	Number=request("Number")
	if Number="" then Number="0"
	Number=Cint(Number)
	opFlag=request("opFlag")
	select case opFlag
		'增加记录
		case "cmdAddNew"
	  		rs.open("select * from remind ")
			rs.Addnew
	        rs("vtitle")=Request.Form("vtitle")
			rs("vtime")=Request.Form("vtime")
			rs("vremindtime")=Request.Form("vremindtime")
			rs("vtext")=Request.Form("vtext")
			rs("vowner")=Session("id")
			rs("vstate")="未提醒"
			rs.Update
		'编辑记录
		case "cmdEdit"
			rs.Open(Session("SQL"))
			rs.Move Number
			rs("vtitle")=Request.Form("vtitle")
			rs("vremindtime")=Request.Form("vremindtime")
            rs("vtext")=Request.Form("vtext")
			rs("vtime")=Request.Form("vtime")
			rs("vstate")="未提醒"
			rs.Update
	end select
	
	rs.close
	set rs=nothing

	response.redirect "main.asp"
%>