<%
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&"日"
%>
它山之石
