📄 historymeeting.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
'************************************************************************************************
' 函数名 : FormMeetingDetail(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号
' 输 出 : 一次会议的详细信息表
' 功能描述: 根据会议序列号，给出相应的会议详细信息
' 调用模块: historymeeting.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
dim sMeetingeffect, sAssociate, iHandler, sHandle_deadline, sHandle_result, sHandled_date, sRemark
sSQL = "select * from T_MeetingPrepare where 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")
sTempButtons=_
" <img border=0 src=""../images/button/view.gif"" style=""cursor:hand"" name=btnPrint>"
else
'不存在该会议，给出出错信息
response.write "<script language=""javascript"">alert('对不起，不存在该会议！')</script>"
response.write "<script language = vbscript>window.navigate(""list_historymeeting.asp"")</script>"
end if
crs.close()
'获得该会议的落实事项信息
sSQL = "select * from T_MeetingEffect where meeting_serial = "& iMeetingSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
sMeetingeffect = crs.GetValue("effect_item")
iHandler = crs.GetValue("handler")
sHandle_deadline = crs.GetValue("handle_deadline")
sAssociate = crs.GetValue("associate")
sHandle_result = crs.GetValue("handle_result")
sRemark = crs.GetValue("remark")
sHandled_date = crs.GetValue("handled_date")
end if
FormMeetingDetail=_
TableTitle("会议纪要", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<form name=""frmhistorymeeting"" method=post action=""historymeeting.asp"">" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议主题：</td>"&_
" <td class=tdlist width=485 colspan=3>" & " " & sSubject & "</td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议名称：</td>" & _
" <td class=tdlist width=485 colspan=3>" & " " & sMeetingName & "</td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>会议内容：</td>" & _
" <td class=tdlist width=485 colspan=3>" & " " & 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>"
if not rs.eof then
FormMeetingDetail = FormMeetingDetail & _
"<tr height=50>" & _
" <td class=tdlist colspan=4 align=center>" & sTempButtons & _
" </td>" & _
"</tr>" &_
"<tr height=50>" & _
" <td class=tdlist colspan=4 align=center style=""color:red"">相关的会议落实事项： "& _
" </td>" & _
"<tr height=30>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>落实事项：</td>" & _
" <td class=tdlist width=485 colspan=3> " & GetInvisibleChar(sMeetingeffect) & "</td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>督办人员：</td>" & _
" <td class=tdlist width=485 colspan = 3> " & TransEmpSerial(dbLocal,iHandler) & "</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>处理时限：</td>" & _
" <td class=tdlist width=485 colspan = 3> " & sHandle_deadline &"</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>相关人员：</td>" & _
" <td class=tdlist width=485 colspan=3> " & TransEmpSerial(dbLocal,sAssociate) & "</td>"& _
"</tr>" &_
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>执行结果：</td>" & _
" <td class=tdlist width=485 colspan=3> " & GetInvisibleChar(sHandle_result) & "</td>"&_
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>处理日期：</td>" & _
" <td class=tdlist width=485 colspan = 3> " & Tohtml(sHandled_date) &"</td>"& _
"</tr>" & _
"<tr height=30>" & _
" <td class=tdlist width=115 align=right>备注：</td>" & _
" <td class=tdlist width=485 colspan = 3> " & sRemark &"</td>"& _
"</tr>" &_
"<tr height=50>" & _
" <td class=tdlist colspan=4 align=center>"&"<img border=0 src=""../images/button/return.gif"" style=""cursor:hand"" name=btnReturn>" & _
" </td>" & _
"</tr>"
else
FormMeetingDetail = FormMeetingDetail & _
"<tr height=50>" & _
" <td class=tdlist colspan=4 align=center>"&_
" <img border=0 src=""../images/button/view.gif"" style=""cursor:hand"" name=btnPrint>" &_
" <img border=0 src=""../images/button/return.gif"" style=""cursor:hand"" name=btnReturn>" & _
" </td>" & _
"</tr>"
end if
FormMeetingDetail = FormMeetingDetail & _
"</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_historymeeting.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_historymeeting.asp"">一周会议申请</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_endmeeting.asp"">填写会议纪要</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_reapplymeeting.asp"">修改会议申请表</a></td>" & _
"</tr>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : UpdateMeeting()
' 输 入 :
' 输 出 :
' 功能描述:
' 调用模块: historymeeting.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-08-02
' 版 本 :
'************************************************************************************************
Sub UpdateMeeting()
dim iMeetingSerial
iMeetingSerial = GetParam("meetingserial")
response.redirect "printsummary.asp?meetingserial="&iMeetingserial
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -