📄 scheduleeveryday.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<% ColumnName="":Tablename="HX_SchEduleMain":Tablename1="HX_SchEduleAdd"
'程序编写及设计:徐勇
'QQ号码: 563097256(网络侠客)
'网址：http://www.wsoas.com
'E_mail(MSN):netcst@126.com
'电话:13856921303 0551-5168961
'以上信息不影响程序运行!
'在使用过程中请保留以上信息,以便出现问题时及时与我取得联系
'注意：免费版程序不得用于商业用途，否则后果自负！！！！
yy=cint(request("yy")):mm=cint(request("mm")):dd=cint(request("dd")):today=dateserial(yy,mm,dd)
Orderby=" where WS_SchEduleMainman="&loginuid&" and (year(WS_SchEduleMainFirstTime)<"&year(today)&" or (year(WS_SchEduleMainFirstTime)="&year(today)&" and month(WS_SchEduleMainFirstTime)<"&month(today)&") or (year(WS_SchEduleMainFirstTime)="&year(today)&" and month(WS_SchEduleMainFirstTime)="&month(today)&" and day(WS_SchEduleMainFirstTime)<="&day(today)&")) and (year(WS_SchEduleMainLastTime)>"&year(today)&" or (year(WS_SchEduleMainLastTime)="&year(today)&" and month(WS_SchEduleMainLastTime)>"&month(today)&") or (year(WS_SchEduleMainLastTime)="&year(today)&" and month(WS_SchEduleMainLastTime)="&month(today)&" and day(WS_SchEduleMainLastTime)>="&day(today)&")) order by WS_SchEduleMainFirstTime desc"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>查看日程</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Css.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='5' leftmargin='0' bottommargin='5'><table width='500' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff background='../hximages/titlelinebg.gif'><table width='500' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>按日查看</font></td></tr></table><table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1><tr><td height='20' colspan='3' align='right' bgcolor='3965A8'><a style='cursor:hand;' href='../HXPersonalOffice/SchEduleEverymonth.asp' target='right'><img src='../hximages/ScheduleMonth.gif' border=0></a> <a style='cursor:hand;' href='../HXPersonalOffice/SchEduleEveryweek.asp' target='right'><img src='../hximages/ScheduleWeek.gif' border=0></a> <a style='cursor:hand;' href='../HXPersonalOffice/SchEduleSearch.asp' target='right'><img src='../hximages/ScheduleDate.gif' border=0></a> <a style='cursor:hand;' onclick='window.close();'><img src='../hximages/ScheduleClose.gif' boder=0></a> </td></tr><tr><td height='20' colspan='3' align='center'><a href='SchEduleEveryday.asp?yy="&request("yy")&"&mm="&request("mm")&"&dd="&request("dd")-1&"'><font color='#00319C'>上一天</font></a> <font color='#FF0000'>"&year(today)&"年"&month(today)&"月"&day(today)&"日[日程安排]</font><a href='SchEduleEveryday.asp?yy="&request("yy")&"&mm="&request("mm")&"&dd="&request("dd")+1&"'><font color='#00319C'>下一天</font></a></td></tr><tr bgcolor='#A1BBE0' class='td4'><td width='25%' height='20'><div align='center'><font color='#FFFFFF'>开始时间</font></div></td><td width='22%' height='20'><div align='center'><font color='#FFFFFF'>结束时间</font></div></td><td width='53%' height='20'><div align='center'><font color='#FFFFFF'>日程主题</font></div></td></tr>"
if rs.recordcount>0 then
do while not rs.EOF
response.Write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='23'>"&formatdatetime(rs("WS_SchEduleMainFirstTime"),2)&"</td><td width='22%' height='23'>"&formatdatetime(rs("WS_SchEduleMainLastTime"),2)&"</td><td width='53%' height='23'><div align='left'><font title='内容预览："&left(rs("WS_SchEduleMainMemo"),100)&"' > <a href='../HXPersonalOffice/SchEduleModify.asp?WS_SMID="&rs("WS_SMID")&"' target='right'><font color='#00319C'>"&left(rs("WS_SchEduleMainTitle"),30)&"</font></a></font>"
Orderby=" where WS_SMID="&rs("WS_SMID")
set prs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if prs.recordcount>0 then response.Write "<img src='../HXimages/add.gif' width='9' height='9' alt='有追加内容'>"
response.write "<font color=red>("&rs("WS_SchEduleMainSituation")&")</font></div></td></tr>"
rs.movenext
loop
end if
if rs.recordcount<13 then
j=13-rs.recordcount
for i=1 to j
response.write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> <td height='23'><font color='#FFFFFF'> </font></td><td width='22%' height='23'> <font color='#FFFFFF'> </font></td><td width='53%' height='23'> <font color='#FFFFFF'> </font></td></tr>"
next
end if
call WS_S.HX_RSClose(prs):call WS_S.HX_RSClose(rs)
response.write "</table></td></tr></table>"%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -