求助，帮写个转换成中文的函数

dxlx

<%= etime&"-"&WeekDay(etime)%>
显示效果例如：2008年7月28日 20:30:01（星期一）

Juven

1. 
   
2. response.write ShowDataInfo(now(),"Y年m月d日 H:I:S 周")
   
3. Function ShowDataInfo(DateTime,ShowType)
   
4.         if isBlank(DateTime) then Exit Function
   
5.         Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond
   
6.         Dim FullWeekday,shortWeekday,WeekdayCN,Fullmonth,Shortmonth,TimeZone1,TimeZone2
   
7.         TimeZone1="+0800"
   
8.         TimeZone2="+08:00"
   
9.         FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
   
10.         shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
    
11.         WeekdayCN=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
    
12.         Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December")
    
13.         Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
    
14. 
    
15.         DateMonth=Month(DateTime)
    
16.         DateDay=Day(DateTime)
    
17.         DateHour=Hour(DateTime)
    
18.         DateMinute=Minute(DateTime)
    
19.         DateWeek=weekday(DateTime)
    
20.         DateSecond=Second(DateTime)
    
21.         if Len(DateMonth)<2 then DateMonth="0"&DateMonth
    
22.         if Len(DateDay)<2 then DateDay="0"&DateDay
    
23.         if Len(DateMinute)<2 then DateMinute="0"&DateMinute
    
24.         Select Case ShowType
    
25.                 Case "Y-m-d" ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay
    
26.                 Case "m.d" ShowDataInfo=DateMonth&"."&DateDay
    
27.                 Case "Y.m.d" ShowDataInfo=Year(DateTime)&"."&DateMonth&"."&DateDay
    
28.                 Case "Y-m-d w" ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&FullWeekday(DateWeek-1)
    
29.                 Case "Y年m月d日" ShowDataInfo=Year(DateTime)&"年"&DateMonth&"月"&DateDay&"日"
    
30.                 Case "Y年m月d日 周"  ShowDataInfo=Year(DateTime)&"年"&DateMonth&"月"&DateDay&"日 "&WeekdayCN(DateWeek-1)
    
31.                 Case "Y年m月d日 H:I:S 周"  ShowDataInfo=Year(DateTime)&"年"&DateMonth&"月"&DateDay&"日 "&DateHour&":"&DateMinute&":"&DateSecond&" "&WeekdayCN(DateWeek-1)       
    
32.                 Case "Y-m-d H:I A"
    
33.                         Dim DateAMPM
    
34.                         if DateHour>12 then
    
35.                                 DateHour=DateHour-12
    
36.                                 DateAMPM="PM"
    
37.                         else
    
38.                                 DateHour=DateHour
    
39.                                 DateAMPM="AM"
    
40.                         end if
    
41.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
42.                         ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
    
43.                 Case "Y-m-d H:I:S"
    
44.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
45.                         if Len(DateSecond)<2 then DateSecond="0"&DateSecond
    
46.                         ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
    
47.                 Case "Y-m-d H:I:S w"
    
48.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
49.                         if Len(DateSecond)<2 then DateSecond="0"&DateSecond
    
50.                         ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&FullWeekday(DateWeek-1)                       
    
51.                 Case "YmdHIS"
    
52.                         DateSecond=Second(DateTime)
    
53.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
54.                         if Len(DateSecond)<2 then DateSecond="0"&DateSecond
    
55.                         ShowDataInfo=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond       
    
56.                 Case "ym" ShowDataInfo=Right(Year(DateTime),2)&DateMonth
    
57.                 Case "d" ShowDataInfo=DateDay
    
58.                 Case "ymd" ShowDataInfo=Right(Year(DateTime),4)&DateMonth&DateDay
    
59.                 Case "mdy"
    
60.                         Dim DayEnd
    
61.                         Select Case DateDay
    
62.                                 Case 1 DayEnd="st"
    
63.                                 Case 2 DayEnd="nd"
    
64.                                 Case 3 DayEnd="rd"
    
65.                                 Case else DayEnd="th"
    
66.                         End Select
    
67.                         ShowDataInfo=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4)
    
68.                 Case "w,d m y H:I:S"
    
69.                         DateSecond=Second(DateTime)
    
70.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
71.                         if Len(DateSecond)<2 then DateSecond="0"&DateSecond
    
72.                         ShowDataInfo=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &" "&Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone1
    
73.                 Case "y-m-dTH:I:S"
    
74.                         if Len(DateHour)<2 then DateHour="0"&DateHour       
    
75.                         if Len(DateSecond)<2 then DateSecond="0"&DateSecond
    
76.                         ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2
    
77.                 Case else
    
78.                         if Len(DateHour)<2 then DateHour="0"&DateHour
    
79.                         ShowDataInfo=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
    
80.         End Select
    
81. End Function

复制代码

xlas

顶一下二楼先。。

dxlx

谢谢，代码很好