ASP Program Tips noon Good, Good morning program

function JDSJ ()
n = CStr (right (year (date), 2)) + "-"
y = CStr (month (date ()) + "-"
If Len (y) = 2 then y = "0" + y
r = CStr (day (date))
If Len (r) = 1 Then R = "0" + R
h = CStr (Hour (now ()) + "-"
If Len (h) = 2 then H = "0" + H
f = CStr (Minute (now ()))
If Len (f) = 1 then f = "0" + F
JDSJ = n + y + R + "" + H + F
End Function

XXSJ = CStr (date ()) + "year" + CStr (month (date)) + "Month" + CStr (day (date)) + "Days" + WeekdayName (Weekday (now))

Function WHY ()
 mytime = Hour (now ())
 if mytime>=5 and mytime<9 then WHY = "Good morning!" "
 if mytime>=9 and mytime<11 then why =" Good morning! "
 if mytime>=11 and mytime<13 then why =" Good afternoon! "
 if mytime>=13 and mytime<18 then why =" Good afternoon! "
 if mytime>=18 and mytime<24 then why =" Good evening! "
 if mytime>=00 and mytime<5 then why =" very late, pay attention to rest Ah! The
End Function