📄 applyurgentmeeting.inc
字号:
<%
'************************************************************************************************
' 函数名 : FormMeetingTable(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号，如果是新申请会议，那么iMeetingSerial=0，表示一张空的表
' 输 出 : 一张会议申请表（新的或者是旧的供修改的），可以提交
' 功能描述: 根据会议序列号，画出相应的会议申请表显示出来
' 调用模块: applyurgentmeeting.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_serial = "& iMeetingSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
response.write "<script language=""javascript"">alert('对不起，您输入本页面的地址所带的参数有误！')</script>"
response.write "<script language = vbscript>window.navigate(""applyurgentmeeting.asp"")</script>"
else
sMeetingName = ""
sSubject = ""
sTask = ""
sMeetingRoom = ""
sPresider = ""
fBudget = 0
dStart_time = Formatdt(now(),"yyyy-mm-dd hh:mm")
dStop_time = Formatdt(now(),"yyyy-mm-dd hh:mm")
sGuest = ""
iDepartment = 0
sAttendee = ""
sTempButtons=_
" <img border=0 src=""../images/button/submit.gif"" style=""cursor:hand"" name=btnSubmit>" & _
" <img border=0 src=""../images/button/clear.gif"" style=""cursor:hand"" name=btnCancel>"
end if
FormMeetingtable=_
TableTitle("临时会议申请表", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name=""frmapplyurgentmeeting"" method=post action=""applyurgentmeeting.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.frmapplyurgentmeeting.employee,document.all.frmapplyurgentmeeting.attendee)""> <br>" & _
" <br><input type=button name=DelAtt value=""<---"" onclick=""JavaScript:MoveOptions(document.all.frmapplyurgentmeeting.attendee,document.all.frmapplyurgentmeeting.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=formaction>" & _
" <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
"</tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : TableLink()
' 输 入 :
' 输 出 :
' 功能描述: 会议申请表页面上到其他页面的连接
' 调用模块: applyurgentmeeting.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=""applyurgentmeeting.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_reapplyurgentmeeting.asp"">修改会议申请表</a></td>" & _
"</tr>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : UpdateMeeting()
' 输 入 :
' 输 出 :
' 功能描述: 新增或者更新会议的数据处理，根据meetingserial的值，采取不同的操作:
' iMeetingserial=0：新的会议申请
' iMeetingserial<>0 :重新会议申请
' 调用模块: applyurgentmeeting.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()
'response.write "iMeetingSerial="&iMeetingSerial
'response.end
select case sFormaction
case "apply"
if iMeetingserial = 0 then
'定义新增会议的sSQL语句
sSQL = "insert into T_MeetingPrepare(meeting_name,subject,task,department,proposer,meeting_room,"&_
"presider,start_time,stop_time,budget,attendee,guest,meeting_status,apply_time) values("&ToSQL(sMeeting_Name,"text")&_
","&ToSQL(sSubject,"text")&","&ToSQL(sTask,"text")&","&ToSQL(iDepartment,"Number")&","&_
ToSQL(iProposer,"Number")&","&ToSQL(sMeeting_room,"text")&","&ToSQL(sPresider,"text")&","&_
ToSQL(dStart_time,"text")&","&ToSQL(dStop_time,"text")&","&ToSQL(fBudget,"number")&","&_
ToSQL(sAttendee,"text")&","&ToSQL(sGuest,"text")&", 3,"&ToSQL(dApply_time,"text")&")"
'执行新增会议
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,"召开临时会议，请各位准时参加！",iExecuter,sAttendee)
call CommonSendMsg(MSG_MEETING,"",sMeeting_name,"会议即将召开，等会议召开完毕以后，请您设置会议召开情况！",iExecuter,iExecuter)
end if
response.write "<script language=vbscript>window.navigate(""applyurgentmeeting.asp"")</script>"
else
response.write "<script language=""javascript"">alert('对不起，您输入本页面的地址所带的参数有误！')</script>"
response.write "<script language = vbscript>window.navigate(""applyurgentmeeting.asp"")</script>"
end if
end select
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -