asp 将日期格式化为需要的格式

1. <%  
2. '******************************  
3. '函数：FormatDate(DateAndTime, para)  
4. '参数：DateAndTime,要格式化的日期时间；para,样式。  
5. '作者：阿里西西  
6. '日期：2007/7/12  
7. '描述：将日期格式化为需要的格式  
8. '示例：<%=FormatDate(now(), 3)%>  
9. '******************************  
10. Public Function FormatDate(DateAndTime, para)  
11.   On Error Resume Next  
12.   Dim y, m, d, h, mi, s, strDateTime  
13.   FormatDate = DateAndTime  
14.   If Not IsNumeric(para) Then Exit Function  
15.   If Not IsDate(DateAndTime) Then Exit Function  
16.   y = CStr(Year(DateAndTime))  
17.   m = CStr(Month(DateAndTime))  
18.   If Len(m) = 1 Then m = "0" & m  
19.   d = CStr(Day(DateAndTime))  
20.   If Len(d) = 1 Then d = "0" & d  
21.   h = CStr(Hour(DateAndTime))  
22.   If Len(h) = 1 Then h = "0" & h  
23.   mi = CStr(Minute(DateAndTime))  
24.   If Len(mi) = 1 Then mi = "0" & mi  
25.   s = CStr(Second(DateAndTime))  
26.   If Len(s) = 1 Then s = "0" & s  
27.   Select Case para  
28.   Case "1"  
29.    strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s  
30.   Case "2"  
31.    strDateTime = y & "-" & m & "-" & d  
32.   Case "3"  
33.    strDateTime = y & "/" & m & "/" & d  
34.   Case "4"  
35.    strDateTime = y & "年" & m & "月" & d & "日"  
36.   Case "5"  
37.    strDateTime = m & "-" & d & " " & h & ":" & mi  
38.   Case "6"  
39.    strDateTime = m & "/" & d  
40.   Case "7"  
41.    strDateTime = m & "月" & d & "日"  
42.   Case "8"  
43.    strDateTime = y & "年" & m & "月"  
44.   Case "9"  
45.    strDateTime = y & "-" & m  
46.   Case "10"  
47.    strDateTime = y & "/" & m  
48.   Case "11"  
49.    strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi  
50.   Case "12"  
51.    strDateTime = right(y,2) & "-" &m & "-" & d  
52.   Case "13"  
53.    strDateTime = m & "-" & d  
54.   Case Else  
55.    strDateTime = DateAndTime  
56.   End Select  
57.  FormatDate = strDateTime  
58. End Function  
59. %>