邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 求助，帮写个转换成中文的函数 [打印本页]
作者: dxlx    时间: 2008-8-4 17:03
标题: 求助，帮写个转换成中文的函数
<%= etime&"-"&WeekDay(etime)%>
显示效果例如：2008年7月28日 20:30:01（星期一）
作者: Juven    时间: 2008-8-5 19:03

  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")

  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    时间: 2008-8-6 10:10
顶一下二楼先。。
作者: dxlx    时间: 2008-8-6 15:52
谢谢，代码很好




欢迎光临 邮件服务器-邮件系统-邮件技术论坛(BBS) (http://5dmail.net/bbs/) Powered by Discuz! X3.2