<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->
<html>
<head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<body>
<% years=Request( "years" ) %>

<table width="100%" height="495" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="27">
	<div class="header">
	<div class="nav">
        <ul>
            <li class="on">学校行事历</li>
            <li><a href="XueQiList.asp?years=<%=years%>" target="_self">行事历列表</a></li>
            <li><a href="ZhiRiList.asp?years=<%=years%>" target="_self">值日值班安排</a></li>
        </ul>
    </div>	
	</td>
  </tr>


  <tr>
   <td height="470" valign="top"   class="NemuMainBox">
	 <br>
	 
	  	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		
		<form id="form1" name="form1" method="post" action="xiaoli.asp">
		<table width="95%" height="30" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtablehui">
  <tr style="background-color:#D6E4FF"  class="TableHeader">
    <td height="30" colspan="3" align="center" valign="middle" nowrap="nowrap" class="NemuNot">
		学年学期
		  <select name="years"  onchange="form1.submit()">
			<option selected="selected"> <%=years%> </option>
			<% Set RSsel = Conn.Execute("select vname,shuoming from  varset where name='xueqi' order by vid")
			   While NOT RSsel.EOF %>
			<option><%=RSsel( "vname" )%></option>
			 <% RSsel.MoveNext
			    Wend
		  	    RSsel.Close%>
		</select>		
		</td>  </tr></table>
	   
		<br>
		 
	   <script>	 
		  
	   <!--打开校历管理-->
		function open_xiaolimanage(NOTIFY_ID,FORMAT)
		{
		 URL="manage.asp?dtondate="+NOTIFY_ID;
		  myleft=150;
		 mytop=150
		 mywidth=(screen.availWidth-300);
		 myheight=(screen.availHeight-300);
		 if(FORMAT=="1")
		 {
			myleft=0;
			mytop=0 
			mywidth=screen.availWidth-10;
			myheight=screen.availHeight-40;
		 }
		 window.open(URL,'_blank',"height="+myheight+",width="+mywidth+",status=1,toolbar=no,menubar=no,location=no,scrollbars=yes,top="+mytop+",left="+myleft+",resizable=yes");
		}
				   
				   
		function my_note(CAL_ID)
			{
			  window.open("note.asp?ciD="+CAL_ID,'_blank',  "height=250,width=250,status=0,toolbar=no,menubar=no,location=no,left=300,top=200");
			 }
	</script>
				
		<table width="95%" height="129" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">   
	  <tr style="background-color:#D6E4FF"  class="TableHeader">
	  <td width="6%" class="STYLE1"><div align="center">月份</div></td>
	  <td  width="6%"  height="30" class="STYLE1"><div align="center">周次</div></td>
	  <td width="6%" class="STYLE1"><div align="center">星期日</div></td>
	  <td width="12%" class="STYLE1"><div align="center">星期一</div></td>
	  <td width="12%" class="STYLE1"><div align="center">星期二</div></td>
	  <td width="12%" class="STYLE1"><div align="center">星期三</div></td>
	  <td width="12%" class="STYLE1"><div align="center">星期四</div></td>
	  <td width="12%" class="STYLE1"><div align="center">星期五</div></td>
	  <td width="6%" class="STYLE1"><div align="center">星期六</div></td>
	  </tr>
	<% 
       set RSdate = Conn.Execute("select * from  varset where name='xueqi'   and vname='"&years& "'")
	   begindate=rsdate("shuoming") 
	   RSdate.Close
	   curdate=begindate
	   For iWeek = 0 To 23 %>
	  <tr  onmouseout="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EFF8FF'">
	  <td class="STYLE1" ><div align="center" class="STYLETITLE2"><%=month(curdate)%> </div></td>
	  <td height="38" class="STYLE1"><div align="center" class="STYLE1">
	  <p class="STYLE1">
	  <%if iweek=0 then%>
		  准备周
	  <%else%>
		  第<%=iweek%>周
	  <%end if%>
	   </p>
	   </div>
	   </td>
	  <%for i=1 to 7 %>		
	  <%if i=1 or i=7 then %>
	  <td  width="6%"  align="center" valign="top"     bgcolor="#FF99CC" class="STYLE1"><p class="STYLE1">
	  <%else  %>
	  </p></td>
	  <td  width="12%"  align="center" valign="top" class="STYLE1"   >
	  <%end if %>
	  <p class="STYLETITLE2"><a href=manage.asp?dtondate=<%=curdate%>&years=<%=years%>><%=day(curdate)%></a></P>
	  <!--显示内容-->
	   <% 
	     Set    MyOAASPObj = Server.CreateObject("YFSchoolOApro.YFSchoolDll")
                MyOAASPObj.XiaoXli(curdate)
		    set MyOAASPObj=nothing   
		 %>
		</td>
		<% curdate=DateAdd("d", 1, curdate)
	next%>
	    </tr>
		   
			<%next%>
		 </table>
		</form>
		<p align="center">
		  <input name="button" type="button" class="topanniu" onClick="location='../main.asp';"  value="返回首页" />
		</p>
		<br>
		
		
		
		
		</td>
  </tr>
</table>
</body>
</html>
