📄 main.asp
字号:
<td>
<input type="image" src="../images/delete.gif" name="I32" onClick="delit(this.form)" title="将选中的工作日程彻底删除"></td>
<td>
<input type="image" src="../images/button_new.gif" name="I322" onClick="addit(this.form)" title="新建工作日程"></td>
<td> <a href="main.asp?assignedto=self"><img src="../images/mine.gif" border=0 title="查看本人当天及未完成的工作日程"></a></td>
<td> <a href="main.asp?assignedto=sub"><img src="../images/subordinate.gif" border=0 title="查看直接下属当天及未完成的工作日程"></a></td>
<td><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','allschedule.asp?type=today');"><img src="../images/button_viewal2.gif" border=0 title="查看所有当天及未完成的工作日程"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr></table>
</td></tr></table>
</form>
<%
'日程提醒
dim rswarn,warndays
set rswarn=conn.Execute("select * from warn")
if not rswarn.eof then
warndays=cint(rswarn("warndays"))
else
warndays=7
end if
%>
<form name="form3" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<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="#29498C">
<td height="18" align=center valign="middle" bgcolor="4A699C"><font color=#FFFFFF>
提醒日程（<%=warndays%>天）</font></td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" height="164" border="0" cellpadding="1" cellspacing="0" bgcolor=#999999>
<tr class=list2 bgcolor="#FFFFFF">
<td align="center" valign="top" bgcolor=#C6C3C6>
<table width="100%" height="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C6C3C6" width="100%" id="AutoNumber3" height="20">
<tr bgcolor="#efefef">
<td width="5%" height="15"> <input type="hidden" name="date1" value="<%=date1%>">
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" style="font-size: 9pt; color: #000000"></td>
<td width="16%" nowrap>
<div align="center">派遣者</div></td>
<td width="16%" height="15" nowrap>
<div align="center">待做者</div></td>
<td width="22%" height="15" nowrap>
<div align="center">时间</div></td>
<td height="15" nowrap> <div align="center">主题</div></td>
<td height="15" width="7%" nowrap> <div align="center">编辑</div></td>
</tr>
<%
i=0
if Request.QueryString("warnassignedto")="self" then
sql="SELECT * FROM v_Schedule where AssignedTo='"&session("loginid")&"' and datediff(dd,'"&date()&"',ScheduleDate)>0 and datediff(dd,'"&date()&"',ScheduleDate)<="&warndays&" ORDER BY ScheduleDate"
elseif Request.QueryString("warnassignedto")="sub" then
sql="SELECT * FROM v_Schedule where AssignedTo in(select userid from v_userreportto_all where reportto='"&session("loginid")&"') and datediff(dd,'"&date()&"',ScheduleDate)>0 and datediff(dd,'"&date()&"',ScheduleDate)<="&warndays&" ORDER BY ScheduleDate"
else
sql="SELECT * FROM v_Schedule where (AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"' or AssignedTo in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and datediff(dd,'"&date()&"',ScheduleDate)>0 and datediff(dd,'"&date()&"',ScheduleDate)<="&warndays&" ORDER BY ScheduleDate"
end if
'Response.Write sql
set warnevent=conn.Execute(sql)
'Response.Write "SELECT * FROM v_Schedule where AssignedTo='"&session("loginid")&"' or Creator='"&Session("loginid")&"'"
do while not warnevent.eof
rsdate = warnevent("ScheduleDate") + warnevent("ScheduleTime")
'Response.Write rsdate
'If (Day(rsdate) - day(date())<=warndays ) and (Day(rsdate) - day(date())>0 ) AND (Month(rsdate) =month(date()) ) AND (Year(rsdate)=year(date())) and i<4 Then
if warnevent("closed")=false then
i=i+1
%>
<tr>
<td height="21" bgcolor="#ffffff">
<input type="checkbox" name="id" value="<%=warnevent("id")%>">
</td>
<td bgcolor="#ffffff">
<div align="center"><%=warnevent("creatorname")%></div></td>
<td height="21" bgcolor="#ffffff">
<div align="center"><%=warnevent("username")%></div></td>
<td height="21" bgcolor="#ffffff">
<div align="center"><%=rsdate%></div></td>
<td height="21" bgcolor="#ffffff" align="center"><a href="javascript:editit(<%=warnevent("id")%>,<%=date1%>)"><%=warnevent("Schedule")%></a></td>
<td height="21" bgcolor="#ffffff" align="center" width="7%">
<div align="center">
<%if warnevent("Closed")=false then%>
<a href="scheduleedit.asp?id=<%=warnevent("id")%>&date=<%=date1%>&Creator=<%=warnevent("Creator")%>"><img src="images/cl06.gif" border="0"></a>
<%end if%>
</div></td>
</tr>
<%
'end if
End If
warnevent.Movenext
Loop
if i=0 then
Response.Write "<tr bgcolor=#ffffff><td colspan=6><table width=100% border=1 bordercolor=white cellspacing=0 cellpadding=0>"
Response.Write "<tr bgcolor=#ffffff><td height=21> </td></tr><tr bgcolor=#ffffff><td height=21 align=center>无提醒日程</td></tr><tr bgcolor=#ffffff><td height=21> </td></tr><tr bgcolor=#ffffff><td height=21> </td></tr>"
Response.Write "</table></td></tr>"
elseif i<4 then
Response.Write "<tr bgcolor=#ffffff><td colspan=7><table width=100% border=1 bordercolor=white cellspacing=0 cellpadding=0>"
for j=1 to 4-i
Response.Write "<tr bgcolor=#ffffff><td height=21> </td>"
next
Response.Write "</table></td></tr>"
end if
%>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr class=list2 bgcolor="#FFFFFF">
<td background="../images/xuline.gif" height=3></td>
</tr>
<tr>
<td align="center">
<table align="center">
<tr align="center" valign="middle">
<td> <input type="image" src="../images/delete.gif" name="I32" onClick="delit(this.form)" title="将选中的工作日程彻底删除"></td>
<td> <a href="main.asp?warnassignedto=self"><img src="../images/mine.gif" border=0 title="查看本人的提醒工作日程"></a></td>
<td> <a href="main.asp?warnassignedto=sub"><img src="../images/subordinate.gif" border=0 title="查看直接下属的提醒工作日程"></a></td>
<td><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=700, height=480','allschedule.asp?type=warn');"><img src="../images/button_viewal2.gif" border=0 title="查看所有提醒工作日程"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr></table></form>
</td>
<td width="37%" align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" align="center" width="100%" >
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFFFFF" width="100%" >
<tr>
<td align="center" width="100%" >
<%
navday=request("day")
navmonth = request("month")
navyear = request("year")
If navmonth = "" Then
navmonth = Month(Date)
End If
If navyear = "" Then
navyear = Year(Date)
End If
If navday = "" Then
navday = day(Date)
End If
firstday = Weekday(CDate(navmonth & "/" & 1 & "/" & navyear))
'——————————————————判断本月为多少天————————————————————————
leapTestNumbers = navyear / 4
leapTest = (leapTestNumbers) - Round(leapTestNumbers)
If navmonth = 2 Then
If leapTest <> 0 Then
lastDate = 28
Else
lastDate = 29
End If
ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then
lastDate = 30
Else
lastDate = 31
End If
'——————————————————判断上一页，下一页————————————————————————
lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
lastMonth = 12
lastYear = lastYear - 1
End If
nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
nextMonth = 1
nextYear = nextYear + 1
End If
dateCounter = 1
weekCount = 1
DateEnd = lastDate
DateBegin = firstDate
%>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr bgcolor="#C6C3C6">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -