苗药湿毒清可以搽脸吗:谁能用ASP帮我写个日历？

<%
Dim This_Year,This_Month,This_Day,Start_Week
C_Year=request("log_Year")
C_Month=request("log_Month")
IF C_Year=Empty Then C_Year=Year(Now())
IF C_Month=Empty Then C_Month=Month(Now())
IF C_Day=Empty Then C_Day=0
C_Year=Cint(C_Year)
C_Month=Cint(C_Month)
C_Day=Cint(C_Day)
This_Year=C_Year
This_Month=C_Month
This_Day=C_Day
Dim To_Day,To_Month,To_Year
To_Day=Cint(Day(Now()))
To_Month=Cint(Month(Now()))
To_Year=Cint(Year(Now()))

Dim Month_Name(12)
Month_Name(0)=""
Month_Name(1)="1"
Month_Name(2)="2"
Month_Name(3)="3"
Month_Name(4)="4"
Month_Name(5)="5"
Month_Name(6)="6"
Month_Name(7)="7"
Month_Name(8)="8"
Month_Name(9)="9"
Month_Name(10)="10"
Month_Name(11)="11"
Month_Name(12)="12"

Dim Month_Days(12)
Month_Days(0)=""
Month_Days(1)=31
Month_Days(2)=28
Month_Days(3)=31
Month_Days(4)=30
Month_Days(5)=31
Month_Days(6)=30
Month_Days(7)=31
Month_Days(8)=31
Month_Days(9)=30
Month_Days(10)=31
Month_Days(11)=30
Month_Days(12)=31

If IsDate("February 29, " & This_Year) Then Month_Days(2)=29
Start_Week=WeekDay(C_Month&"-1-"&C_Year)-1

Dim Next_Month,Next_Year,Pro_Month,Pro_Year
Next_Month=C_Month+1
Next_Year=C_Year
IF Next_Month>12 then
Next_Month=1
Next_Year=Next_Year+1
End IF
Pro_Month=C_Month-1
Pro_Year=C_Year
IF Pro_Month<1 then
Pro_Month=12
Pro_Year=Pro_Year-1
End IF
%>
<link href="../images/style.css" rel="stylesheet" type="text/css" />

<table width="171" border="0" cellspacing="1" cellpadding="0" class="tbl3">
<tr>
<td height="21" colspan="7" align="center" style="FILTER:

progid:DXImageTransform.Microsoft.Gradient(startColorStr='#D1E9FF', endColorStr='#F3F9FE',

gradientType='0')"><a href="?log_Year=<%=C_Year-1%>" title="上一年"><font face="Webdings">7</font></a>

<a href="?log_Year=<%=Pro_Year%>&log_Month=<%=Pro_Month%>" title="上一月"><font

face="Webdings">3</font></a> <%=C_Year&" 年 "&Month_Name(C_Month)&" 月"%> <a href="?log_Year=<%

=Next_Year%>&log_Month=<%=Next_Month%>" title="下一月"><font face="Webdings">4</font></a> <a href="?

log_Year=<%=C_Year+1%>" title="下一年"><font face="Webdings">8</font></a></td>
</tr>
<tr>
<td height="23" align="center" background="images/cal_bg.gif"><font color="#FFAC00">日

</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">一</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">二</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">三</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">四</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">五</font></td>
<td align="center" background="images/cal_bg.gif"><font color="#7991A4">六</font></td>
</tr>
<tr>
<%
Dim i,j,k,l,m
For i=0 TO Start_Week-1
%>
<td width="23" height="23" align="center" bgcolor="#F7FAFC"> </td>
<%
Next
Dim This_BGColor
j=1
While j<=month_Days(This_Month)
For k=start_Week To 6
This_BGColor="#F7FAFC"
IF j=To_Day AND This_Year=To_Year AND This_Month=To_Month Then This_BGColor="#C8E5FE"
IF j=This_Day Then This_BGColor="#C8E5FE"
%>
<td width="23" height="23" align="center" bgcolor="<%=This_BGColor%>"><%
IF j<=Month_Days(This_Month) Then Response.Write(j)
%></td>
<%
j=j+1
Next
Start_Week=0
%>
</tr>
<%
Wend
%>
</table>