使用VBS的倒计时asp

<%@ Language=VBScript %>
<%
Dim targetDate
targetDate = #2022-01-01 00:00:00#

Dim remainingTime
remainingTime = DateDiff("s", Now(), targetDate)

If remainingTime > 0 Then
    Dim days, hours, minutes, seconds
    days = Int(remainingTime / 86400)
    remainingTime = remainingTime Mod 86400
    hours = Int(remainingTime / 3600)
    remainingTime = remainingTime Mod 3600
    minutes = Int(remainingTime / 60)
    seconds = remainingTime Mod 60

    Response.Write "距离目标日期还有：" & days & "天 " & hours & "小时 " & minutes & "分钟 " & seconds & "秒"
Else
    Response.Write "倒计时已结束"
End If
%>