📄 summarydetail.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)结束
' =====================================================================
Function CommentHeader()
Response.Write TableTitle("领导审批意见", 600, "", "#0040a0")
CommentHeader = _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead width=150> 流程步骤</td>" & _
"<td class=tdHead width=100> 审批人</td>" & _
"<td class=tdHead width=250> 审批意见</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : Formsummarydetail(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号
' 输 出 : 一次会议的详细信息表
' 功能描述: 根据会议序列号，给出相应的会议详细信息
' 调用模块: summarydetail.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Function Formsummarydetail(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
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
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
Formsummarydetail=_
TableTitle("会议纪要信息", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tablelist >" & _
"<form name=""frmsummarydetail"" method=post action=""summarydetail.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_summarydetail.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_summarydetail.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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -