Kode inti
<%'FUNGSI: Fungsi pemformatan tanggal multifungsi'source: http://jorkin.reeallydo.com/article.asp?id=477Function formatDate (sdateTime, sreallydo) redup sjorkin sjorkin = getLocale () jika tidak isdate (sdatetime) kemudian) kemudian sdatetime) kemudian sdatime) kemudian sdateMime) kemudian sdateMime) kemudian sdateMime) = Sekarang () sDateTime = cdate (sDateTime) Pilih case uCase (sreallydo &) case 0, 1, 2, 3, 4 formatDate = formatDateTime (sDateTime, sRealllydo) case 00 FormatDate = formatDate (sDateTime, yyyy-mm-dd hh: mm: ss) case 01 format = formatDate (sDateTime, yyyyyyyyyyyyyyyyy-mm-dd) cased 02 formatdate = formatDate (sdatetime, yyy-yyy-yyy) cased 02-formatdate = formatDate (sdatetime, yyy-yy-yy-ymm) cased 02 d-formatdate (sdatetime, yyy-yy-ymm) (SDATETIME, HH: MM: SS) Case 04 FormatDate = FormatDate (SDateTime, HH: MM) Kasus ISO8601, Google, Sitemap '// Format ISO8601, Umumnya digunakan untuk googlesitemap, +08: 00 adalah zona waktu. Untuk RSS, +0800 adalah zona waktu. '//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, tahun (sdateTime)) formatDate = ganti (formatDate, dd, kanan (0 & hari (sDateTime), 2)) formatDate = ganti (format, HH, kanan (0 & jam (SDATETIME), 2)) formatDate = ganti (formatDate, mm, kanan (0 & menit (sdateTime), 2)) formatDate = ganti (formatDate, ss, kanan (0 & kedua (sDateTime) , 2)) formatDate = ganti (formatDate, yy, kanan (tahun (sdateTime), 2)) formatDate = ganti (formatDate, d, hari (sdatetime)) formatDate = ganti (format, h, jam (sdateTime)) formatDate = ganti (formatDate, m, menit (sdateTime)) formatDate = ganti (formatdate, s, kedua (sdatetime)) if instr (1, formatDate, ew, 1)> 0 lalu setLocale (en -gb) formatDate = ganti (formatDate, ew, ucase (WeekdayName (hari kerja (sDateTime), false))) formatDate = ganti (formatDate, ew, WeekdayName (hari kerja (sDateTime), false)) formatDate = ganti (formatDate, ew, ucase (WeekdayName (hari kerja (sDateTime), true))) formatDate = ganti (formatDate, ew, weekdayname (sdatetime), true)) setLocale (sjorkin) else formatDate = ganti (formatDate, w, weekdayname (hari kerja (sDateTime), false)) formatDate = Ganti (formatDate, w, weekdayname (hari kerja (sDateTime), true)) berakhir jika if instr (1, formatDate, EMM, 1)> 0 lalu setLocale (EN-GB) formatDate = ganti (format, EMM, bulanName (bulan (bulan (bulan (bulan) sDateTime), false)) formatDate = ganti (formatDate, emm, monthname (bulan (sdateTime), true)) setlocale (sjorkin) else formatDate = Ganti (formatDate, mm, kanan (0 & bulan (sDateTime), 2)) formatDate = ganti (formatDate, m, bulan (sdateTime)) end jika function selectend akhir%>
Penggunaannya adalah sebagai berikut:
<%'Tanggal Format ke ISO8601 Format Response.Write (FormatDate (2008-03-06 08:03:06, Sitemap))' Tanggal Format ke RFC822 Format Response.Write (FormatDate (2008-03-06 08: 03: 06 , Rss)) 'Tanggal format ke (minggu bahasa Inggris, bulan Inggris/hari/yyyy))' response.write (formatDate (now (), ew, emm/dd/yyyy)) 'akan menghasilkan string satu tahun dari jumlah acak dari acak dari jumlah acak dari bulan, hari, jam, menit dan respons kedua.write (formatDate (sekarang (), rnd))%>
Untuk informasi lebih lanjut, silakan lihat artikel terkait berikut