<%if request("yy").count=0 then	yy=year(date):mm=month(date) else yy=cint(request("yy")):mm=cint(request("mm"))
  tdate=DateSerial(yy,mm,1)
  response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><LINK href='../HXinclude/HX_Style.css' rel=stylesheet type=text/css><script src='../HXinclude/HX_Function.js'></script></head><body bgcolor='#FFFBE8' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' scroll='no'><form method='post' action='HX_yeardate.asp' name='form1'><table width='160' cellspacing='0' cellpadding='3' bordercolorlight='#FFFBE8' bordercolordark='#FFFBE8' class='unnamed1' bgcolor='#FFFBE8' height='160'><tr class='Titletd'><td width='80' height='15'><font color='#FFFBE8'><select name='yy' onChange='form1.submit()' class='input4'>"
  for i=year(date())-5 to year(date())+5
    response.write "<option"
      if i=yy then response.write " selected"
    response.Write ">"&i&"</option>"
  next
    response.Write "</select>年</font></td><td width='60' height='15'><div align='right'><font color='#FFFBE8'><select name='mm' onChange='form1.submit()' class='input4'>"
  for i=1 to 12
    response.Write "<option"
	  if i=mm then response.Write" selected"
	response.Write ">"&i&"</option>"
  next
    response.Write "</select>月</font></div></td></tr><tr valign='top'><td height='140' colspan='2'><table width='100%' border='0' cellspacing='0' cellpadding='0' class='unnamed1'><tr class='bgcolor2'><td><div align='center'><font color='#FFFBE8'>日</font></div></td><td><div align='center'><font color='#FFFBE8'>一</font></div></td><td><div align='center'><font color='#FFFBE8'>二</font></div></td><td><div align='center'><font color='#FFFBE8'>三</font></div></td><td><div align='center'><font color='#FFFBE8'>四</font></div></td><td><div align='center'><font color='#FFFBE8'>五</font></div></td><td><div align='center'><font color='#FFFBE8'>六</font></div></td></tr>"
   do while month(tdate)=mm 
      response.Write "<tr>"
      for i=1 to 7
	    response.Write "<td height='20'"
		if month(tdate)=mm and DatePart("w",tdate)=i then response.Write " style='cursor:hand' onMouseOver=""style.backgroundColor='#BF9B73';style.color='#F3F3F3'"" onMouseOut=""style.backgroundColor='#FFFBE8';style.color='#000000'""  onClick=""openwin(536,430,'SchEduleEveryday.asp?yy="&yy&"&mm="&mm&"&dd="&day(tdate)&"')"""
		response.Write " bgcolor='#FFFBE8'><div align='center'>"
		if month(tdate)=mm and DatePart("w",tdate)=i then
		  if day(tdate)=day(now()) then response.Write "<font color=red title='点击可查看当日日程'>"&day(tdate)&"</font>" else response.Write "<font  title='点击可查看当日日程'>"&day(tdate)&"</font>"  end if		  
		end if
		response.Write "</div></td>"
		if DatePart("w",tdate)=i then tdate=DateAdd("d",1,tdate)
	 next
     response.Write "</tr>"
  loop
  response.Write "</table></td></tr></table></form></body></html>"
%>