 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我 们 通 常 需 要 在 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()) %> 返回类别: 教程 上一教程: ASP如何获取真实IP地址 下一教程: 巧用缓存提高ASP应用程序的性能 您可以阅读与"获得ASP的中文日期字符串"相关的教程: · ASP中字符串函数的应用 · 检测含有中文字符串的实际长度 · ASP中一个字符串处理类 · 一些源程序 - 获得文件大小和字符串处理 · 改进 ASP 的字符串处理性能 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
