Основной код
<%'Функция: функция форматирования даты многофункционального форматирования: http://jorkin.reallydo.com/article.asp?id=477function formatdate (sdatetime, sreallydo) Dim sjorkin sjorkin = getLocale (), если не ISdate (SdateTime), то SdatetTeTime = Теперь () sdatetime = cdate (sdateTime) выберите случай Ucase (sreallydo &) случай 0, 1, 2, 3, 4 Formatdate = FormatdateTime (sdateTime, sreallydo) случай 00 FormatDate = FormatDate(sDateTime, YYYY-MM-DD hh:mm:ss) Case 01 FormatDate = FormatDate(sDateTime, YYYYYYYYYYYYYYYY-MM-DD) Case 02 FormatDate = FormatDate(sDateTime, YYYY-MM-DD) Case 03 FormatDate = FormatDate (SDATETIME, HH: MM: SS) Дело 04 FormatDate = FormatDate (SDATETIME, HH: MM) CADE ISO8601, Google, SiteMap '// ISO8601 Формат, Обычно используется для GoogleSitemap, +08: 00-это часовой пояс Formatdate = Formatdate (sdateTime, yyyy-mm-ddthh. Для RSS +0800-это часовой пояс. '//Randomize string Randomize sJorkin = Rnd() FormatDate = FormatDate(sDateTime, YYYYMMDDhhmmss) & _ Fix((9 * 10^6 -1) * sJorkin) + 10^6 Case Else FormatDate = sReallyDo FormatDate = Replace(FormatDate , Yyyy, год (sdatetime)) formatdate = reply (formatdate, dd, right (0 и день (sdatetime), 2)) formatdate = reply (formatdate, HH, справа (0 и час (SDATETIME), 2)) FORMATDATE = Заменить (FORMATDATE, MM, справа (0 & MINTOM (SDATETIME), 2)) FORMATDATE = Заменить (FORMATDATE, SS, справа (0 & Second (SDATETIME) , 2)) formatdate = reply (formatdate, yy, right (год (sdateTime), 2)) formatdate = reply (formatdate, d, day (sdateTime)) formatdate = replication (formatdate, h, час (sdatetime)) formatdate = replace (formatdate, m, минута (sdatetime)) formatdate = replace (formatdate, s, second (sdatetime)), если instr (1, formatdate, ew, 1)> 0, затем Setlocale (en -gb) formatdate = reply (formatdate, ew, ucase (weekdayname (weedday (sdatetime), false))) formatdate = reply (formatdate, ew, WeekDayName (WeekDay (SDATETIME), FALSE)) FORMATDATE = Заменить (FORMATDATE, EW, UCASE (WeekDayName (WeekDay (SDATETIME), TRUE))) FORMATDATE = Заменить (FORMATDATE, EW, WeekDayName (WeekDay (SDATETIME), TRUE)) SETLOCALE (Sjorkin) else formatdate = reply (formatdate, w, weeddayname (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 = reply (formatdate, emm, monthname (месяц (sdatetime), true)) setlocale (sjorkin) else formatdate = Замените (Formatdate, MM, right (0 и месяц (sdateTime), 2)) Formatdate = reply (formatdate, m, месяц (sdateTime)) End End End Select Function%>
Использование выглядит следующим образом:
<%'Формат Дата на ISO8601 Ответ формата. Write (Formatdate (2008-03-06 08:03:06, SiteMap))' Дата формата формата RFC822. , Rss)) 'формат дата (английская неделя, английский месяц/день/yyyy))' response.write (formatdate (Now (), EW, EMM/dd/yyyy)) 'будет генерировать годовую строку случайных чисел из случайных чисел из -за случайного числа. Месяц, день, час, минутный и второй ответ.write (Formatdate (Now (), RND))%>
Для получения дополнительной информации, пожалуйста, ознакомьтесь с следующими связанными статьями