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")),"您创建的<a href=meetinginfo.asp?id=" & request.QueryString("id") & ">" & getMeetingNameById(request.QueryString("id")) & "</a>没有被批准，原因是" & 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


%>