ASP中如何在網頁上輸入中文日期

ASP中如何在網頁上輸入中文日期

　　　我們通常需要在WEB頁面上寫上當前的日期，可能使用用戶端script，或者使用ASP。使用ASP的一個特點是，它產生的效果看起來是靜態頁面，但實際上它是動態產生的。如果你希望用ASP顯示一個中文的日期，則需要轉化一下。下面是用來轉化的函數及其調用執行個體。

＜ %

’======================================================

’ 函數 Date2Chinese

’ 功能：獲得中文日期的字串（如一九九八年五月十二日）

’ 參數: iDate 要轉化的日期

’ 返回: 中文日期的字串

’======================================================

Function Date2Chinese(iDate)

　 　 Dim num(10)

　 　 Dim iYear

　 　 Dim iMonth

　 　 Dim iDay

　 　 num(0) = "〇"

　 　 num(1) = "一"

　 　 num(2) = "二"

　 　 num(3) = "三"

　 　 num(4) = "四"

　 　 num(5) = "五"

　 　 num(6) = "六"

　 　 num(7) = "七"

　 　 num(8) = "八"

　 　 num(9) = "九"

　 　 iYear = Year(iDate)

　 　 iMonth = Month(iDate)

　 　 iDay = Day(iDate)

　 　 Date2Chinese = num(iYear \ 1000) + _

　 　 　 　 num((iYear \ 100) Mod 10) + num((iYear _

　 　 　 　 \ 10) Mod 10) + num(iYear Mod _

　 　 　 　 10) + "年"

　 　 If iMonth >= 10 Then

　 　 　 　 If iMonth = 10 Then

　 　 　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 "十" + "月"

　 　 　 　 Else

　 　 　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 "十" + num(iMonth Mod 10) + "月"

　 　 　 　 End If

　 　 Else

　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 num(iMonth Mod 10) + "月"

　 　 End If

　 　 If iDay >= 10 Then

　 　 　 　 If iDay = 10 Then

　 　 　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 "十" + "日"

　 　 　 　 ElseIf iDay = 20 Or iDay = 30 Then

　 　 　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 num(iDay \ 10) + "十" + "日"

　 　 　 　 ElseIf iDay > 20 Then

　 　 　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　 num(iDay \ 10) + "十" + _

　 　 　 　 　 　 num(iDay Mod 10) + "日"

　 　 　 　 Else

　 　　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 　 　"十" + num(iDay Mod 10) + "日"

　 　 　 　 End If

　 　 Else

　 　 　 　 Date2Chinese = Date2Chinese + _

　 　 　 　 num(iDay Mod 10) + "日"

　 　 End If

End Function

%＞

可以在網頁的任何地方使用以下輸出中文日期：

＜ %

response.write date2Chinese(date())

%＞