showweek.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

		if rsapp("ScheduleDate")=dateadd("d",1,FromDate) and strScheduleTime>"12:00:00" then visit(8)=visit(8)& "<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"
		if rsapp("ScheduleDate")=dateadd("d",2,FromDate) and strScheduleTime>"12:00:00" then visit(9)=visit(9)& "<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"
		if rsapp("ScheduleDate")=dateadd("d",3,FromDate) and strScheduleTime>"12:00:00" then visit(10)=visit(10)&"<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"
		if rsapp("ScheduleDate")=dateadd("d",4,FromDate) and strScheduleTime>"12:00:00" then visit(11)=visit(11)&"<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"
		if rsapp("ScheduleDate")=dateadd("d",5,FromDate) and strScheduleTime>"12:00:00" then visit(12)=visit(12)&"<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"
		if rsapp("ScheduleDate")=dateadd("d",6,FromDate) and strScheduleTime>"12:00:00" then visit(13)=visit(13)&"<a href=""#"" language=javascript onclick=""window.open ('scheduleview.asp?id="&rsapp("id")&"','','scrollbars=yes,left=150,top=100,height=300,width=500,menubar=no,location=no,toolbar=no,resizable=yes','')"">"&rsApp("Schedule")&"</a><br>"		
	end if
	rsapp.movenext
	wend
end if		
%>
<br>
<table cellspacing=0 cellpadding=0 width="95%" border=0 align=center>
  <tr bgcolor="#ffffff"> 
    <td align=center></td>
  </tr>
 </table>
 <table width="95%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr bgcolor="#C6C3C6"> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table cellspacing=0 cellpadding=0 width="100%" border=0>
              <tbody> 
              <tr bgcolor="#4A699C">
                  <td height="18" align=center valign="middle">
                    <A href="ShowWeek.asp?Date=<%=Lastweekday%>" ><IMG border=0 height=11 src="images/left4.gif" width=11></A> 
      <font color=white><%=Nowtimes%>--<%=Nowtimee%></font> <A href="ShowWeek.asp?Date=<%=Nextweekday%>" ><IMG border=0 height=11 src="images/right4.gif" width=11></A></td>
    <td align=right><A href=""></A></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<TABLE border=0 cellpadding=0 cellspacing=1 width=95% bgcolor=#C6C3C6 align=center>
  <TR bgcolor=#F3F3F3> 
    <Td width="11%" rowspan="2" bgcolor="#F3F3F3"></Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">日</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">一</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">二</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">三</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">四</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">五</Td>
    <Td width="12%" align=center bgcolor="#F3F3F3">六</Td>
  </TR>
  <tr bgcolor=#F3F3F3> 
    <td align=center><%=dateadd("d",0,FromDate)%></td>
    <td align=center><%=dateadd("d",1,FromDate)%></td>
    <td align=center><%=dateadd("d",2,FromDate)%></td>
    <td align=center><%=dateadd("d",3,FromDate)%></td>
    <td align=center><%=dateadd("d",4,FromDate)%></td>
    <td align=center><%=dateadd("d",5,FromDate)%></td>
    <td align=center><%=dateadd("d",6,FromDate)%></td>
  </tr>
  <tr bgcolor=#ffffff> 
    <td width="11%" height="100" align=center bgcolor="F3F3F3">上午</td>
    <td align=center> 
      <%Response.Write visit(0)%>
    </td>
    <td align=center> 
      <%Response.Write visit(1)%>
    </td>
    <td align=center> 
      <%Response.Write visit(2)%>
    </td>
    <td align=center> 
      <%Response.Write visit(3)%>
    </td>
    <td align=center> 
      <%Response.Write visit(4)%>
    </td>
    <td align=center> 
      <%Response.Write visit(5)%>
    </td>
    <td align=center> 
      <%Response.Write visit(6)%>
    </td>
  </tr>
  <tr bgcolor=#ffffff> 
    <td width="11%" height="100" align=center bgcolor="F3F3F3">下午</td>
    <td align=center> 
      <%Response.Write visit(7)%>
    </td>
    <td align=center> 
      <%Response.Write visit(8)%>
    </td>
    <td align=center> 
      <%Response.Write visit(9)%>
    </td>
    <td align=center> 
      <%Response.Write visit(10)%>
    </td>
    <td align=center> 
      <%Response.Write visit(11)%>
    </td>
    <td align=center> 
      <%Response.Write visit(12)%>
    </td>
    <td align=center> 
      <%Response.Write visit(13)%>
    </td>
  </tr>
</table>
<%
rsApp.close
set rsApp=nothing
objRS.Close
set objRS=nothing
%>
</BODY></HTML>