% dim czday,czweek,czwk czweek=WeekDay(Date()) If czweek=1 Then czwk=" 星期日" ElseIf czweek=2Then czwk=" 星期一" ElseIf czweek=3 Then czwk=" 星期二" ElseIf czweek=4 Then czwk=" 星期三" ElseIf czweek=5 Then czwk=" 星期四" ElseIf czweek=6 Then czwk=" 星期五" ElseIf czweek=7 Then czwk=" 星期六" end if czyear=Year(Date()) czmonth=Month(Date()) czday=Day(Date()) czghday=czyear&"年"&czmonth&"月"&czday&"日" %>
|
|
|
| 网站介绍 | 本站导航 | 搜索本站 | 联系我们 | 版权及免责声明 |
| Copyright © 2002-2010 www.czghj.gov.cn All Rights Reserved. 苏ICP备06001850号 |