获得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())
%>