ASP日历 实现遍历数据库取出对应的年月日数据

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
re***nse.charset = "UTF-8"
se***on.codepage = 65001
se***on.timeout = 1440
se***r.scripttimeout = 9999
%>
http://ww***.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http://ww***.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
http://ww***.org/1999/xhtml">http://ww***.org/1999/xhtml">







<%
'=================================
'说明：日历文件
'=================================
'取出对应的年月日数据
'=======================
Ryear = CInt(re***st.querystring("year"))
Rmonth = CInt(re***st.querystring("month"))
If Ryear = 0  or Ryear = NULL Then Ryear = year(now)
If Rmonth = 0 or Rmonth = NULL Then Rmonth = month(now)
nowtime = Ryear&"-"&Rmonth&"-1"   '得到本月第一天
nowyear = year(nowtime)           '年份
nowmonth = month(nowtime)         '月份
nowweekday = weekday(nowtime) - 1 '当前礼拜
'获取2月天数
febdays = 28
If nowyear / 4 = 0 Then febdays = 29
'获取本月天数
If nowmonth = 1 then
    monthdays = 31
ElseIf nowmonth = 2 Then
    monthdays = febdays
ElseIf nowmonth = 3 Then
    monthdays = 31
ElseIf nowmonth = 4 Then
    monthdays = 30
ElseIf nowmonth = 5 Then
    monthdays = 31
ElseIf nowmonth = 6 Then
    monthdays = 30
ElseIf nowmonth = 7 Then
    monthdays = 31
ElseIf nowmonth = 8 Then
    monthdays = 31
ElseIf nowmonth = 9 Then
    monthdays = 30
ElseIf nowmonth = 10 Then
    monthdays = 31
ElseIf nowmonth = 11 Then
    monthdays = 30
Else
    monthdays = 31
End If
calendar =  " << "
willshowmonthmonth = nowmonth
If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2
calendar =  calendar & " < "
If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11
calendar =  calendar & " > "
calendar =  calendar & " >> "
calendar =  calendar & "

        calendar =  calendar &  "

    If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then
    t=t+1
    calendar =  calendar &  "