📄 msg_l.inc
字号:
<%
Function TableSearch()
'' 任务分类，0为所有任务，1为普通任务，2为会议相关的任务，3为审批相关的任务
'' 任务完成状况，0全部，1所有已完成任务，2所有未完成任务，3所有正常的未完成任务，4所有过时的未完成任务
'' 开始日期的日历，DrawCal函数定义在../common/commonpage.inc
'' 结束日期的日历
TableSearch = _
TableTitle("设 置 消 息 查 询 条 件", "100%", "", "") & vbLF & _
"<table cellspacing=0 cellpadding=3 width=""100%"" align=center border=0 style=""table-layout:fixed"">" & vbLF & _
"<form name=""frmSearch"" method=post action=""" & sFileName & """>" & vbLF & _
"<input type=""hidden"" name=""freepage"" value=""" & pFreePage & """>" & vbLF & _
"<tr bgcolor=white height=32>" & vbLF & _
" <td width=180>" & DrawCal("开始日期", pDay1, "day1", "dateimg1") & " </td>" & _
" <td width=200>" & DrawCal("结束日期", pDay2, "day2", "dateimg2") & "</td>" & _
" <td width=""*""></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td>文 件 夹：<select name=""folder"" style=""width:86;color:black"">" & _
FolderSelectOptions() & _
" </select></td>" & vbLF & _
" <td>包含文字：<input type=""text"" name=""keyword"" value=""" & pKeyword & """ size=20 maxlength=20></td>" & vbLF & _
" <td><span id=btnSearch style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询"" onclick=""frmSearch.submit();""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span> </td>" & vbLF & _
"</tr>" & vbLF & _
"<tr height=10 bgcolor=white><td colspan=3></td></tr>" & vbLF & _
"</form>" & vbLF & _
"</table>" & vbLF & vbLF & _
"<script language=""javascript"">frmSearch.folder.value=""" & pFolder & """;</script>" & vbLF & vbLF
End Function
Function TableHeader()
dim sTemp , sField, sFieldCaption
select case pFolder
case IN_BOX, INBOX_BULLETIN, INBOX_MEETING, INBOX_APPROVE, INBOX_TASK
sField = "sender" '' 收件箱等显示发件人
sFieldCaption = "发件人"
case OUT_BOX, DRAFT_BOX
sField = "receiver" '' 发件箱/草稿箱等显示收件人
sFieldCaption = "收件人"
case TRASH_BOX
sField = "sender" '' 回收站显示发件人
sFieldCaption = "发件人"
case else
sField = "sender"
sFieldCaption = "发件人"
end select
TableHeader = _
"<table cellspacing=1 cellpadding=0 width=""100%"" align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td class=tdHead align=center width=50>" & TableHeaderField(sFileName, "status", "状态", sFormParams, iSort, iSorted) & "</td>" & vbLF & _
" <td class=tdHead align=center width=40>选择</td>" & _
" <td class=tdHead align=center width=""*""> <img src=""../images/bg/ar-y.gif"" width=8 height=8> " & TableHeaderField(sFileName, "subject", "主题", sFormParams, iSort, iSorted) & "</td>" & vbLF & _
" <td class=tdHead align=center width=70> " & TableHeaderField(sFileName, sField, sFieldCaption, sFormParams, iSort, iSorted) & "</td>" & vbLF & _
" <td class=tdHead align=center width=108>" & TableHeaderField(sFileName, "send_time", "日期", sFormParams, iSort, iSorted) & "</td>" & vbLF & _
"</tr>" & vbLF
End Function
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
dim sTemp : sTemp = "" ' 临时字符串变量
dim j ' 临时循环变量
''******************************************************************************************
'' 根据收件箱/发件箱等的不同，显示不同的信息
'' 根据收件箱/发件箱等的不同，显示不同的信息，链接到相应的文件
'' 收件箱 ：显示详细信息msg_p.asp?msg_serial=sSerial
'' 已发送消息 ：显示详细信息msg_p.asp?msg_serial=sSerial
'' 草稿箱 ：显示撰写新消息/回复消息页面send.asp?msg_serial=sSerial
'' 回收站 ：1001，1101，1102，1103 收件箱 -> 回收站，显示msg_p.asp?msg_serial=sSerial
'' ：1002，发件箱 -> 回收站，显示msg_p.asp?msg_serial=sSerial
'' ：1003，草稿箱 -> 回收站，显示send.asp?msg_serial=sSerial
dim sSendRcv, sSendRcvField
dim sHref
' select case pFolder
' case IN_BOX
' sSendRcvField = "sender" '' 收件箱显示发件人
' sHref = "msg_p.asp" '' 显示详细信息
' case TRASH_BOX
' sSendRcvField = "sender" '' 回收站显示发件人
' sHref = "" '' 根据详细情况而定
' case OUT_BOX
' sSendRcvField = "receiver" '' 发件箱显示收件人
' sHref = "msg_p.asp" '' 显示详细信息
' case DRAFT_BOX
' sSendRcvField = "receiver" '' 草稿箱显示收件人
' sHref = "send.asp" '' 发送消息
' case else
' sSendRcvField = "sender" '' 消息查找结果显示发件人
' end select
select case pFolder
case IN_BOX, INBOX_BULLETIN, INBOX_MEETING, INBOX_APPROVE, INBOX_TASK, TRASH_MSG_FROM_INBOX, TRASH_MSG_FROM_BULLETIN, TRASH_MSG_FROM_MEETING,TRASH_MSG_FROM_APPROVE ,TRASH_MSG_FROM_TASK
sSendRcvField = "sender" '' 收件箱等显示发件人，回收站（收件箱／公告箱／会议相关／审批相关／任务相关 -> 回收站）
'sHref = "msg_p.asp"
case OUT_BOX, TRASH_MSG_FROM_OUTBOX
sSendRcvField = "receiver" '' 发件箱显示收件人，回收站（发件箱 -> 回收站）
'sHref = "msg_p.asp"
case DRAFT_BOX, TRASH_MSG_FROM_DRAFTBOX
sSendRcvField = "receiver" '' 草稿箱显示收件人，回收站（草稿箱 -> 回收站）
'sHref = "send.asp"
case else
sSendRcvField = "sender" '' 消息查找结果显示发件人
end select
''******************************************************************************************
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
'------------------------------------
' 获取数据库连接
'------------------------------------
dim crs : set crs = New CRecordset
dim rs : set rs = crs.open(dbLocal,sSQL)
dim sSerial, sMsgId, sStatus, sSendTime, sSubject, sFolder, sSender, sReceiver
dim rowCount : rowCount = 0
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.Move (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
rowCount = rowCount + 1
sSerial = crs.GetValue("serial")
sMsgId = crs.GetValue("msg_id")
sStatus = crs.GetValue("status")
sSender = crs.GetValue("sender")
sSendTime = crs.GetValue("send_time")
sReceiver = crs.GetValue("receiver")
sSubject = crs.GetValue("subject")
sFolder = crs.GetValue("folder")
sSendRcv = crs.GetValue(sSendRcvField)
sSendRcv = TransEmpSerial(dbLocal, sSendRcv)
if sSendRcv = "" then sSendRcv = "<span style=""color:silver"">系统自动</span>"
sSender = TransEmpSerial(dbLocal, sSender)
if sSender = "" then sSender = "系统自动"
sReceiver = TransEmpSerial(dbLocal, sReceiver)
sSendTime = FormatDT(sSendTime, "yyyy-mm-dd hh:mm")
if CStr(sStatus) = "0" or CStr(sStatus) = "1" then
sStatus = "<img border=0 src=""images/newmail.gif"">"
else
sStatus = "<img border=0 src=""images/mail.gif"">"
end if
'' 根据位置链接到不同的文件
select case CStr(sFolder)
case IN_BOX, INBOX_BULLETIN, INBOX_MEETING, INBOX_APPROVE, INBOX_TASK
sHref = "msg_p.asp" '' 收件箱（包括收件箱的子目录）
case TRASH_MSG_FROM_INBOX, TRASH_MSG_FROM_BULLETIN, TRASH_MSG_FROM_MEETING, TRASH_MSG_FROM_APPROVE, TRASH_MSG_FROM_TASK
sHref = "msg_p.asp" '' 回收站中的接收消息
case OUT_BOX, TRASH_MSG_FROM_OUTBOX
sHref = "msg_p.asp" '' 发件箱和回收站中的已发送消息
case DRAFT_BOX, TRASH_MSG_FROM_DRAFTBOX
sHref = "send.asp" '' 草稿箱和回收站中的草稿
case TRASH_BOX
sHref = "msg_p.asp" '' 回收站
end select
sTemp = sTemp & _
"<tr bgcolor=white height=20>" & vbLF & _
"<td align=center align=left> " & sStatus & " </td>" & vbLF & _
"<td align=center align=left><input type=""checkbox"" id=choose_" & rowCount & " name=""choose"" value=""" & rowCount & """ style=""border-width:0""></td>" & vbLF & _
"<input type=""hidden"" name=""msg_serial_" & rowCount & """ value=""" & sSerial & """>" & vbLF & _
"<input type=""hidden"" name=""folder_" & rowCount & """ value=""" & sFolder & """>" & vbLF & _
"<td align=left title=""［" & FolderName(sFolder) & "］" & vbLF & _
"发件人：" & sSender & vbLF & _
"收件人：" & sReceiver & vbLF & _
"主 题：" & ToHTML(sSubject) & """" & _
" style=""cursor:hand;color:blue;""" & _
" onclick=""window.open('" & sHref & "?msg_serial=" & sSerial & "', '', 'width=500,height=400,scrollbars=yes,resizable=yes');return;window.parent.frames('f_right').location.href='" & sHref & "?msg_serial=" & sSerial & "';"" nowrap>" & _
" <img src=""../images/bg/ar-g.gif"" width=8 height=8>" & _
" " & ToHTML(sSubject) & "</td>" & vbLF
sTemp = sTemp & _
"<td align=left nowrap> " & sSendRcv & "</td>" & vbLF & _
"<td align=center title=""" & sSendTime & """ align=left> " & sSendTime & " </td>" & vbLF & _
"</tr>" & vbLF
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
' 填补空白行
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
' 首页、前页、后页、尾页等分页信息
sTemp = sTemp & "<tr bgcolor=white height=20><td colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>" & vbLF
TableRecords = _
"<form method=post name=""frmDeleteMsg"" action=""" & sFileName & """>" & vbLF & _
"<input type=""hidden"" name=""freepage"" value=""" & pFreePage & """>" & vbLF & _
"<input type=""hidden"" name=""folder"" value=""" & pFolder & """>" & vbLF & _
"<input type=""hidden"" name=""FormAction"" value=""delete"">" & vbLF & _
sTemp & _
"</form>" & vbLF
End Function
Function TableTailer
TableTailer = "</table>" & vbLF
End Function
Function ActionLink
if CStr(pFolder) <> TRASH_BOX then
ActionLink = _
"<img height=2>" & _
"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""#0099cc"" style=""color:white"">" & vbLF & _
"<tr height=20>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""CheckAllRows();"">全部选中</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnDelete_OnClick();"">删除</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnDeleteAll_OnClick();"">全部删除</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnPerDelete_OnClick();"">永久删除</td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
else
ActionLink = _
"<img height=2>" & _
"<table cellspacing=0 cellpadding=1 width=""100%"" align=center bgcolor=""#0099cc"" style=""color:white"">" & vbLF & _
"<tr height=20>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""CheckAllRows();"">全部选中</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnRestore_OnClick();"">恢复</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnRestoreAll_OnClick();"">全部恢复</td>" & vbLF & _
" <td align=center" & _
" style=""cursor:hand"" onmouseover=""mover();"" onmouseout=""mout();"" onclick=""btnPerDelete_OnClick();"">永久删除</td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
end if
End Function
sub DeleteMsg(choose)
dim arrayMsg, sMsgSerial, j, sFolder
dim sSQL
arrayMsg = split(choose, ",")
for j = 0 to UBound(arrayMsg) step 1
sMsgSerial = GetParam("msg_serial_" & Trim(arrayMsg(j)))
sFolder = GetParam("folder_" & Trim(arrayMsg(j)))
'' 如果folder已经大于１０００，即已经是回收站中的消息，则删除就等于永久删除
if CInt(sFolder) > 1000 then
sSQL = "delete t_msg where serial = " & sMsgSerial & " and emp_serial = " & GetEmpSerial
else
sSQL = "update t_msg set folder = folder + 1000 where serial = " & sMsgSerial & " and emp_serial = " & GetEmpSerial
end if
''response.Write sSQL & "<br>"
call ExecuteSQL(dbLocal, sSQL)
next
end sub
sub PerDeleteMsg(choose)
dim arrayMsg, sMsgSerial, j
dim sSQL
arrayMsg = split(choose, ",")
for j = 0 to UBound(arrayMsg) step 1
sMsgSerial = GetParam("msg_serial_" & Trim(arrayMsg(j)))
sSQL = "delete from t_msg where serial = " & sMsgSerial & " and emp_serial = " & GetEmpSerial
call ExecuteSQL(dbLocal, sSQL)
next
end sub
sub RestoreMsg(choose)
dim arrayMsg, sMsgSerial, j
dim sSQL
arrayMsg = split(choose, ",")
for j = 0 to UBound(arrayMsg) step 1
sMsgSerial = GetParam("msg_serial_" & Trim(arrayMsg(j)))
sSQL = "update t_msg set folder = folder - 1000 where serial = " & sMsgSerial & " and emp_serial = " & GetEmpSerial
call ExecuteSQL(dbLocal, sSQL)
next
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -