福网空间站:提供万网域名、空间、美国空间、域名 福建网站制作中心提供一条龙网站建设 要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福网企业建站中心|上千企业网站风格 要就发外贸站,以外国人的视觉建设英文网站
福建网站建设、福建网页设计、福建网站制作 福网官方主机,新增美国主机|PHP网站建设
要就发网店系统适合个人网上开店,少投入大收益 福建福州美国域名注册、超大容量国内、国外空间
详细内容                            全国服务热线:13616088405
ASP常用日期格式化函数 FormatDate()

核心代码

?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

<%

'功能:多功能日期格式化函数

'来源:http://jorkin.reallydo.com/article.asp?id=477

 

Function 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, "YYYY年MM月DD日")

 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格式, 一般用于GoogleSiteMap, "+08:00" 为时区.

  FormatDate = FormatDate(sDateTime, "YYYY-MM-DDThh:mm:ss.000+08:00")

 Case "RFC822", "RSS", "FEED" '//RFC822格式, 一般用于RSS, "+0800" 为时区.

  SetLocale("en-gb")

  FormatDate = FormatDate(sDateTime, "ew, DD eMM YYYY hh:mm:ss +0800")

  SetLocale(sJorkin)

 Case "RND", "RAND", "RANDOMIZE" '//随机字符串

  Randomize

  sJorkin = Rnd()

  FormatDate = FormatDate(sDateTime, "YYYYMMDDhhmmss") & _

    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 Select

End Function

%>

用法如下:

?

1

2

3

4

5

6

7

8

9

10

<%

'将日期格式化为ISO8601格式

Response.Write(FormatDate("2008-03-06 08:03:06", "SITEMAP"))

'将日期格式化为RFC822格式

Response.Write(FormatDate("2008-03-06 08:03:06", "RSS"))

'将日期格式化为(英星期, 英月/日/年)

Response.Write(FormatDate(Now(), "eW, EMM/DD/YYYY"))

'将生成一个以年月日时分秒随机数的字符串

Response.Write(FormatDate(Now(), "RND"))

%>

发布日期:2017-7-1    浏览量:    
要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响
福建网站制作中心(http://www.001fj.com)承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、虚拟主机(网站空间),有独立国内服务器、美国服务器、万网服务器
2、域名注册,是万网的域名代理,域名提供万网的独立控制面板
3、网站建设:含FLASH制作、个人网店制作、企业建站、公司网站、新闻、下载等建设、论坛、博客网站搭建等,承接外贸英文站制作
4、采集、程序小偷程序制作:实现商品数据采集、文章、图片采集、让你的网站在短时间内拥有大量的数据,制作小偷程序,让你i轻松拥有大型网站而不需要发大量维护
5、网站推广、流量推广:百度竞价排名,流量推广提搞你网站流量促进百度排名,每月网站流量推广,让您网站最少时间受最多人的关注
联系电话:13616088405,联系QQ:535251856,123023436