?? yeardate.asp
字號:
<%if request("yy").count=0 then yy=year(date):mm=month(date) else yy=cint(request("yy")):mm=cint(request("mm"))
tdate=DateSerial(yy,mm,1)
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><LINK href='../other/admin.css' rel=stylesheet type=text/css><script src='Function.js'></script></head><body bgcolor='#F1F1F1' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' scroll='no'><form method='post' action='yeardate.asp' name='form1'><table width='160' cellspacing='0' cellpadding='3' bordercolorlight='#FFFFFF' bordercolordark='#FFFFFF' class='unnamed1' bgcolor='#EBEFF4' height='160'><tr class='Titletd'><td width='80' height='15'><font color='#FFFFFF'><select name='yy' onChange='form1.submit()' class='input4'>"
for i=year(date())-5 to year(date())+5
response.write "<option"
if i=yy then response.write " selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>年</font></td><td width='60' height='15'><div align='right'><font color='#FFFFFF'><select name='mm' onChange='form1.submit()' >"
for i=1 to 12
response.Write "<option"
if i=mm then response.Write" selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>月</font></div></td></tr><tr valign='top'><td height='140' colspan='2'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr ><td><div align='center'><font color=' #000000'>日</font></div></td><td><div align='center'><font color=' #000000'>一</font></div></td><td><div align='center'><font color=' #000000'>二</font></div></td><td><div align='center'><font color=' #000000'>三</font></div></td><td><div align='center'><font color=' #000000'>四</font></div></td><td><div align='center'><font color=' #000000'>五</font></div></td><td><div align='center'><font color=' #000000'>六</font></div></td></tr>"
do while month(tdate)=mm
response.Write "<tr>"
for i=1 to 7
response.Write "<td height='20'"
if month(tdate)=mm and DatePart("w",tdate)=i then response.Write " style='cursor:hand' onMouseOver=""style.backgroundColor='#99ccff';style.color='#F3F3F3'"" onMouseOut=""style.backgroundColor='#F3F3F3';style.color='#000000'"" onClick=""openwin(536,430,'SchEduleEveryday.asp?yy="&yy&"&mm="&mm&"&dd="&day(tdate)&"')"""
response.Write " bgcolor='#ffffff'><div align='center'>"
if month(tdate)=mm and DatePart("w",tdate)=i then
if day(tdate)=day(now()) then response.Write "<font color=red title='點擊可查看當日日程'>"&day(tdate)&"</font>" else response.Write "<font title='點擊可查看當日日程'>"&day(tdate)&"</font>" end if
end if
response.Write "</div></td>"
if DatePart("w",tdate)=i then tdate=DateAdd("d",1,tdate)
next
response.Write "</tr>"
loop
response.Write "</table></td></tr></table></form></body></html>"
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -