monthlycal.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

<!--#include file="displaysmallworkrec.asp"-->
<%
sub monthlycal(username,superior)
	oabusyusername=request.cookies("oabusyusername")

	'取得当前年月的1日日期
	thismonthfirday=myyear & "-" & mymonth & "-1"
	'取得下个月1日的日期
	nextmonthfirday=dateadd("m",1,thismonthfirday)
	'取得当前月的天数
	totaldays=DateDiff("d",thismonthfirday,nextmonthfirday)
	firdayweek=weekday(thismonthfirday)
%>
<center>
<table border=1 width=95% bordercolordark="#808080" bordercolorlight="#808080" cellpadding="0" cellspacing="1">
<tr bgcolor="#66aa77" height="30">
<td align=center width="14%" bgcolor="#D4D0C8">星期日</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期一</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期二</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期三</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期四</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期五</td>
<td align=center width="14%" height="30" bgcolor="#D4D0C8">星期六</td>
</tr>
<%
	for i=1 to 7
		if firdayweek=i then
			string1="<tr height=30 valign=middle>"
			j=1
			do while j<i
				string1=string1 & "<td>&nbsp;</td>"
				j=j+1
			loop
			if firdayweek=1 or firdayweek=7 then
				string1=string1 & "<td valign=middle align=center bgcolor='#cccccc' ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#eeeeee';"" onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & thismonthfirday & "');"">" & displaysmallworkrec(thismonthfirday,username,superior) & "</td>"
			else
				string1=string1 & "<td valign=middle align=center ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#ffffff';""  onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & thismonthfirday & "');"">" & displaysmallworkrec(thismonthfirday,username,superior) & "</td>"
			end if
		end if
	next
	if firdayweek=7 then string1=string1 & "</tr>"
	response.write string1

	for i=2 to totaldays-1
		if weekday(myyear & "-" & mymonth & "-" & i)=1 then response.write "<tr height=30><td valign=middle align=center bgcolor='#eeeeee' ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#eeeeee';""  onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myyear & "-" & mymonth & "-" & i & "');"">" & displaysmallworkrec(myyear & "-" & mymonth & "-" & i,username,superior) & "</td>"
		if weekday(myyear & "-" & mymonth & "-" & i)=7 then response.write "<td valign=middle align=center bgcolor='#eeeeee' ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#eeeeee';"" onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myyear & "-" & mymonth & "-" & i & "');"">" & displaysmallworkrec(myyear & "-" & mymonth & "-" & i,username,superior) & "</td></tr>"
		if weekday(myyear & "-" & mymonth & "-" & i)<>7 and weekday(myyear & "-" & mymonth & "-" & i)<>1 then response.write "<td valign=middle align=center ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#ffffff';""  onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myyear & "-" & mymonth & "-" & i & "');"">" & displaysmallworkrec(myyear & "-" & mymonth & "-" & i,username,superior) & "</td>"
	next

	for i=1 to 7
		if weekday(myyear & "-" & mymonth & "-" & totaldays)=i then
			if weekday(myyear & "-" & mymonth & "-" & totaldays)=1 or weekday(myyear & "-" & mymonth & "-" & totaldays)=7 then
				string2="<td valign=middle align=center bgcolor='#eeeeee' ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#eeeeee';"" onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myyear & "-" & mymonth & "-" & totaldays & "');"">" & displaysmallworkrec(myyear & "-" & mymonth & "-" & totaldays,username,superior) & "</td>"
			else
				string2="<td valign=middle align=center ONMOUSEOVER=""this.bgColor='#cccccc';this.style.cursor='hand';"" ONMOUSEOUT=""this.bgColor='#ffffff';"" onclick=""return js_openpage('displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myyear & "-" & mymonth & "-" & totaldays & "');"">" & displaysmallworkrec(myyear & "-" & mymonth & "-" & totaldays,username,superior) & "</td>"
			end if
			j=7
			do while j>i
				string2=string2 & "<td>&nbsp;</td>"
				j=j-1
			loop
			string2=string2 & "</tr>"
		end if
	next
	if weekday(myyear & "-" & mymonth & "-" & totaldays)=1 then string2="<tr>" & string2 & "</tr>"
	response.write string2
%>
</table>
</center>
<br>
<%
end sub
%>