非常简单,适合我这样的菜鸟。
首先显示当前的日期
然后判断是否下午15:30以后
输出不同的文字。

<%
Response.write "今天是"&FormatDateTime(Now(),1)&WeekDayName(WeekDay(Now()))
response.write ""

response.write ("
")
response.write ("
")
'if mid(fname,5,2)="21" then

dim d1,d2
d1="#15:30:00#"
d2="#"&formatdatetime(now(),3)&"#"

if now()>d1 then
response.write "下面是今天下午发布的24-72小时天气预报"
else
response.write "下面是昨天下午发布的24-72小时天气预报"
%>