寻求asp日历代码

来源：百度知道 编辑：UC知道 时间：2024/06/24 09:49:28
要求 无刷新页面 可以调取数据库中的信息 比如 在2008 3-27 发布了 新的信息 这天的背景换个颜色!!谢谢各位了 奖赏 100分 再送 100

<%
Sub Calendar()

Dim y, m, d
Dim i, j, n, c, w
Dim iEnd

' y, m, d 年 月 日
y = Year(Date())
m = Month(Date())
d = Day(Date())

' n 一年的天数
If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then
n = 366
Else
n = 365
End If

' c 当前月的天数
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
c = 31
Case 2
If n = 366 Then
c = 29
Else
c = 28
End If
Case Else
c = 30
End Select

' w 当前月第一天是星期几
w = CInt(Weekday(DateSerial(y, m, 1)))
iEnd = ((w+c-1)\7-CInt((w+c-1)\7<>(w+c-1)/7))*7

Response.Write "<table id=""calendar"">"
Response.Write "<tr><td class=""sunday"">日</td><td>一</td><td>二</td><td>三</td><td>四</td><td>五</t