<% 
'day.asp 
%> 
<html> 
<head> 
<title>选择日期　　　　　　　　　　　　　　　　</title> 
<style type=text/css> 
<!-- 
body{margin:0;font-size:9pt;color:#5E639B} 
td{font-size:9pt;color:#000000} 
a:link {color:#000000;text-decoration: none} 
a:visited {color:#000000;text-decoration: none} 
a:active {color:#000000;text-decoration: none} 
a:hover { color:#ff3333;text-decoration: none} 
--> 
</style> 
<Script Language="javascript"> 
function getDay(v){ 
window.opener.document.<%=request.querystring("form")%>.<%=request.querystring("field")%>.value=v; 
window.close(); 
return false; 
} 
</Script> 
</head> 
<body bgcolor=#ffffff onBlur="window.focus()"> 
<% 
oldDate=request("oldDate") 
if not isDate(oldDate) then oldDate=date 
yy=year(cdate(oldDate)) 
mm=month(cdate(oldDate)) 
if request("yy")<>"" then yy=request("yy") 
if request("mm")<>"" then mm=request("mm") 
if yy="" then yy=year(date) 
if mm="" then mm=month(date) 
if mm>12 then mm=1:yy=yy+1 
if mm<1 then mm=12:yy=yy-1 

dim m(12) 
m(1)=31 
m(3)=31 
m(5)=31 
m(7)=31 
m(8)=31 
m(10)=31 
m(12)=31 
m(2)=28 
m(4)=30 
m(6)=30 
m(9)=30 
m(11)=30 
if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29 
mms=m(mm) 
week1=(weekday(cdate(yy & "-" & mm & "-1"))-1) 
%> 
<table width=250 cellspacing=1 cellpadding=0 bgcolor=#FFDFDF align=center> 
<tr> 
<td colspan=7 align=center> 
<table width=100% height=20 cellspacing=0 cellpadding=0> 
<tr height=20> 
<td width=30 align=center> 
<a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy-1)%>&mm=<%=mm%>> 
<font face=webdings style=color:#000000 title="上一年">7</font> 
</a> 
<td width=30 align=center> 
<a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm-1)%>&yy=<%=yy%>> 
<font face=webdings style=color:#000000 title="上一月">3</font> 
</a> 
<td width=130 align=center style="FONT:9pt Verdana,Geneva,sans-serif;color:#CD0101"> 
<b><%=yy%> 年 &nbsp; <%=mm%> 月</b> 
<td width=30 align=center> 
<a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm+1)%>&yy=<%=yy%>> 
<font face=webdings style=color:#000000 title="下一月">4</font> 
</a> 
<td width=30 align=center> 
<a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy+1)%>&mm=<%=mm%>> 
<font face=webdings style=color:#000000 title="下一年">8</font> 
</a> 
</table> 
<tr bgcolor=#ffffff height=20> 
<td width=35 align=center bgcolor=#FFF4F4 style=color:#ff6633>日 
<td width=35 align=center bgcolor=#FFF4F4>一 
<td width=35 align=center bgcolor=#FFF4F4>二 
<td width=35 align=center bgcolor=#FFF4F4>三 
<td width=35 align=center bgcolor=#FFF4F4>四 
<td width=35 align=center bgcolor=#FFF4F4>五 
<td width=35 align=center bgcolor=#FFF4F4>六 
<% 
if week1<>0 then 
response.write "<tr>" 
for i=1 to week1 
response.write "<td width=35 height=20 bgcolor=#ffffff>&nbsp;" 
next 
end if 
for i=1 to mms 
if (i+week1-1) mod 7=0 then response.write "<tr>" 
response.write "<td width=35 height=20 align=center bgcolor=#ffffff>" 
if cdate(yy & "-" & mm & "-" & i)=date() then 
%> 
<input type=button value=<%=i%> 
style="BORDER:#CD0101 1px groove;width:30;height:16;font-size:9pt;background-color:#FFD9D9;color:#CD0101" 
onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日（今天）"> 
<% 
else 
%> 
<input type=button value=<%=i%> 
style="BORDER:#000000 1px groove;width:30;height:16;font-size:9pt;background-color:#ffffff;color:#000000" 
onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日"> 
<% 
end if 
next 
if (mms+week1) mod 7<>0 then 
for i=1 to (7-((mms+week1) mod 7)) 
response.write "<td width=35 height=20 bgcolor=#ffffff>&nbsp;" 
next 
end if 
%> 
</table><br> 
<div align=center><a href="javascript:window.close()">〖关闭本窗口〗</a></div> 
</body> 
</html> 
