根据日期显示图像 VB 脚本

Question

我是 VB 脚本的新手，非常感谢任何帮助。

我目前有4张图片需要根据日期显示。我已将每个图像命名为 1、2、3 和 4。我正在使用日期函数来显示它，但我收到了 500 错误消息。如果有使用 VBScript 完成此操作的更好方法，请告诉我。图像位于 div 内 src 路径中指定的文件夹中，图像的扩展名是 PNG。

   <%@LANGUAGE="VBSCRIPT"%> 

<%
Dim CurDate

'CurDate = Month(DATE)
'CurDate =("2018-11-01")
 CurDate =(DATE)    

response.write(CurDate) 

If CurDate = "2018-10-30" THEN
    CurDate = 1
If CurDate = "2018-11-01" THEN
    CurDate = 2

If CurDate = "2018-11-02" THEN
    CurDate = 3

Else CureDate = 4

End If

%>  

     HTML Below


  <div style="padding-left:10px;text-align:center;">
    <img alt="Image- Displaying" border="0" src="http://Path/Default/Pane/imgFolder/<%=CurDate%>.png">
</div>

Answer 1

我认为您的问题出在 if/else/then。

<%@LANGUAGE="VBSCRIPT"%> 

<%
Dim CurDate

'CurDate = Month(DATE)
'CurDate =("2018-11-01")
 CurDate =(DATE)    

response.write(CurDate) 

If CurDate = "2018-10-30" THEN
    CurDate = 1
elseIf CurDate = "2018-11-01" THEN
    CurDate = 2
elseIf CurDate = "2018-11-02" THEN
    CurDate = 3
Else
    CurDate = 4
End If
%>  

     HTML Below


<div style="padding-left:10px;text-align:center;">
  <img alt="Image- Displaying" border="0" src="http://Path/Default/Pane/imgFolder/<%=CurDate%>.png">
</div>

根据日期显示图像 VB 脚本

Show image based on date VB Script

vbscript

asp-classic