<!--#include file="office_open.asp"-->
<%
function displaysmallworkrec(myday,username)
'在日歷表中顯示myday的日期,如果是當前日期顯示成紅色
if cdate(myday)=cdate(date) then
   displaysmallworkrec="<a href='displayworkrec.asp?username=" & username &  "&recdate=" & myday & "'><font color=red><b>" & Day(myday) & "號</b></font></a>"
else
   displaysmallworkrec="<a href='displayworkrec.asp?username=" & username & "&recdate=" & myday & "'>" & Day(myday) & "號</a>"
end if
'打開數據庫，讀出日期為myday，用戶名為username的記錄
set conn=opendb
set rs=server.createobject("adodb.recordset")
  sql="select * from workrep where username=" & sqlstr(username) & " and recdate='"& myday &"'"
rs.open sql,conn,1
'讀出紀錄
if not rs.eof and not rs.bof then
   displaysmallworkrec=displaysmallworkrec & "<hr size=1 color=red width='80%'><table>"
   while not rs.eof and not rs.bof
        '判斷完成程度，并顯示不同的顏色
        Select case  rs("finished")        
             case -1   titlecolorfront="<font color='red'>"
             case 0      titlecolorfront="<font color='blue'>"
             case 1      titlecolorfront="<font color=''>"
        End select
        titlecolorback="</font>"
		'分行顯示同一天的每一個工作計劃
        displaysmallworkrec=displaysmallworkrec & "<tr><td><font color=red>△</font><a href=#  title='計劃主題：" &rs("title")& VbCrLf &"簡要說明："&rs("remark")& VbCrLf &"執行時間："&rs("recdate")&"'>"& titlecolorfront & rs("title") & titlecolorback & "</a></td></tr>"
   rs.movenext
   wend
   displaysmallworkrec=displaysmallworkrec & "</table>"
end if
set rs=nothing
closedb(conn)   '關閉數據庫
end function
%>