Código central
<%'Función: Formación de la fecha multifunción Función de funciones: http://jorkin.reallydo.com/article.asp?id=477 Formatdate (sdateTime, srealydo) dim sjorkin sjorkin = getLocale () Si no es date (sdatetime) luego sdateTimeMe = Now () SDATETIME = CDATE (SDATETIME) SELECT CASE UCASE (SREALLYDO &) CASO 0, 1, 2, 3, 4 FORMATDATE = FormatDateTime (SDATETIME, SREALLYDO) Caso 00 FormatDate = formatDate (sDateTime, aaa yyyy-mm-dd hh: mm: ss) 01 formatDate = formatDate (sdateTime, aaaayyyyyyyyyyyyyyyyyyyy-mm-dd) case 02 formatDate = formatDate (sdatetime, yyyyy-mm-dd) case 03-dd) (SDATETIME, HH: MM: SS) Caso 04 FormatDate = FormatDate (SDATETIME, HH: MM) Caso ISO8601, Google, Sitemap '// Formato ISO8601, Generalmente utilizado para GoogleSitemap, +08: 00 es la zona horaria. Para RSS, +0800 es la zona horaria. '// aleatorize String aleatorize sjorkin = rnd () formatDate = formatDate (sdateTime, yyyymmddhhmmss) & _ fix ((9 * 10^6 -1) * Sjorkin) + 10^6 CASE ELE FORMATDATE = SreallyDo FormatDate = reemplazar (Formatdate,,,,, Aaa yyyy, año (sdateTime)) formatDate = reemplazar (formatDate, dd, derecha (0 y día (sdatetime), 2)) formatDate = reemplazar (formatDate, HH, derecha (0 y hora (Sdatetime), 2)) formatDate = reemplazar (formatDate, mm, derecha (0 y minuto (sdateTime), 2)) formatDate = reemplazar (formatdate, ss, derecha (0 y segundo (sdateTime) , 2)) formatDate = reemplazar (formatDate, yy, derecho (año (sdatetime), 2)) formatDate = reemplazar (formatDate, d, día (sdateTime)) formatDate = reemplazar (formatDate,, h, hora (SDATETETIME)) FormatDate = reemplazar (formatDate, m, minuto (sdateTime)) formatDate = reemplazar (formatDate, s, segundo (sdatetime)) si instrer (1, formatdate, ew, 1)> 0 luego setLocale (en (en -gb) formatDate = reemplazar (formatDate, ew, ucase (weekdayname (weekday (sdateTime), falso))) formatDate = reemplazar (formatDate, ew, Weatesdayname (Weathday (SDATETEME), FALSE)) formatDate = reemplazar (formatDate, EW, UCase (WeekdayName (WeekDay (SDATETETIME), verdadero)) FormatDate = Reemplazar (FormatDate, EW, WeekdayName (WeekDay (SDATETETime), verdadero)) SetLocale (sjorkin) else formatDate = reemplazar (formatDate, w, weekdayname (semana entre semana (sdateTime), falso)) 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 = reemplazar (formatDate, Emm, MonthName (mes (SDATETIME), TRUE)) SETLOCALE (SJorkin) Else FormatDate = Reemplazar (formatDate, mm, derecho (0 y mes (sdateTime), 2)) formatDate = reemplazar (formatDate, m, mes (sdateTime)) final si final de selección de la función Selectend%>
El uso es el siguiente:
<%'Fecha de formato a ISO8601 Respuesta de formato , Rss)) 'Fecha de formato a (Semana de inglés, mes de inglés/día/yyyy))' Response.write (FormatDate (ahora (), EW, Emm/Dd/aaa mes, día, hora, minuto y segunda respuesta.write (formatDate (ahora (), rnd))%>
Para obtener más información, consulte los siguientes artículos relacionados