?? save.asp
字號:
<%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
%>
<% '定義變量
dim Number,opFlag,rs,i
'創建記錄訪問對象
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = Session("conn")
rs.CursorType = 1
rs.LockType =3
'獲取輸入參數:記錄號和操作標志
opFlag=Request("opFlag")
Number=Request("Number")
if Number="" then Number="0"
Number=Cint(Number)
select case opFlag
'保存新增會議信息
case "cmdAddNew"
rs.open("select * from meeting where 1=0")
rs.Addnew
for i=0 to rs.Fields.count-1
if rs.Fields(i).name<>"ID" then rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
next
rs.Update
'保存修改會議信息
case "cmdEdit"
rs.Open(Session("SQL"))
rs.Move Number
for i=0 to rs.Fields.count-1
if Request.Form(rs.Fields(i).name)<>"" and rs.Fields(i).name<>"ID" then rs(rs.Fields(i).name)=Request.Form(rs.Fields(i).name)
next
rs.Update
end select
if rs("vtext")="" then re="main" else re="maintext"
'判斷是否給公告欄發布通知
if request("tongzhi")="yes" then
'給公告欄發布通知代碼
rs.close
rs.open "select * from offiche where 1=0"
rs.addnew
rs("vtitle")="會議通知:" & request("vtitle")
rs("vtext")="<H1 align=center><FONT face=黑體><FONT size=5>" & request("vtitle") & "</FONT><HR size=1></FONT></H1><UL><UL><LI><DIV align=left><b>會議主題:</b>" & request("vtitle") & "</DIV></LI><LI><DIV align=left><b>會議時間:</b>" & request("vtime") & "</DIV></LI><LI><DIV align=left><b>會議地點:</b>" & request("vplace") & "</DIV></LI><LI><DIV align=left><b>主 持 人:</b>" & request("vcompere") & "</DIV></LI><LI><DIV align=left><b>出 席 人:</b>" & request("vattend") & request("vattendother") & "</DIV></LI><LI><DIV align=left><b>會議目的:</b>" & request("vaim") & "</DIV></LI></UL></UL>"
rs("vdate")=request("vdate")
rs("vauthor")=Session("id")
rs.update
end if
'關閉記錄源
rs.close
set rs=nothing
'重定向
response.redirect re & ".asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -