南工院奥兰系统:我怎么才能在asp对象response.write 中写入 日期和星期 早上好 程序

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/08 05:21:57

楼上写的不错,我补充一下:

<%
Dim y,m,d ''定义年,月,日
Dim h ''定义小时,判断时间
Dim w ''定义星期
y = year(Date())
m = month(Date())
d = day(Date())
w = WeekDay(mD,2)

Response.Write "今天是" & y & "年" & m & "月" & d & "日 " & "星期" & w
If h >5 AND h <9 Then
Response.Write "早上好"
End If
%>

<%
dim mD,mW
mD=Date()
mW=WeekDay(mD,2)

Response.write(mD &" 星期" &mW &" 早上好")
%>