|
<%
Function TodayWeek(Sdate)
Response.Write(Year(Date()) & "年" & Month(Date()) & "月" & Day(Date()) & "日 ")
Select Case Sdate
Case 1
Response.Write("星期日")
Case 2
Response.Write("星期一")
Case 3
Response.Write("星期二")
Case 4
Response.Write("星期三")
Case 5
Response.Write("星期四")
Case 6
Response.Write("星期五")
Case 7
Response.Write("星期六")
End Select
End Function
Response.write(TodayWeek(Weekday(Date())))
%> |
|
|