Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 7 '显示7天
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
Dim d As Date = Date.Today.adddays(page * 7) '获取今天的日期
Dim y As Integer = d.Year '获取该年的年份
Dim m As Integer = d.Month '获取该月的月份
Dim n As Integer = Date.DaysInMonth(y,m) '判断一个月的天数
Dim dm1 As New Date(y, m, 1) '获取该月的最后一天
Dim dm2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim w As Integer = d.DayOfWeek '算出今天是星期几
Dim dw1 As Date = d.AddDays(-w) '获取本周的第一天
Dim dw2 As Date = d.AddDays(6 - w) '获取本周的最后一天
加好友 
发短信
Post By：2022/6/10 16:16:00 [显示全部帖子]
