📄 task_a.inc
字号:
<%
'''' 函数列表 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' FormTask
' TransRemindMethod(sRemindMethod)
' TableLink
' CreateTask
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function FormTask()
dim sSubject, sContent, sDoFrom, sDoEnd, sExecutor, sUrgency, sCreateDate, sRemindMethod, sRemindTime
dim sSQL, crs, rs
FormTask = _
"<table cellspacing=0 cellpadding=3 width=""100%"" border=0 align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
"<form method=post name=""formTask"" action=""task_a.asp"">" & vbLF & _
"<tr style=""display:none"">" & vbLF & _
" <td width=70>这一行仅用于控制表格每一栏的宽度</td>" & vbLF & _
" <td width=120> </td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=130> </td>" & vbLF & _
" <td width=70> </td>" & vbLF & _
" <td width=""*""> </td></tr>" & vbLF & _
"<tr height=20 style=""color:white;font-weight:600"">" & vbLF & _
" <td background=""../images/bg/bnbg.gif"" align=center colspan=6>编 辑 任 务 信 息</td></tr>" & vbLF & _
"<tr bgcolor=white height=30>" & vbLF & _
" <td align=center>任务名称</td>" & vbLF & _
" <td colspan=5><input type=""text"" name=""subject"" size=84 maxlength=50></td></tr>" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td align=center>具体内容</td>" & vbLF & _
" <td colspan=5><textarea name=""content"" cols=83 rows=13></textarea></td></tr>" & vbLF & _
"<tr bgcolor=white height=30>" & vbLF & _
" <td align=center>紧急程度</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""urgency"" style=""width:112"">" & vbLF & _
selectOptions(dbLocal, "t_urgency", "urgency_id", "urgency_desc", "", "") & _
" </select></td>" & vbLF & _
" <td align=center>开始时间</td>" & vbLF & _
" <td><input type=""text"" name=""dofrom"" value=""" & FormatDT(date,"yyyy-mm-dd hh:mm") & """ size=19 maxlength=19></td>" & vbLF & _
" <td align=center>完成时间</td>" & vbLF & _
" <td><input type=""text"" name=""doend"" value=""" & FormatDT(date,"yyyy-mm-dd hh:mm") & """ size=19 maxlength=19></td></tr>" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td colspan=3></td>" & vbLF & _
" <td colspan=3 style=""color:green"">提示：开始时间和完成时间的格式形如“" & FormatDT(now,"yyyy-mm-dd hh:mm") & "” </td>" & vbLF & _
"</tr>" & vbLF & _
"<tr bgcolor=white height=30>" & vbLF & _
" <td align=center>相关人员</td>" & vbLF & _
" <td colspan=5>" & vbLF & _
"<input type=""hidden"" name=""executor_serial"" size=59 maxlength=256 readonly>" & vbLF & _
"<input type=""text"" name=""executor_name"" size=82 maxlength=512 readonly> <img border=0 src=""../images/openswin.gif"" onclick=""TransSlctEmp();""></td></tr>" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td align=center width=70>提醒方式</td>" & vbLF & _
" <td colspan=5>" & vbLF & _
"<input type=""text"" name=""remind_method_desp"" size=82 maxlength=256 readonly> <img border=0 src=""../images/openswin.gif"" onclick=""javascript:ShowSetRemind();""></td></tr>" & vbLF & _
"<tr bgcolor=white>" & vbLF & _
" <td colspan=6 align=center>" & _
"<img border=0 src=""../images/button/ok.gif"" name=""btnOK"" style=""cursor:hand"">" & _
" " & _
"<img border=0 src=""../images/button/cancel.gif"" name=""btnCancel"" style=""cursor:hand""></td></tr>" & vbLF & _
"</table>" & vbLF & _
"<input type=""hidden"" name=""task_serial"">" & vbLF & _
"<input type=""hidden"" name=""remind_method"">" & vbLF & _
"<input type=""hidden"" name=""remind_type"">" & vbLF & _
"<input type=""hidden"" name=""remind_time"">" & vbLF & _
"<input type=""hidden"" name=""creator"" value=""" & GetEmpSerial & """>" & vbLF & _
"</form>" & vbLF & _
"<select id=""slctExecutors"" multiple size=10 style=""display:none"">" & selectOptions(dbLocal,"t_employee", "serial", "name", "", "co_id=" & GetCoId & " and isdummy=0 and dismissed=0") & "</select>" & vbLF
end function
Function TableLink()
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
"<tr height=10>" & vbLF & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr height=20>" & _
" <td width=600> " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""tasks.asp"">我安排的任务</a>" & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""task_a.asp"">安排新任务</a>" & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""tasktodo.asp"">待办事宜</a></td>" & vbLF & _
"</tr>" & _
"</table>"
End Function
'' ******************************************************************************************
'' 将字符串转换为可理解的文字
' 提醒方式sRemindMethod的可能值(要么是空，要么是8位数字)如下表
' +-------------------+---------------------------------------------------------------------------------------------
' | sRemindMethod | 说明
' +-------------------+---------------------------------------------------------------------------------------------
' | "" | 从不提醒
' | "0104****" | 前两位“01”表一次性提醒，中间两位“04”表提前几分钟提醒，最后四位表示多少分钟
' | "0108****" | 前两位“01”表一次性提醒，中间两位“08”表提前几小时提醒，最后四位表示多少小时
' | "0116****" | 前两位“01”表一次性提醒，中间两位“16”表提前几天提醒，最后四位表示多少天
' | "0400****" | 前两位“04”表每天提醒一次，中间两位“00”保留，最后四位表示每天的几点几分提醒
' | "08^^****" | 前两位“08”表每周提醒一次，中间两位“^^”表示每周几(1-7)提醒，最后四位表示每周几的几点几分提醒
' | "16^^****" | 前两位“16”表每月提醒一次，中间两位“^^”表示每月几号(1-28)提醒，最后四位表示每月几号的几点几分提醒
' +-------------------+---------------------------------------------------------------------------------------------
'' ******************************************************************************************
function TransRemindMethod(sRemindMethod)
dim sTemp
TransRemindMethod = "从不提醒"
'' 先检查长度，长度应为８位
if len(sRemindMethod) <> 8 then exit function '' 格式不对，从不提醒
dim arrayWeekday : arrayWeekday = Array("零","一","二","三","四","五","六","日")
dim sType, sAhead, sNumber, sHour, sMinute
sType = left(sRemindMethod, 2) '' 前两位代表是一次性提醒，还是每天／周／月提醒一次
sAhead = right(left(sRemindMethod, 4),2) '' 中间两位表示提前量，或每周几／每月几号
if sType = "01" then
sNumber = right(sRemindMethod,4)
elseif sType = "08" or sType = "16" then
sNumber = right(left(sRemindMethod,4),2)
end if
if Not IsNumeric(sNumber) then exit function '' 格式不对，设置成从不提醒
sNumber = CInt(sNumber)
sHour = left(right(sRemindMethod, 4),2)
sMinute = right(sRemindMethod,2)
select case sType
case "01":
sTemp = "一次性提醒"
select case sAhead
case "04":
sTemp = "一次性提醒，任务开始前提前" & sNumber & "分钟提醒"
case "08":
sTemp = "一次性提醒，任务开始前提前" & sNumber & "小时提醒"
case "16":
sTemp = "一次性提醒，任务开始前提前" & sNumber & "天提醒"
case else
exit function '' 格式不对，设置成从不提醒
end select
case "04":
sTemp = "每天提醒一次，每天" & sHour & ":" & sMinute & "提醒"
case "08":
sTemp = "每周提醒一次，每周" & arrayWeekday(sNumber) & sHour & ":" & sMinute & "提醒"
case "16":
sTemp = "每月提醒一次，每月" & sNumber & "号" & sHour & ":" & sMinute & "提醒"
case else
sTemp = "从不提醒"
end select
TransRemindMethod = sTemp
end function
sub CreateTask()
dim sSQL
dim sSubject, sContent, sDoFrom, sDoEnd, sUrgency, sExecutors, sRemindMethod, sRemindTime
dim sCreator, sCreateDate
sSubject = GetParam("Subject")
sContent = GetParam("Content")
sDoFrom = GetParam("DoFrom")
sDoEnd = GetParam("DoEnd")
sUrgency = GetParam("Urgency")
sExecutors = GetParam("executor_serial")
sRemindMethod = GetParam("remind_method")
sCreateDate = now()
sRemindTime = now()
sCreator = GetEmpSerial
if Not IsEmpty(sDoFrom) then sDoFrom = CDate(sDoFrom)
if Not IsEmpty(sDoEnd) then sDoEnd = CDate(sDoEnd)
' 任务主题和任务内容中不能有单引号或双引号
sSubject = Replace(sSubject, """", "”")
sSubject = Replace(sSubject, "'", "‘")
sContent = Replace(sContent, """", "”")
sContent = Replace(sContent, "'", "‘")
sRemindTime = FirstRemindTime(sRemindMethod, sRemindTime)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -