<% dim dat, y, m, d, w curday = date() nowday = Left(curday,10) dat = date() y = Left(dat, 4) m = Mid(dat, 6, 2) m = m + 1 m = m - 1 d = Mid(dat, 9, 2) d = d + 1 d = d - 1 w = WeekDay(nowday) If w = 3 Then w = "È­" ElseIf w = 4 Then w = "¼ö" ElseIf w = 5 Then w = "¸ñ" ElseIf w = 6 Then w = "±Ý" ElseIf w = 7 Then w = "Åä" ElseIf w = 1 Then w = "ÀÏ" Else w = "¿ù" End If %>
<%=y%>.<%=m%>.<%=d%> (<%=w%>)