用ASP开发WEB日期选择器

"center">
<a

href="calendar.asp?year=<%=Year_var%>&month=<%=Next_month%>&form=<%=r

equest.querystring("form")%>&field=<%=request.querystring("field")%>"

title="Next Month" class="page">4</a>
<a

href="calendar.asp?year=<%=Next_year%>&month=<%=Month_var%>&form=<%=r

equest.querystring("form")%>&field=<%=request.querystring("field")%>"

title="Next Year" class="page">8</a></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse:

collapse" width="100%" id="AutoNumber2" cellpadding="3">
<tr>
<td align="center" bgcolor="#31659C"

class="title">Mon</td>
<td align="center" bgcolor="#31659C"

class="title">Tur</td>
<td align="center" bgcolor="#31659C"

class="title">Wed</td>
<td align="center" bgcolor="#31659C"

class="title">Thu</td>
<td align="center" bgcolor="#31659C"

class="title">Fri</td>
<td align="center" bgcolor="#31659C"

class="title">Sat</td>
<td align="center" bgcolor="#31659C"

class="title">Sun</td>
</tr>
<%
''日历内容 5行*7例 显示
''外层循环显示控制行

for i=0 to 4
%>
<tr>
<%
''内层循环显示控制列

for j=0 to 6
response.write "<td align=''center''

class=''dayTable''"

''天数显示，“今天”显示

if Current_day = date then
response.write " bgcolor=''#FFFFE0''>"
%><a

href="javascript:pick(''<%=Current_day%>'');" title="Today"

class="day"><b><%=day(Current_day)%></b></a><%
else

''天数显示，非本月天数显示

if Month(Current_day) <> Month_var

then
response.write "

bgcolor=''#F0F0F0''>"
%>
<a

href="javascript:pick(''<%=Current_day%>'');" title="<%=Current_day%>"

class="day"><font color="#CCCCCC"><%=day(Current_day)%></font></a><%
else

''天数显示，本月天数显示
response.write ">"
%>
<a

href="javascript:pick(''<%=Current_day%>'');" title="<%=Current_day%>"

class="day"><%=day(Current_day)%></a><%
end if

end if

''天数累加推算

Current_day = Current_day + 1
response.write "</td>"
next
%>
</tr>
<%
next
%>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>

=================