<%@ Language = VBScript %>
<%Option Explicit%>
<%
Response.CacheControl = "Private"
Response.Expires = -1440
%>
<%
Dim strCssStyle
IF TIME >= #07:00:00# AND TIME <= #19:00:00# THEN '白天七點至晚上七點: Day.css
strCssStyle = "css/Day.css"
ELSE
strCssStyle = "css/Night.css" '晚上七點至白天七點 : Night.css
END IF
%>
<%
Dim strFlashStyle
IF TIME >= #07:00:00# AND TIME <= #19:00:00# THEN '白天七點至晚上七點: Day.swf
strFlashStyle = "Day.swf"
ELSE
strFlashStyle = "Night.swf" '晚上七點至白天七點 : Night.swf
END IF
%>
top