<%
'response.Write(now()&" ")
If Minute(Now())<10 Then
minutevalue="0"&Trim(Minute(Now()))
Else
minutevalue=Trim(Minute(Now()))
End If
response.write(minutevale)
if hour(now())>16 then
response.Write(year(now()+1)&"年"&month(now()+1)&"月"&day(now()+1)&"日 "&hour(now())-16&":"&minutevalue&" "&weekdayname(weekday(now()+1)))
else
response.Write(year(now())&"年"&month(now())&"月"&day(now())&"日 "&hour(now())+8&":"&minutevalue&" "&weekdayname(weekday(now())))
end if
%>