📄 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")
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 + -