?? action.asp
字號:
<!--#include file="meetdb.inc"-->
<%
dim sOp
dim url
on error resume next
sOp=request("op")
if sOp="addRoom" then
addRoom request.Form("name"), request.Form("pos"), CInt(request.Form("content")), request.Form("note")
url = "roommng.asp"
elseif sOp="updateRoom" then
updateRoom request.Form("name"), request.Form("pos"), CInt(request.Form("content")), request.Form("note")
url = "roominfo.asp?name=" & request.Form("name")
elseif sOp="removeRoom" then
removeRoom request.QueryString("name")
url = "roommng.asp"
elseif sOp="addMeeting" then
begintime = request.Form("byear") & "-" & request.Form("bmonth") & "-" & request.Form("bday") & " " & request.Form("bhour") & ":" & request.Form("bminute")
endtime = request.Form("eyear") & "-" & request.Form("emonth") & "-" & request.Form("eday") & " " & request.Form("ehour") & ":" & request.Form("eminute")
person = "" & replace(request.Form("person"),",","#")
msg = addMeeting(request.Form("name"), request.Form("addr"), begintime, endtime, person, request.Form("content"))
url = "addmeeting.asp?msg=" & msg
elseif sOp="changeMeetingPerson" then
if "" & request.Form("submit") <> "" then
removeMeetingPerson request.Form("id"),"" & request.Form("meetingperson")
else
addMeetingPerson request.Form("id"),"" & request.Form("otherperson")
end if
url = "changemeetingperson.asp?id=" & request.Form("id")
elseif sOp="changeMeetingContent" then
setMeetingContent request.Form("id"),request.Form("content")
url = "changemeetingcontent.asp?id=" & request.Form("id")
elseif sOp="changeMeetingOrganizeNote" then
setMeetingOrganizeNote request.Form("id"),request.Form("note")
url = "changemeetingorganizenote.asp?id=" & request.Form("id")
elseif sOp="changeMeetingRecord" then
setMeetingRecord request.Form("id"),request.Form("record")
url = "changemeetingrecord.asp?id=" & request.Form("id")
elseif sOp="changeMeetingOrganizer" then
setMeetingOrganizer request.Form("id"),request.Form("organizer")
url = "changemeetingorganizer.asp?id=" & request.Form("id")
elseif sOp="setMeetingAttr" then
setMeetingAttr request.QueryString("id"),request.QueryString("attr")
url = "meetinginfo.asp?id=" & request.QueryString("id")
elseif sOp="noPassMeeting" then
addmsg getMeetingOrganizerById(request.QueryString("id")),"您創(chuàng)建的<a href=meetinginfo.asp?id=" & request.QueryString("id") & ">" & getMeetingNameById(request.QueryString("id")) & "</a>沒有被批準(zhǔn),原因是" & request.QueryString("msg")
url = "meetinginfo.asp?id=" & request.QueryString("id")
elseif sOp="removeMeeting" then
removeMeeting request.QueryString("id")
if getUserRank() = 1 then
url = "meetingmng.asp"
else
url = "mymeeting.asp"
end if
elseif sOp="setmsg" then
setMsgOver Trim(request.QueryString("id"))
url = "mymeeting.asp"
end if
closeConnection
checkerror
response.Redirect url
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -