获得ASP的中文日期字符串

来源：互联网 作者：west263.com 时间：2008-02-23

西部数码-全国虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

　我们通常需要在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())
%>

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

[打印] [关闭]

相关文章

在asp中如何创建动态表--调用如

论述Asp与XML之间的关系

ASP学习:错误80004005信息处理方

Access与Sql Server之ASP代码比

上一篇：ASP智能搜索的实现
下一篇：IE的模式对话框设计

热点关注

IDC资讯虚拟主机域名注册托管租用 vps主机智能建站
网站运营建站经验策划盈利搜索优化网站推广免费资源
网站联盟联盟新闻联盟介绍联盟点评网赚技巧
行业资讯业界动态搜索引擎网络游戏门户动态电子商务广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器安全防护
软件技巧其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识网络协议网络安全网络管理组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD

版权所有西部数码(www.west263.com)
CopyRight (c) 2002~2007 west263.com all right reserved.
公司地址：四川成都市万和路90号天象大厦4楼　邮编：610031
电话总机：028-86263408 86263960 86264018 86267838 86262244 86263408
售前咨询：总机转201 202 203 204 205 206 207 208
售后服务：总机转211 212 213 214 217 218 晚上0点以后拔分机225