<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%   ColumnName="":Tablename="HX_SchEduleMain":Tablename1="HX_SchEduleAdd"
	 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='#613c25'><tr><td colspan='2' bgcolor=FFFBE8 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=FFFBE8><tr><td height='20' colspan='3' align='right' bgcolor='BF9B73'><a style='cursor:hand;' href='../HXPersonalOffice/SchEduleEverymonth.asp' target='right'><img src='../hximages/ScheduleMonth.gif' border=0></a>&nbsp;<a style='cursor:hand;' href='../HXPersonalOffice/SchEduleEveryweek.asp' target='right'><img src='../hximages/ScheduleWeek.gif' border=0></a>&nbsp;<a style='cursor:hand;' href='../HXPersonalOffice/SchEduleSearch.asp' target='right'><img src='../hximages/ScheduleDate.gif' border=0></a>&nbsp;<a style='cursor:hand;' onclick='window.close();'><img src='../hximages/ScheduleClose.gif' boder=0></a>&nbsp;</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='#431E07'>上一天</font></a>&nbsp;<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='#431E07'>下一天</font></a></td></tr><tr bgcolor='#BF9B73' class='td4'><td width='25%' height='20'><div align='center'><font color='#FFFBE8'>开始时间</font></div></td><td width='22%' height='20'><div align='center'><font color='#FFFBE8'>结束时间</font></div></td><td width='53%' height='20'><div align='center'><font color='#FFFBE8'>日程主题</font></div></td></tr>"
  if rs.recordcount>0 then
	  do while not rs.EOF
	    response.Write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><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)&"' >&nbsp;<a href='../HXPersonalOffice/SchEduleModify.asp?WS_SMID="&rs("WS_SMID")&"' target='right'><font color='#431E07'>"&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='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'> <td height='23'><font color='#FFFBE8'>&nbsp;</font></td><td width='22%' height='23'> <font color='#FFFBE8'>&nbsp;</font></td><td width='53%' height='23'> <font color='#FFFBE8'>&nbsp; </font></td></tr>"
       next
      end if
	  call WS_S.HX_RSClose(prs):call WS_S.HX_RSClose(rs)
	  response.write "</table></td></tr></table>"%>	 