马敬发 完全的手工代码
<% @Language=VBScript %>
<% Option Explicit%>
<html>
<body>
现在时刻是：：
<% dim a
a=Time()
response.write(a)'内部可以直接写函数的，
%>
今天为<%response.write(Date())%>
<%
dim weekday
weekday=DatePart("w",Date())
select case weekday
case"1"
response.write("<b>星期日</b><br>")
response.write"<b>星期日</b><br" '这两种都是正确的，第二种是第一中的简单书写
response.write(weekday) '这一种是写出变量的方法
case "2"
response.write"<b>星期一</b>"
case "3"
response.write"<b>星期二</b>"
case "4"
response.write"<b>星期三</b>"
case "5"
response.write"<b>星期四</b>"
case "6"
response.write"<b>星期五</b>"
case "7"
response.write"<b>星期六</b>"
end select
%>
<br>
今天的日期是：<%response.write(date())%><br>
现在时间是：<%response.write(Time()) %>
<Br>
今天的日期是： <% response.write(year(date()))%>
今天的日期是： <% response.write(year(date)) %> 年
<% response.write(month(date)) %> 月
<% response.write(day(date)) %>日
<BR>
现在时间是<% response.write(Now()) %>
<BR>
现在时间是<% response.write(hour(Now())) %> 时
<% response.write(minute(Now())) %>分
<% response.write(second(Now())) %>秒
</body>
</html>