?? save.asp
字號:
<%@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
opFlag=Request.QueryString("opFlag")
Number=cint(Request.QueryString("Number"))
select case opFlag
'增加記錄
case "cmdAddNew"
rs.open("select * from memo ")
rs.Addnew
rs("vtitle")=Request.Form("vtitle")
rs("vtext")=Request.Form("vtext")
rs("vdate")=Request.Form("vdate")
rs("vauthor")=Session("id")
rs.Update
'編輯記錄
case "cmdEdit"
rs.Open(Session("SQL"))
rs.Move Number
rs("vtitle")=Request.Form("vtitle")
rs("vtext")=Request.Form("vtext")
rs.Update
end select
rs.close
set rs=nothing
response.redirect "main.asp"
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -