📄 endmeeting.inc
字号:
<%
'************************************************************************************************
' 函数名 : FormMeetingTable(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号，如果是新申请会议，那么iMeetingSerial=0，表示一张空的表
' 输 出 : 一张会议申请表（新的或者是旧的供修改的），可以提交
' 功能描述: 根据会议序列号，画出相应的会议申请表显示出来
' 调用模块: endmeeting.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Function FormMeetingTable(iMeetingSerial)
'------------------------------------
' 根据会议的MeetingSerial,画出相应的会议申请表，显示原来的会议信息，供修改
'------------------------------------
dim sSQL, iExecuter, sMeetingName, sSubject, sTask, iDepartment, sMeetingRoom, sPresider, dStart_time, dApply_time
dim dStop_time, fBudget, sAttendee, sGuest, iProposer, rt, rm, sError, sComment
dim sTemp, sTempButtons
dim crs, rs
sSQL = "select * from T_MeetingPrepare where meeting_status = 5 and meeting_serial = "& iMeetingSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
sMeetingName = crs.GetValue("meeting_name")
sSubject = crs.GetValue("subject")
sTask = crs.GetValue("task")
sMeetingRoom = crs.GetValue("meeting_room")
sPresider = crs.GetValue("presider")
fBudget = crs.GetValue("budget")
dStart_time = crs.GetValue("start_time")
dStop_time = crs.GetValue("stop_time")
dStart_time = Formatdt(dStart_time,"yyyy-mm-dd hh:mm")
dStop_time = Formatdt(dStop_time,"yyyy-mm-dd hh:mm")
sGuest = crs.GetValue("guest")
iDepartment = crs.GetValue("department")
sAttendee = crs.GetValue("attendee")
sComment = crs.GetValue("comment")
sTempButtons=_
" <img border=0 src=""../images/button/submit.gif"" style=""cursor:hand"" name=btnSubmit>" & _
" <img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>"
else
response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议已经填写过会议纪要了！')</script>"
response.write "<script language = vbscript>window.navigate(""list_endmeeting.asp"")</script>"
end if
FormMeetingtable=_
TableTitle("会议信息表——请仔细检查并修改各项信息，该表信息将会自动产生会议纪要。", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name=""frmendmeeting"" method=post action=""endmeeting.asp"">"
FormMeetingTable = FormMeetingTable & _
"<tr height=30>" & _
" <td width=115 align=right>会议主题：</td>"&_
" <td width=485 colspan=4><input name=""mtSubject"" value=""" & sSubject & """ size=64 type=""text"" maxlength=128></td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>会议名称：</td>" & _
" <td width=485 colspan=4><input name=""mtName"" value=""" & sMeetingName & """ size=64 type=""text"" maxlength=128></td>"&_
"</tr>" & _
"<tr height = 1><td colspan=2> </td></tr>"&_
"<tr height=30>" & _
" <td width=115 align=right>会议内容：</td>" & _
" <td width=485 colspan=4><textarea class=""FlatCtrl"" name=""mtTask"" rows=10 cols=62>"&sTask&"</textarea></td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>召开部门：</td>" & _
" <td width=170><select name=department style=""WIDTH:170px"">" & OwnerDepartmentSelectOptions(iDepartment) & "</select></td>" & _
" <td width=80 align=right>召开地点：</td>" & _
" <td width=235><input name=""meeting_room"" value="""& sMeetingRoom &""" type=""text"" size=21 maxlength=25 >"& _
" </td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>主持人：</td>" & _
" <td width=170><input name=presider value=""" & sPresider & """ type=""text"" size=21 maxlength=10 >"& _
" <td width=80 align=right>费用：</td>" & _
" <td width=235><input name=""budget"" type=""text"" size=21 maxlength=8 value=""" & fBudget & """></td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>开始时间：</td>" & _
" <td width=170><input name=""start_time"" type=""text"" size=21 maxlength=19 value="""& dStart_time &""">" &"</td>"& _
" <td width=80 align=right>结束时间：</td>" & _
" <td width=235><input name=""stop_time"" type=""text"" size=21 maxlength=19 value="""& dStop_time &""">" &"</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td colspan=2 width=300 align=center> （输入格式：2001-20-1 08:20）</td>" & _
" <td colspan=2 width=300 align=center>（输入格式：2001-20-1 08:20） </td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>公司内部 <br>参会人员：</td>" & _
" <td width=170><select style=""width:140px"" multiple size=6 name=employee>" & GetRemainlist(sAttendee) & "</select>"& _
" <td width=80 align=left ><input type=button name=AddAtt value=""--->"" onclick=""JavaScript:MoveOptions(document.all.frmendmeeting.employee,document.all.frmendmeeting.attendee)""> <br>" & _
" <br><input type=button name=DelAtt value=""<---"" onclick=""JavaScript:MoveOptions(document.all.frmendmeeting.attendee,document.all.frmendmeeting.employee)""> </td>" & _
" <td width=235><select style=""width:140px""multiple size=6 name=attendee>"& GetAttendeelist(sAttendee) &"</select></td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td width=115 align=right>外部人员：</td>"&_
" <td width=485 colspan=4><input name=""guest"" value=""" & sGuest & """ size=64 type=""text"" maxlength=100></td>"& _
"<tr height=50>" & _
" <td colspan=4 align=center>" & sTempButtons & _
" </td>" & _
"</tr>" & _
"<tr height=30>" & _
" <input type=hidden name=rt>" & _
" <input type=hidden name=rm>" & _
" <input type=hidden name=formaction>" & _
" <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
"</tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : TableLink()
' 输 入 :
' 输 出 :
' 功能描述: 会议申请表页面上到其他页面的连接
' 调用模块: endmeeting.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Function TableLink()
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
"<tr height=30>" & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td width=600> " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""endmeeting.asp"">填写会议申请</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_checkmeeting.asp"">审批会议申请</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_reendmeeting.asp"">修改会议申请表</a></td>" & _
"</tr>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : UpdateMeeting()
' 输 入 :
' 输 出 :
' 功能描述: 新增或者更新会议的数据处理，根据meetingserial的值，采取不同的操作:
' iMeetingserial=0：新的会议申请
' iMeetingserial<>0 :重新会议申请
' 调用模块: endmeeting.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Sub UpdateMeeting()
' 定义变量
dim sSQL, iExecuter, sMeeting_Name, sSubject, sTask, iDepartment, sMeeting_room, sPresider, dStart_time, dApply_time
dim dStop_time, fBudget, sAttendee, sGuest, iProposer, rt, rm, sError, sFormaction, crs, rs
' 获取表单的数据
iExecuter = Getofficer
iProposer = GetEmpSerial
sFormaction = GetParam("formaction")
sMeeting_Name = GetParam("mtName")
sSubject = GetParam("mtSubject")
sTask = GetParam("mtTask")
iDepartment = GetParam("department")
sMeeting_room = GetParam("meeting_room")
sPresider = GetParam("presider")
dStart_time = GetParam("start_time")
dStop_time = GetParam("stop_time")
fBudget = GetParam("budget")
sAttendee = GetParam("attendee")
sGuest = GetParam("guest")
dApply_time = now()
rt = GetParam("rt")
rm = GetParam("rm")
'response.write "iMeetingSerial="&iMeetingSerial
'response.end
select case sFormaction
case "addsummary"
sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial &" and meeting_status = 5"
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
'定义更新会议的sSQL语句
sSQL = "update T_MeetingPrepare set meeting_name = "& ToSQL(sMeeting_Name,"text") & ", subject = "&ToSQL(sSubject,"text") &_
", task = " & ToSQL(sTask,"text") & ", department = " & ToSQL(iDepartment,"Number") & ", meeting_room = " &_
ToSQL(sMeeting_room,"text") & ", presider = " & ToSQL(sPresider,"text") & ", start_time = " & ToSQL(dStart_time,"text") &_
", stop_time = " & ToSQL(dStop_time,"text") & ", budget = " & ToSQL(fBudget,"number") & ", attendee = " &_
ToSQL(sAttendee,"text") & ", guest = " & ToSQL(sGuest,"text") & ", meeting_status = 7 ,isconfirmed = 0 where meeting_serial=" & _
iMeetingSerial & " and meeting_status = 5 "
'执行会议申请的更新
sError = ExecuteSQL(dbLocal, sSQL)
if sError <> "" then
response.write "<script language=""javascript"">alert('对不起，会议纪要填写失败！')</script>"
else
response.write "<script language=""javascript"">alert('会议纪要提交成功，请等候办公室主任的审批结果！')</script>"
call CommonSendMsg(MSG_MEETING,"",sMeeting_name,"请审批我提交的会议纪要！",iProposer,iExecuter)
end if
response.write "<script language=vbscript>window.navigate(""list_endmeeting.asp"")</script>"
else
response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议已经填写过会议纪要了！')</script>"
response.write "<script language = vbscript>window.navigate(""list_endmeeting.asp"")</script>"
end if
end select
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -