练习题:写出一个判断今天是星期几的小程序
时间：2007-01-03 来源：txkss
<%
dim a
a=(weekday(date,vbmonday))
select case true
case a=1
response.write("今天是星期一")
case a=2
response.write("今天是星期二")
case a=3
response.write("今天是星期三")
case a=4
response.write("今天是星期四")
case a=5
response.write("今天是星期五")
case a=6
response.write("今天是星期六")
case a=7
response.write("今天是星期日,该好好休息一下了")
case else
response.write("")
end select
dim a
a=(weekday(date,vbmonday))
select case true
case a=1
response.write("今天是星期一")
case a=2
response.write("今天是星期二")
case a=3
response.write("今天是星期三")
case a=4
response.write("今天是星期四")
case a=5
response.write("今天是星期五")
case a=6
response.write("今天是星期六")
case a=7
response.write("今天是星期日,该好好休息一下了")
case else
response.write("")
end select
相关阅读 更多 +
