Question

尝试再次尝试此问题：

使用下面的代码，我试图阐明一个日期范围; 5月10日 - 6月8日。我在这个范围内的每个日期输出一个唯一的缩略图图像（作为一个风格化的日历排列在一起）;我还需要在这个范围内检测今天的日期。因为.today样式类将在今天的日期附加。我之前实现了这个，当日期范围在一个月内，1 - 31（并且该代码在最近的尝试/原始代码下）这个相同的代码无法工作，因为现在它不像1 - 31那么简单静态地声明月份名称，现在是两个月，10 - 31，然后是1 - 8.而且，不是我最近的尝试失败了，页面甚至没有编译，只是白色。

<%
Dim d1 As New Date(2015, 5, 10)
Dim d2 As New Date(2015, 6, 8)

Dim DaysBetween As Long = DateDiff(DateInterval.Day, d1, d2)

Dim d3 As Date

For d As Long = 0 To DaysBetween
    d3 = d1.AddDays(d)
    If d3 < Today() Then
    time = "past"
    ElseIf d3 = Today Then
    time = "today"
    Else
    time = "future"
    End If

    Dim suffix As String = Suffixer(d3.Day)

    response.write("<section id='day_"& i &"' class='calSquare  " & time &"'><article class='dateImage' style='background-image: url(images/Calendar_Thumbnails/Day_"&i&".jpg)'></article></article><article class='dateTitle'> "&i&suffix&"</article></section>")

    Next
    <!--response.write(products(0))-->
%>

原始功能代码;表达了一个月。

<%
        For i = 1 to 31
        dim time
        If i < day_part Then
        time = "past"
        ElseIf i = day_part Then
        time = "today"
        Else
        time = "future"
        End If

        suffix = Suffixer(i)

        response.write("<section id='day_"& i &"' class='calSquare  " & time &"'><article class='dateImage' style='background-image: url(images/Calendar_Thumbnails/Day_"&i&".jpg)'></article></article><article class='dateTitle'>May "&i&suffix&"</article></section>")

        Next
        <!--response.write(products(0))-->
    %>

Answer 1

您的第一个代码示例无效VBScript。该语言不支持像Dim var As type = value这样的结构，因此这可能就是为什么不显示页面的原因。

至于在突出显示当前日期的同时列出范围内的日期，您可以执行以下操作：

today = Date

firstDay = DateValue("2015-05-10")
lastDay  = DateValue("2015-06-08")

d = firstDay
While d <= lastDay
  If d = today Then
    response.write "today"
  Else
    response.write "other day in range"
  End If
  d = d + 1
Wend

两个日期之间，＆amp;检测今天的日期（如果在范围之间）

1 个答案: