allschedule.asp

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

   		if CurPage>=RS.PageCount then
			Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		else
			Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a>&nbsp;"
			Response.Write "<a href='allschedule.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
		end if
		%>
        </td><td width=30%><div id=dateformat <%if request("strfield")="ScheduleDate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
    </tr>
    <tr> 
      <td height="25" colspan=5><strong><font size="2" class=title>工作日程</font></strong>
      <%
      '日程提醒
      dim rswarn,warndays
      set rswarn=conn.Execute("select * from warn")
      if not rswarn.eof then
		warndays=rswarn("warndays")
	  else
		warndays=7
	  end if

     %>
      </td>
    </tr>
    <tr > 
      <td height="16" colspan="5" background="../images/title.gif">&nbsp;</td>
    </tr>
	<tr><td height=4 colspan=4></td></tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<%
    if request("type")="today" or Request("strfield")="uncomplete" then'今天+过期未完成
%>
    <tr bgcolor="#EFEFEF"> 
      <td height=15 width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=schedule&orderby=<%=session("orderby")%>">主题</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=TaskType&orderby=<%=session("orderby")%>">类型</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=UserName&orderby=<%=session("orderby")%>">待做者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=creatorName&orderby=<%=session("orderby")%>">派遣者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleDate&orderby=<%=session("orderby")%>">日期</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleTime&orderby=<%=session("orderby")%>">时间</a></td>
      <td width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=Account&orderby=<%=session("orderby")%>">相关</a></td>
      <td width="10%" align=center>删除</td>
    </tr>
<%
    elseif Request.QueryString("type")="warn" or Request("strfield")="warn" then'提醒
%>
    <tr bgcolor="#EFEFEF"> 
      <td height=15 width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=schedule&orderby=<%=session("orderby")%>">主题</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=TaskType&orderby=<%=session("orderby")%>">类型</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=UserName&orderby=<%=session("orderby")%>">待做者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=creatorName&orderby=<%=session("orderby")%>">派遣者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleDate&orderby=<%=session("orderby")%>">日期</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleTime&orderby=<%=session("orderby")%>">时间</a></td>
      <td width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=warn&strvalue=<%=request("strvalue")%>&orderbyfield=Account&orderby=<%=session("orderby")%>">相关</a></td>
      <td width="10%" align=center>删除</td>
    </tr>
<%  else'搜索所有%>
    <tr bgcolor="#EFEFEF"> 
      <td height=15 width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=schedule&orderby=<%=session("orderby")%>">主题</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=TaskType&orderby=<%=session("orderby")%>">类型</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=UserName&orderby=<%=session("orderby")%>">待做者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=uncomplete&strvalue=<%=request("strvalue")%>&orderbyfield=creatorName&orderby=<%=session("orderby")%>">派遣者</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleDate&orderby=<%=session("orderby")%>">日期</a></td>
      <td width="10%"  align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ScheduleTime&orderby=<%=session("orderby")%>">时间</a></td>
      <td width="20%" align=center><a href="allschedule.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=Account&orderby=<%=session("orderby")%>">相关</a></td>
      <td width="10%" align=center>操作</td>
    </tr>
<%end if%>
    <%
    if request("type")="today" or Request("strfield")="uncomplete" then'今天+过期未完成
		i=1:do while not rs.EOF and i<=session("pagesize")
			date1=date()
			rsdate = rs("ScheduleDate") + rs("ScheduleTime")
			If (Day(rsdate) =day(date1) ) AND (Month(rsdate) =month(date1) ) AND (Year(rsdate) =year(date1)) Then	
			'今天
	%>		
				<tr bgcolor="#FFFFFF"> 
				  <td align=center height=18><a href="javascript:opensubwin3('scheduleview.asp?id=<%=rs("id")%>','工作日程','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs("schedule")%></a></td>
				  <td align=center><%=rs("TaskType")%></td>
				  <td align=center><%=rs("UserName")%></td>
				  <td align=center><%=rs("creatorName")%></td>
				  <td align=center><%=rs("ScheduleDate")%></td>
				  <td align=center><%=rs("ScheduleTime")%></td>
				  <td align=center><%if rs("accountid")=-1 then%>其他<%else response.write rs("account") end if%></td>
				  <td align=center>
				  <%if Session("loginid")=rs("creator") then%>
				  <a href="javascript:opensubwin3('../calendar/scheduleedit.asp?id=<%=rs("id")%>&date=<%=date()%>&creator=<%=rs("creator")%>&reload=yes','编辑','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=520,top=150,left=160');">编辑</a>
				  
				  <a href="javascript:opensubwin3('../delete.asp?scheduleid=<%=rs("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
				  <%end if%>
				  </td>
				  
				</tr>
				<%
			elseIf ((Month(rsdate) <month(date1) ) AND (Year(rsdate) <=year(date1))) or ((Day(rsdate) <day(date1) ) AND (Month(rsdate) =month(date1) ) AND (Year(rsdate) =year(date1))) Then
			'过期未完成
				if rs("closed")=false then%>
				<tr bgcolor="#FFFFFF"> 
				  <td align=center height=18><a href="javascript:opensubwin3('scheduleview.asp?id=<%=rs("id")%>','工作日程','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs("schedule")%></a></td>
				  <td align=center><font color=red><%=rs("TaskType")%></font></td>
				  <td align=center><font color=red><%=rs("UserName")%></font></td>
				  <td align=center><font color=red><%=rs("creatorName")%></font></td>
				  <td align=center><font color=red><%=rs("ScheduleDate")%></font></td>
				  <td align=center><font color=red><%=rs("ScheduleTime")%></font></td>
				  <td align=center><font color=red><%if rs("accountid")=-1 then%>其他<%else response.write rs("account") end if%></font></td>
				  <td align=center>
				  <%if Session("loginid")=rs("creator") then%>
				  <a href="javascript:opensubwin3('../calendar/scheduleedit.asp?id=<%=rs("id")%>&date=<%=date()%>&creator=<%=rs("creator")%>&reload=yes','编辑','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=520,top=150,left=160');">编辑</a>
				  
				  <a href="javascript:opensubwin3('../delete.asp?scheduleid=<%=rs("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
				  <%end if%>
				  </td>
				</tr>
				<%end if
			end if
			rs.MoveNext
		loop
    elseif Request.QueryString("type")="warn" or Request("strfield")="warn" then'提醒
    	i=1:do while not rs.EOF and i<=session("pagesize")
			date1=date()
			rsdate = rs("ScheduleDate") + rs("ScheduleTime")
			If (Day(rsdate) - day(date())<=warndays ) and (Day(rsdate) - day(date())>0 ) AND (Month(rsdate) =month(date()) ) AND (Year(rsdate)=year(date())) Then
				if rs("closed")=false then%>
				<tr bgcolor="#FFFFFF"> 
				  <td align=center height=18><a href="javascript:opensubwin3('scheduleview.asp?id=<%=rs("id")%>','工作日程','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs("schedule")%></a></td>
				  <td align=center><%=rs("TaskType")%></td>
				  <td align=center><%=rs("UserName")%></td>
				  <td align=center><%=rs("creatorName")%></td>
				  <td align=center><%=rs("ScheduleDate")%></td>
				  <td align=center><%=rs("ScheduleTime")%></td>
				  <td align=center><%if rs("accountid")=-1 then%>其他<%else response.write rs("account") end if%></td>
				  <td align=center>
				  <%if Session("loginid")=rs("creator") then%>
				  <a href="javascript:opensubwin3('../calendar/scheduleedit.asp?id=<%=rs("id")%>&date=<%=date()%>&creator=<%=rs("creator")%>&reload=yes','编辑','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=520,top=150,left=160');">编辑</a>
				  
				  <a href="javascript:opensubwin3('../delete.asp?scheduleid=<%=rs("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
				  <%end if%>
				  </td>
				</tr>
				<%end if
			end if
			rs.MoveNext
		loop
    else'搜索所有
		i=1:do while not rs.EOF and i<=session("pagesize")%>
			<tr bgcolor="#FFFFFF"> 
			  <td align=center height=18><a href="javascript:opensubwin3('scheduleview.asp?id=<%=rs("id")%>','工作日程','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs("schedule")%></a></td>
			  <td align=center><%=rs("TaskType")%></td>
			  <td align=center><%=rs("UserName")%></td>
			  <td align=center><%=rs("creatorName")%></td>
			  <td align=center><%=rs("ScheduleDate")%></td>
			  <td align=center><%=rs("ScheduleTime")%></td>
			  <td align=center><%if rs("accountid")=-1 then%>其他<%else response.write rs("account") end if%></td>
			  <td align=center>
				  <%if Session("loginid")=rs("creator") then%>
				  <a href="javascript:opensubwin3('../calendar/scheduleedit.asp?id=<%=rs("id")%>&date=<%=date()%>&creator=<%=rs("creator")%>&reload=yes','编辑','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=520,top=150,left=160');">编辑</a>
				  
				  <a href="javascript:opensubwin3('../delete.asp?scheduleid=<%=rs("id")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a>
				  <%end if%>
			  </td>
			</tr>
			<%
			rs.MoveNext
		loop
  end if
  
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页&nbsp;/&nbsp;共<%=RS.PageCount%>页&nbsp;/&nbsp;记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
</form>
</body>
</html>