<!--#include file="../aspfunction/DBParameter.ASP"-->
<%
name_c=request.cookies("name_c")
if name_c="" then response.redirect "../LOGON.ASP"
'-------------------------------------------------
'建立对象
Set BaseOB=Server.Createobject("JFOA_Base.Base")
Set Conn=BaseOB.ConnDB(DBServerName,DBName,DBUid,DBPassword)
Set InterfaceOB=Server.CreateObject("JFOA_Interface.Interface")
Set ShortInfOB=Server.Createobject("JFOA_ShortInf.ShortInf")
Set DataOB=Server.Createobject("JFOA_Web.DataDisplayTitle")
'--------------------------------------------------
'显示web头
response.write InterfaceOB.webtitle(Conn, 0, 1, 0, "", 0, 5)
'---------------------------------------------------
'显示工作界面
HaveWorkZoom=InterfaceOB.WorkZoomDisplayInApply(Conn, 0, HeadStr, MidStr, EndStr)
response.write HeadStr
'-----------------------------------
'--如果是清空-----------------------
'-----------------------------------
if request("submit")="清空" then
 call ShortInfOB.DataNoticeDel(Conn, Name_C)
end if
%><table>
<tr>
<td><b>历史提醒记录</b></td>
<form method=post name=formreturn action="Notice_His.asp">
<td><input type="submit" name="submit" value="清空" onclick="return window.confirm('你确定要清空你的历史提醒记录吗？');"></td>
</form>
</tr>
</table><%
'---------------------------------------------------
response.write Midstr
'---------------------------------------------------
%>
<center>
<br>
<table border="1" cellpadding="0" cellspacing="0" width="97%">
<tr bgcolor="#aaaaaa" height=30>
<td align=center><b>提醒</b></td>
<td align=center><b>时间</b></td>
<td align=center><b>状态</b></td>
</tr>
<%
set rs=ShortInfOB.DataNoticeRs(Conn, Name_C)
while not rs.eof and not rs.bof
 %>
 <tr height=20>
 <td align=center>
 <%
 If Rs("Sort") = 0 Then  '工作计划提醒
  HrefStr = "<a href=""../WorkPlan/workplan_person_display_day.asp?Name=" & BaseOB.URLEncode(Rs("WorkPlanExecute")) & "&RecDate=" & BaseOB.URLEncode(Rs("WorkPlanDate")) & """"
  HrefStr = HrefStr & " onclick = ""window.open(this.href,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=500,height=400');return false;"" title=""点击可以查看详细工作计划"">"
 ElseIf Rs("Sort") = 1 Then  '资源预约提醒
  HrefStr = "<a href=""../RESOURCE/BOOKING.ASP"""
  HrefStr = HrefStr & " onclick = ""window.open(this.href,'DisplayRESOURCE'+'" & Rs("BookingInfID") & "','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=500,height=400');return false;"" title=""点击可以查看详细信息"">"
 ElseIf Rs("Sort") = 2 Then  '流程提醒
  HrefStr = "<a href=""../WorkFlow/PerDataDisplay.asp?DataEncode=" & BaseOB.URLEncode(BaseOB.DataIDEncode(Rs("TableId"), Rs("DataID"))) & """"
  HrefStr = HrefStr & " onclick = ""window.open(this.href,'DisplayData'+'" & Rs("DataID") & "','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=500,height=400');return false;"" title=""点击可以查看详细信息"">"
 End If
 response.write HrefStr & Rs("NoticeTitle") & "</a>"
 %>
 </td>
 <td align=center><%=rs("RecTime")%></td>
 <td align=center>
 <%
 if not rs("Status") then
  response.write "<font color=red>未阅读</font>"
 else
  if Rs("Sort")=2 then
   StatusStr=DataOB.DisplayStatus(Conn, Rs("TableID"), Rs("DataID"), Rs("Recver"))
   if StatusStr<>"" then
    response.write "<font color=red>" & StatusStr & "</font>"
   end if
  end if
  response.write "&nbsp;"
 end if
 %>
 </td>
 </tr>
 <%
 rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<br>
</center>
<%
'----------------------------------------------------
response.write EndStr
'---------------------------------------------------
'显示web尾
response.write InterfaceOB.webend()
'--------------------------------------------------
Set BaseOB=Nothing
Set Conn=Nothing
Set InterfaceOB=Nothing
Set ShortInfOB=Nothing
Set DataOB=Nothing
%>