?? displaysmallworkrec.asp
字號:
<!--#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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -