📄 hx_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='../HXinclude/HX_Style.css' rel=stylesheet type=text/css><script src='../HXinclude/HX_Function.js'></script></head><body bgcolor='#F1F1F1' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' scroll='no'><form method='post' action='HX_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()' class='input4'>"
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' class='unnamed1'><tr class='bgcolor2'><td><div align='center'><font color='#FFFFFF'>日</font></div></td><td><div align='center'><font color='#FFFFFF'>一</font></div></td><td><div align='center'><font color='#FFFFFF'>二</font></div></td><td><div align='center'><font color='#FFFFFF'>三</font></div></td><td><div align='center'><font color='#FFFFFF'>四</font></div></td><td><div align='center'><font color='#FFFFFF'>五</font></div></td><td><div align='center'><font color='#FFFFFF'>六</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='#EBEFF4'><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 + -