📄 querymeeting.inc
字号:
<%
' ==================================================================
' 函数名称：GetInvisibleChar(strData)
' 函数功能：显示原字符串，包括其中的不可见字符：空格和回车
' 输入参数：字符串：strData
' 返回值： 字符串：GetInvisibleChar
' ==================================================================
function GetInvisibleChar(strData)
Dim strGetSpace
Dim strGetAll
if Isnull(strData) then
response.write "strData为null!"
response.end
else
strGetSpace = unescape(Replace(escape(strData),"%20"," "))
strGetAll = unescape(Replace(escape(strGetSpace),"%0D%0A","<br>"))
end if
GetInvisibleChar = strGetAll
end function
' =====================================================================
' 函数 GetInvisibleChar(strData)结束
' =====================================================================
'************************************************************************************************
' 函数名 : FormMeetingHandle(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号
' 输 出 : 一次会议的审批意见表单
' 功能描述: 根据会议序列号，填写相应的会议审批意见
' 调用模块: querymeeting.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-15
' 版 本 :
'************************************************************************************************
Function FormMeetingHandle(iMeetingSerial)
dim sTemp, sTempButtons, iStepno, sOpinion, sAccountname
dim crs, rs, sSQL, sComment, iIsconfirmed, iApprove_flow, crs2
if iMeetingSerial > 0 then
sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
sComment = crs.GetValue("comment")
iIsconfirmed = crs.GetValue("isconfirmed")
iApprove_flow = crs.GetValue("approve_flow")
sTempButtons=_
" <img border=0 src=""../images/button/called.gif"" style=""cursor:hand"" name=btnOk>" & _
" <img border=0 src=""../images/button/canceled.gif"" style=""cursor:hand"" name=btnCancel>"
crs.close()
else
response.write "不存在该会议！"
response.end
end if
FormMeetingHandle = FormMeetingHandle & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name=""frmquerymeeting"" method=post action=""querymeeting.asp"">" & _
"<tr height=50>" & _
" <td colspan=4 align=center>" & sTempButtons & _
" </td>" & _
"</tr>" & _
"<tr height=30>" & _
" <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
" <input type=hidden name=formaction >" & _
"</tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : FormMeetingDetail(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号
' 输 出 : 一次会议的详细信息表
' 功能描述: 根据会议序列号，给出相应的会议详细信息
' 调用模块: querymeeting.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Function FormMeetingDetail(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
dim sTemp, sTempButtons
dim crs, rs
sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iMeetingSerial &" and meeting_status = 3"
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")
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_querymeeting.asp"")</script>"
sMeetingName = ""
sSubject = ""
sTask = ""
sMeetingRoom = ""
sPresider = ""
fBudget = 0
dStart_time = left(now(),len(now())-3)
dStop_time = left(now(),len(now())-3)
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
FormMeetingDetail=_
TableTitle("会议申请表", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tablelist>" & _
"<form name=""frmApplymeeting"" method=post action=""applymeeting.asp"">" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议主题：</td>"&_
" <td class=tdlist width=485 colspan=4>" & " " & sSubject & "</td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议名称：</td>" & _
" <td class=tdlist width=485 colspan=4>" & " " & sMeetingName & "</td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议内容：</td>" & _
" <td class=tdlist width=485 colspan=4>" & " " & GetInvisibleChar(sTask) & "</td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>召开部门：</td>" & _
" <td class=tdlist width=170>" & " " & TransDepartment(dbLocal, iDepartment) & "</td>" & _
" <td class=tdlist width=80 align=right>召开地点：</td>" & _
" <td class=tdlist width=235>"& " " & sMeetingRoom & "</td>" & _
" </td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>主持人：</td>" & _
" <td class=tdlist width=170>" & " " & sPresider & "</td>"& _
" <td class=tdlist width=80 align=right>费用预算：</td>" & _
" <td class=tdlist width=235>" & " " & fBudget & "</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>开始时间：</td>" & _
" <td class=tdlist width=170>"& " " & dStart_time &"</td>"& _
" <td class=tdlist width=80 align=right>结束时间：</td>" & _
" <td class=tdlist width=235>"& " " & dStop_time &"</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>公司内部 <br>参会人员：</td>" & _
" <td class=tdlist width=485 colspan=3>" & " " & TransEmpSerial(dbLocal,sAttendee) & "</td>"& _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>公司外部 <br>参会人员：</td>"&_
" <td class=tdlist width=485 colspan=3>" & " " & sGuest & "</td>"& _
"<tr height=30>" & _
" <input type=hidden name=meetingserial value="""&iMeetingSerial&""">" & _
"</tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : TableLink()
' 输 入 :
' 输 出 :
' 功能描述: 会议申请表页面上到其他页面的连接
' 调用模块: applymeeting.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=""applymeeting.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_querymeeting.asp"">会议安排表</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_reapplymeeting.asp"">修改会议申请表</a></td>" & _
"</tr>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : UpdateMeeting()
' 输 入 :
' 输 出 :
' 功能描述: 新增或者更新会议的数据处理，根据meetingserial的值，采取不同的操作:
' iMeetingserial=0：新的会议申请
' iMeetingserial<>0 :重新会议申请
' 调用模块: applymeeting.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Sub UpdateMeeting()
' 定义变量
dim sSQL, iExecuter, sFormaction, sComment, iMeetingserial, sMeetingname, sTask, dStarttime, dStoptime, sAttendee
dim rt, rm, sError, iProposer, sSQL1
dim crs, rs
' 获取表单的数据
iExecuter = GetOfficer
sFormaction = GetParam("formaction")
iMeetingserial = GetParam("meetingserial")
sSQL = "SELECT * FROM T_MeetingPrepare where meeting_serial = "& iMeetingserial & "and meeting_status = 3 "
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
'存在该会议，作审批处理
sMeetingname = crs.GetValue("meeting_name")
sTask = crs.GetValue("task")
dStarttime = crs.GetValue("start_time")
dStoptime = crs.GetValue("stop_time")
sAttendee = crs.GetValue("attendee")
iProposer = crs.GetValue("proposer")
sFormaction = LCase(sFormaction)
select case sFormaction
case "ok"'会议已经召开，设置meeting_status=5，发送消息，要求会议申请人填写会议纪要
sSQL = "update t_meetingprepare set meeting_status = 5 where meeting_serial = "&iMeetingserial
sError = ExecuteSQL(dbLocal, sSQL)
if sError <> "" then
Response.Write "<script language=""javascript"">alert('对不起，会议信息修改出错，请查看数据库！')</script>"
end if
call CommonSendMsg(MSG_MEETING,"",sMeetingname,"会议已经召开，请填写会议纪要！",iExecuter,iProposer)
case "cancel"'会议已经取消，将该会议删除，并通知所有参会人员该消息
sSQL = "delete from t_meetingprepare where meeting_serial = "&iMeetingserial
sError = ExecuteSQL(dbLocal, sSQL)
if sError <> "" then
Response.Write "<script language=""javascript"">alert('对不起，会议信息修改出错，请查看数据库！')</script>"
end if
call CommonSendMsg(MSG_MEETING,"",sMeetingname,"会议已经取消，请大家注意！",iExecuter,sAttendee)
end select
else
'不存在该会议，给出出错信息
response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议已经处理过了！')</script>"
response.write "<script language = vbscript>window.navigate(""list_querymeeting.asp"")</script>"
end if
response.write "<script language=vbscript>window.navigate(""list_querymeeting.asp"")</script>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -