[求助]如何让ASP日历只显示想要的日期天数
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0"><tr>
<td>
<tr>
<td bgcolor="#006699">
<table width="100%" height="25" border=0 cellpadding=2 cellspacing="1" class="pt9">
<tr align="center" class="pt9-000099">
<td background="../../images/bg_mask.gif">周日</td>
<td background="../../images/bg_mask.gif">周一</td>
<td background="../../images/bg_mask.gif" bgcolor="#D1DEFE">周二</td>
<td background="../../images/bg_mask.gif">周三</td>
<td background="../../images/bg_mask.gif">周四</td>
<td background="../../images/bg_mask.gif">周五</td>
<td background="../../images/bg_mask.gif">周六</td>
</tr>
<tr bgcolor="#ffffc0">
<%
dim nDex, nMonth, nYear, dtDate ,StartDate
dtDate = StartDate
nMonth = Request.QueryString("nMonth")
nYear = Request.QueryString("nYear")
if nMonth = "" then nMonth = Month(dtDate)
if nYear = "" then nYear = Year(dtDate)
dtDate = DateSerial(nYear, nMonth, 1)
for nDex = 1 to Weekday(dtDate) - 1
Response.Write "<td bgcolor=""#c0c0c0""> </td>"
next
do
Dim MB_BJ
If (Date) = (dtDate) Then
MB_BJ = "bgcolor=#CCEE44"
Else
MB_BJ = ""
End If
Response.Write "<td align=center "&MB_BJ&">"
Response.Write "" & Month(dtDate)&"-"&Day(dtDate) & ""
Response.Write "</td>"
if WeekDay(dtDate) = 7 then
Response.Write "</tr>" & vbCrLf & "<tr bgcolor=""#ffffc0"">"
end if
dtDate = DateAdd("d", 1, dtDate)
loop until (Month(dtDate) <> CInt(nMonth))
if Weekday(dtDate) <> 1 then
for nDex = Weekday(dtDate) to 7
Response.Write "<td bgcolor=""#C0C0C0""> </td>"
next
end if
%>
</tr>
</table>
</td>
</tr>
</td>
</tr>
</table>
要加入什么才能使网页只显示我需要的日期?
比如我要的是date1="2007-6-25" date2="2007-6-29"页面上只显示2007-6-25至2007-6-29日之间的日期其他的全不显示应该加入什么代码???
