ASP implementation restrictions start a new activity every 5 minutes. Share the Judgment function

Start a new activity every 5 minutes each day to get the current time countdown to the next activity

The original function code is as follows, used as service-side tuning trial.

<%
Times = Now ()
For i = 0 to 23
If I <= 9 Then i = "0" &i
For II = 0 to 55
If II Mod 5 = 0 Then
If II <= 9 Then II = "0" &ii
arrstring = arrstring& "" &year & "/" &month (Times) & "/" &day (Times) & "&i&": "&ii&": 00 "
End If
Next
Next
Arrstring=arrstring&dateadd ("D", 1, "" &formatdatetime (times,2) & "")
' Response. Write arrstring& "

"

MyArray = Split (arrstring, "")
For o = 0 to UBound (myarray)
Gametime = MyArray (o)
id = o + 1
If Datediff ("s", Times,gametime) > 1 Then Exit for
Next
' Response. Write gametime& "=======" &id
%>