<%@Language="VBScript" CODEPAGE="65001" %>
<%
Response.CharSet="utf-8"
Session.codepage="65001"
Response.codepage="65001"
Response.ContentType="text/html;charset=utf-8"
Function dateLimited(dateLimited_stDate, dateLimited_edDate,limittime)
Dim dateLimited_toDate, dateLimited_result
dateLimited_result = False
dateLimited_stDate = CDate(dateLimited_stDate)
dateLimited_edDate = CDate(dateLimited_edDate)
dateLimited_toDate = Date()
nowtime =Hour(Time())
nowdate=date
'response.write DateDiff("y", dateLimited_toDate, dateLimited_edDate)
If DateDiff("y", dateLimited_toDate, dateLimited_stDate) <= 0 And DateDiff("y", dateLimited_toDate, dateLimited_edDate) >= 0 Then
If DateDiff("y", dateLimited_toDate, dateLimited_edDate) = 0 then
If CInt(limittime)> nowtime then
dateLimited_result = True
Else
dateLimited_result = false
End If
Else
dateLimited_result = True
End If
End If
dateLimited = dateLimited_result
End Function
stDate = "2018-01-01"
etDate = "2018-01-14"
etTime = "24"
%>
New Document
<%If dateLimited(stDate, etDate,etTime) Then%>
<%Else%>
<%End If %>
