For dates stored in the date and time type fields of the Access database, the effect of directly reading data from the database is very time-consuming. The editor of the Error New Technology Channel will tell you in detail about the commonly used date formatting function FormatDate of ASP.
Core code
<%'Function: Multifunction date formatting function'Source: http://jorkin.reallydo.com/article.asp?id=477Function FormatDate(sDateTime, sReallyDo) Dim sJorkin sJorkin = GetLocale() If Not IsDate(sDateTime) Then sDateTime = Now() sDateTime = CDate(sDateTime) Select Case UCase(sReallyDo & "") Case "0", "1", "2", "3", "4" FormatDate = FormatDateTime(sDateTime, sReallyDo) Case "00" FormatDate = FormatDate(sDateTime, "YYYY-MM-DD hh:mm:ss") Case "01" FormatDate = FormatDate(sDateTime, "YYYYYYY MM month DD date") Case "02" FormatDate = FormatDate(sDateTime, "YYYY-MM-DD") Case "03" FormatDate = FormatDate(sDateTime, "hh:mm:ss") Case "04" FormatDate = FormatDate(sDateTime, "hh:mm") Case "ISO8601", "GOOGLE", "SITEMAP" '//ISO8601 format, generally used for GoogleSiteMap, "+08:00" is the time zone. FormatDate = FormatDate(sDateTime, "YYYY-MM-DDThh:mm:ss.000+08:00") Case "RFC822", "RSS", "FEED" '//RFC822 format, generally used for RSS, "+0800" is the time zone. SetLocale("en-gb") FormatDate = FormatDate(sDateTime, "ew, DD eMM YYYY hh:mm:ss +0800") SetLocale(sJorkin) Case "RND", "RAND", "RANDOMIZE" '//Randomize string Randomize sJorkin = Rnd() FormatDate = FormatDate(sDateTime, "YYYMMDDhhmmss") & _ Fix((9 * 10^6 -1) * sJorkin) + 10^6 Case Else FormatDate = sReallyDo FormatDate = Replace(FormatDate, "YYYY", Year(sDateTime)) FormatDate = Replace(FormatDate, "DD", Right("0" & Day(sDateTime), 2)) FormatDate = Replace(FormatDate, "hh", Right("0" & Hour(sDateTime), 2)) FormatDate = Replace(FormatDate, "mm", Right("0" & Minute(sDateTime), 2)) FormatDate = Replace(FormatDate, "ss", Right("0" & Second(sDateTime), 2)) FormatDate = Replace(FormatDate, "YY", Right(Year(sDateTime), 2)) FormatDate = Replace(FormatDate, "D", Day(sDateTime)) FormatDate = Replace(FormatDate, "h", Hour(sDateTime)) FormatDate = Replace(FormatDate, "m", Minute(sDateTime)) FormatDate = Replace(FormatDate, "s", Second(sDateTime)) If InStr(1, FormatDate, "EW", 1) > 0 Then SetLocale("en-gb") FormatDate = Replace(FormatDate, "EW", UCase(WeekdayName(Weekday(sDateTime), False))) FormatDate = Replace(FormatDate, "eW", WeekdayName(Weekday(sDateTime), False)) FormatDate = Replace(FormatDate, "Ew", UCase(WeekdayName(Weekday(sDateTime), True))) FormatDate = Replace(FormatDate, "ew", WeekdayName(Weekday(sDateTime), True)) SetLocale(sJorkin) Else FormatDate = Replace(FormatDate, "W", WeekdayName(Weekday(sDateTime), False)) FormatDate = Replace(FormatDate, "w", WeekdayName(Weekday(sDateTime), True)) End If If InStr(1, FormatDate, "EMM", 1) > 0 Then SetLocale("en-gb") FormatDate = Replace(FormatDate, "EMM", MonthName(Month(sDateTime), False)) FormatDate = Replace(FormatDate, "eMM", MonthName(Month(sDateTime), True)) SetLocale(sJorkin) Else FormatDate = Replace(FormatDate, "MM", Right("0" & Month(sDateTime), 2)) FormatDate = Replace(FormatDate, "M", Month(sDateTime)) End If End SelectEnd Function%>The usage is as follows:
<%'Format date to ISO8601 format Response.Write(FormatDate("2008-03-06 08:03:06", "SITEMAP"))'Format date to RFC822 format Response.Write(FormatDate("2008-03-06 08:03:06", "RSS"))'Format date to (English, Week, English, Month, Day, Day, Year)Response.Write(FormatDate(Now(), "eW, EMM/DD/YYYY"))'re generating a string of random numbers in year, month, day, hour, minute, and seconds Response.Write(FormatDate(Now(), "RND"))%>The above is the editor of the wrong new technology channel. The content about the commonly used date formatting function FormatDate of ASP. If anyone is interested in this industry, he can provide training in this regard.