📄 checksummary.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
'************************************************************************************************
' 函数名 : CommentHeader()
' 输 入 :
' 输 出 : 领导审批意见表单的表头
' 功能描述:
' 调用模块: checksummary.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-08-09
' 版 本 :
'************************************************************************************************
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
'************************************************************************************************
' 函数名 : FormMeetingComment(iMeetingSerial)
' 输 入 : iMeetingSerial:会议序列号
' 输 出 : 一次会议纪要的审批意见表单
' 功能描述: 根据会议序列号，（如果经过领导审批过了，则显示出领导审批意见），填写相应的会议审批意见
' 调用模块: checksummary.inc
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-15
' 版 本 :
'************************************************************************************************
Function FormMeetingComment(iMeetingSerial)
dim sTemp, sTempButtons, iStepno, sOpinion, sAccountname
dim crs, rs, sSQL, sComment, iIsconfirmed, iApprove_flow, crs2
sSQL = "select * from T_MeetingPrepare where meeting_status = 7 and meeting_serial = "& iMeetingSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
if not rs.eof then
sComment = crs.GetValue("comment")
iIsconfirmed = crs.GetValue("isconfirmed")
iApprove_flow = crs.GetValue("approve_flow")
sTempButtons=_
" <img border=0 src=""../images/button/approve.gif"" style=""cursor:hand"" name=btnOk>"
if iIsconfirmed = 0 then sTempButtons = sTempButtons & _
" <img border=0 src=""../images/button/goon.gif"" style=""cursor:hand"" name=btnGoon>"
crs.close()
' 如果已经经过领导审批流程，那么首先显示领导审批意见
if iIsconfirmed = 1 then
sSQL="select a.step_no,account_name,opinion from t_flow_opinion a,t_flow_step b,v_user_account c"
sSQL=sSQL & " where a.flow_id=b.flow_id and a.step_no=b.step_no and b.step_op_person=c.account_id"
sSQL=sSQL & " and a.flow_id=" & iApprove_flow &" order by a.step_no"
set crs2 = New CRecordset
Set rs = crs2.open(dbLocal, sSQL)
FormMeetingComment = ""
while not rs.eof
iStepno = crs2.GetValue("step_no")
sOpinion = crs2.GetValue("opinion")
sAccountname = crs2.GetValue("account_name")
FormMeetingComment = FormMeetingComment & "<tr>" & _
"<td class=tdlist width=150 align=left> " & iStepno & " </td>" & _
"<td class=tdlist width=200 align=left> " & ToHTML(sAccountname) & " </td>" & _
"<td class=tdlist width=250 align=left> " & ToHtml(sOpinion) & " </td>" & _
"</tr>"
rs.movenext
wend
if FormMeetingComment = "" then
FormMeetingComment = CommentHeader & "<tr><td colspan=3 class=tdlist style=""color:gray""> （哎呀，一条记录也没有找到！）</td></tr>"
else
FormMeetingComment = CommentHeader & FormMeetingComment
end if
crs2.close()
end if
else
response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议纪要已经处理过了！')</script>"
response.write "<script language = vbscript>window.navigate(""list_checksummary.asp"")</script>"
end if
FormMeetingComment = FormMeetingComment & _
TableTitle("审批定稿意见", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tablelist>" & _
"<form name=""frmchecksummary"" method=post action=""checksummary.asp"">" & _
"<tr height=30>" & _
" <td width=600 align=center colspan=4><textarea class=""FlatCtrl"" name=""comment"" rows=10 cols=96></textarea></td>"&_
"</tr>" & _
"<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:会议序列号
' 输 出 : 一次会议的详细信息表
' 功能描述: 根据会议序列号，给出相应的会议详细信息
' 调用模块: checksummary.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
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
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_checksummary.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")
sComment= GetParam("comment")
iMeetingserial = GetParam("meetingserial")
rt = GetParam("rt")
rm = GetParam("rm")
'response.write "iMeetingSerial="&iMeetingSerial
'response.end
sSQL = "SELECT * FROM T_MeetingPrepare where meeting_serial = "& iMeetingserial & "and meeting_status = 7 "
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 "approve"'审核定稿
sSQL = "update t_meetingprepare set meeting_status = 8, comment = "&Tosql(sComment,"text") &" 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,"会议纪要审批结束，意见如下："&_
sComment&"<br>请您根据审批意见分发会议纪要！",iExecuter,iProposer)
case "goon"'提交审批
' call CommonSendMsg(MSG_MEETING,"",sMeetingname,"您的会议纪要已经提交给领导审批，请等候审批结果！",iExecuter,iProposer)
end select
if sFormaction = "goon" then
response.write "<script language=javascript >window.alert('会议正在领导审批流程中！')</script>"
response.write "<script language=vbscript>window.navigate(""../flowmgr/meetingsubmit.asp?mtype=1&meetingserial="&iMeetingserial&""")</script>"
end if
else
'不存在该会议，给出出错信息
response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议纪要已经处理过了！')</script>"
response.write "<script language = vbscript>window.navigate(""list_checksummary.asp"")</script>"
end if
response.write "<script language=vbscript>window.navigate(""list_checksummary.asp"")</script>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -