正在阅读：ASP中如何在网页上输入中文日期ASP中如何在网页上输入中文日期

2004-02-14 09:33 出处：eNet硅谷动力作者：enet 责任编辑：zwg

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()) %＞